Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung
E-Mails aus Notes via Outlook versenden
Legolas:
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
m3:
ad 2) Du willst nach "notes://" suchen
Legolas:
Hallo Zusammen,
nochmals zum Thema Mail mit Outlook versenden!
Da bisher keine Rückmeldungen erfolgten mal die Frage in die Runde:
Kennt sich hier niemand aus oder ist das Problem unklar gestellt?
Gruß
Bernd
botschi:
Das hat Martin doch gesagt, such nach "notes://".
Ein Link (hier ein DB-Link) sieht "ausgeschrieben" so aus:
--- Code: ---NTS on notes://SERVER/tts/troubletickets_notes.nsf
--- Ende Code ---
Du musst in der Mail ein String basteln, den Notes als Link identifizieren kann.
Matthias
Legolas:
Hallo,
das mit dem Link ist mir soweit klar.
Ich habe aber noch das Problem mit dem Initialisieren der Outlook Applikation.
Hier erhalte ich den oben beschriebene Fehler.
Gruß
Bernd
Navigation
[0] Themen-Index
[#] Nächste Seite
Zur normalen Ansicht wechseln