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

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

[botschi]

Da kann ich Dir leider nicht weiterhelfen. Solche Sachen hast Du bestimmt schon probiert?: http://www.wbrnet.info/db/1140.html

Matthias

[Axel]

Ich habe leider im Moment kein Zugriff auf das Outlook Objektmodell, aber kann es sein, dass die Dateitypen nicht stimmen? Ist allerdings nur ein Schuss ins Blaue.

Call objMessage.CC.Add(Cstr(ses.UserName)) 

Axel

[koehlerbv]

Aus dem String NotesSession.UserName wird aber auch mit Cstr kein schönerer String, Axel ...

Bernhard

[Axel]

Mag sein. Aber ich habe in dem Bereich schon die berühmten und viel zitierten Pferde....   


Axel

[ata]

... in der Sandbox gibt es eine Datenbank, die genau das macht - Mails in Notes erstellen und per Outlook versenden - der Quellcode dort ist offen und solltest sehen können, wie es dort gelöst ist...

Toni