Über LS eine Outlook Email erzeugen und öffnen

[Christopher]

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 :-)

[greni26]

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: