Das Notes Forum

Lotus Notes / Domino 10 => ND10: Entwicklung => Thema gestartet von: Christopher am 19.02.22 - 09:45:53

Titel: Über LS eine Outlook Email erzeugen und öffnen
Beitrag von: Christopher am 19.02.22 - 09:45:53

Hallo Leute,

ich suche eine Code Beispiel wie über LS eine Email im Outlook-Client erzeuge und öffne. So wie z.B. bei Excel und Word.

LG

Chris

P.S
Cool das das Notes Forum geupdatet wurde :-)

Titel: Antw:Über LS eine Outlook Email erzeugen und öffnen
Beitrag von: greni26 am 19.02.22 - 11:52:35

Sub Initialize

     'Set Outlook object
     Set appOutl = CreateObject("Outlook.Application")
     Set myNameSpace = appOutl.GetNameSpace("MAPI")
     Set myOlApp = CreateObject("Outlook.Application")
     Set myItem = myOlApp.CreateItem(0)     
     
'     Display message to user   
     With myItem
          .Display
     End With
'    Close object references.
     Set appOutl = Nothing
     Set myItem = Nothing
End Sub

Hoffe es hilft. So mal ein Gerüst

LG B: