Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Outlook: E-Mail Adresse von User auslesen

Betrifft: Outlook: E-Mail Adresse von User auslesen von: Michael
Geschrieben am: 29.07.2014 13:20:56

Hallo zusammen,

ich habe im Netz folgenden Code gefunden mit dem ich den User bzw die Adresse auslesen kann:

Sub WerBinIchInOutlook()

Dim myuser As Object
Dim myNameSpace 'As Namespace
 Set myNameSpace = Nothing
 Set OLapp = CreateObject("Outlook.Application")
 Set myuser = OLapp.GetNamespace("MAPI").CurrentUser
   'MsgBox myuser
    Range("k1") = OLapp.GetNamespace("MAPI").CurrentUser.Address
    Range("k2") = myuser

 'Ende: Excel Benutzer Name + Vorname ermitteln
 Set OLapp = Nothing

End Sub

Jetzt möchte ich aber die E-Mail Adresse des Users ausgeben. Ist das machbar?

Dank Euch.

Gruß,
Michael

  

Betrifft: AW: Outlook: E-Mail Adresse von User auslesen von: Michael
Geschrieben am: 29.07.2014 15:51:56

Hat sich erledigt.


 

Beiträge aus den Excel-Beispielen zum Thema "Outlook: E-Mail Adresse von User auslesen"