Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema MsgBox | |
|---|---|
 Screenshot zu MsgBox |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
| Informationen und Beispiele zum Thema ListBox | |
|---|---|
 Screenshot zu ListBox |
ListBox-Seite mit Beispielarbeitsmappe aufrufen |
Outlook: E-Mail Adresse von User auslesen
- Outlook: E-Mail Adresse von User auslesen von Michael vom 29.07.2014 13:20:56
- AW: Outlook: E-Mail Adresse von User auslesen - von Michael am 29.07.2014 15:51:56
 |
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.
| |