title image


Smiley Re: Outlook sichtbar öffnen




Sub OutlookÖffnen()

'

' Outlook öffnen & Ordner "Posteingang" anzeigen

'

Dim olAppl As Outlook.Application

Dim olNS As NameSpace

Dim olMAPIFolder As MAPIFolder



Set olAppl = New Outlook.Application

Set olNS = olAppl.GetNamespace("MAPI")

Set olMAPIFolder = olNS.GetDefaultFolder(olFolderInbox)



olMAPIFolder.Display



Set olMAPIFolder = Nothing

Set olNS = Nothing

Set olAppl = Nothing



End Sub







Verweis auf die "Microsoft Outlook Object Library" nicht vergessen!



Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: