Autor Thema: Über LS eine Outlook Email erzeugen und öffnen  (Gelesen 1386 mal)

Offline Christopher

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.060
  • Geschlecht: Männlich
  • Dumm ist der, der dummes tut.
Über LS eine Outlook Email erzeugen und öffnen
« 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 :-)

Client & Server R 5.011
Principal Certified Lotus Professional R5 System Administration
Microsoft Certified Systems Engineer 2000
Microsoft Certified Systems Administrator 2000
Microsoft Certified Systems Administrator 2003
Microsoft Certified Systems Engineer 2003

Offline greni26

  • Frischling
  • *
  • Beiträge: 4
  • Ich liebe dieses Forum!
Antw:Über LS eine Outlook Email erzeugen und öffnen
« Antwort #1 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:

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz