Fares Achwan: MAPI.Session

Beitrag lesen

Ich habe versucht, das unten aufgeführte Script zum Laufen zu bringen, statt dessen erhalte ich aber folgende Fehlermeldung:

Zeile 11, Zeichen 1
ActiveX-Komponenten kann kein Objekt erstellen: 'MAPI.Session'
Laufzeitfehler in Microsoft VBScript

Installiert ist MS Outlook 2000 auf einem Windows 2000 Prof.

Irgendwelche Ideen, die mir weiterhelfen?
Vielen Dank im voraus!

#############################################################

'Body of email message
Dim msgBody
msgBody="Dies ist ein Test!"

'Call our function with recipient, message and subject
MySendMail "starslider@gmx.de",msgBody,"RVS-Meldung!"

Sub MySendMail(recipient,msg,subject)
Dim objSession, oInbox, colMessages, oMessage, colRecipients

Set objSession = CreateObject("MAPI.Session")
objSession.Logon ""

Set oInbox = objSession.Inbox
Set colMessages = oInbox.Messages
Set oMessage = colMessages.Add()
Set colRecipients = oMessage.Recipients

colRecipients.Add recipient
colRecipients.Resolve

oMessage.Subject = subject
oMessage.Text = msg
oMessage.Send

objSession.Logoff
Set objSession = nothing

End Sub