Hallo Forum,
ich habe folgende Situation:
Ein Kunde setzt Lotus Notes V6.x als Applikationsserver ein.
Die Mails versendet er aus historischen Gründen in Outlook (Version 2003 XP)
Ich habe nun versucht Mail mit folgendem Code zu versenden.
Jedoch erhalte ich die Fehlermeldung: "Automation object error 207"
Mein Code ist folgender:
'------------------------------------------------------------
'Mail via Outlook versenden
Dim ses As New NotesSession
Dim objOutlook As Variant
Dim objMessage As Variant
On Error Goto openoutlook
Set objOutlook = GetObject("","Outlook.Application")
Goto isopenoutlook
openoutlook:
On Error Goto errhandler
If Not Isobject(objOutlook) Then
Set objOutlook = CreateObject("Outlook.Application")
End If
isopenoutlook:
On Error Goto errhandler
Set objMessage = objOutlook.CreateItem(0)
Call objMessage.CC.Add(ses.UserName)
'------------------------------------------------------------
hier steigt er dann aus!
2) Kann ich, bzw. weis jemand, was ich in Outlook einstellen muss, damit ich Doklinks zu Notes Dokumenten mit versenden kann!
Danke im Voraus für die Rückmeldungen.
Gruß
Bernd