[outlook/exchange] Active X onderdeel kan geen object maken

[Verwijderd]

Probleem:

Een intranet site die op winnt server draait. Nu heb ik er een formulier op gemaakt waarvan de inhoud zou moeten worden doorgemaild. En dus niet via SMTP. Het zou via een intern adres moeten gaan. Dus via de exchange server.
Ik vond een paar links op google en probeerde die code, maar dan had ik het probleem dat ik een foutmelding kreeg. Blijkbaar lukte het niet om een outlook object aan te maken.

Dit is de fout:

Runtimefout Microsoft VBScript error '800a01ad'
ActiveX-onderdeel kan geen object maken: 'Outlook.Application'
/includes/mail_over_outlook.inc, line 6

En dit is de code (die ik op internet vond):

<%
Sub SendMailOutlook(aTo, Subject, TextBody, aFrom)

'Create an Outlook object
Dim Outlook 'As New Outlook.Application
Set Outlook = CreateObject("Outlook.Application")

'Create e new message
Dim Message 'As Outlook.MailItem
Set Message = Outlook.CreateItem(olMailItem)
With Message
'You can display the message To debug And see state
'.Display

.Subject = Subject
.Body = TextBody

'Set destination email address
.Recipients.Add (aTo)

'Set sender address If specified.
Const olOriginator = 0
If Len(aFrom) > 0 Then .Recipients.Add(aFrom).Type = olOriginator

'Send the message
.Send
End With
End Sub
%>

[Spider.007]

Waarom ga je niet verder in je originele topic

[Verwijderd]

omdat dit over outlook gaat...