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