Outlook: E-Mail Adresse von User auslesen

Forumthread: Outlook: E-Mail Adresse von User auslesen

29.07.2014 13:20:56

User

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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Outlook: E-Mail Adresse von User auslesen

29.07.2014 15:51:56

User

AW: Outlook: E-Mail Adresse von User auslesen

29.07.2014 15:51:56

User

Hat sich erledigt.

Infobox / Tutorial

E-Mail Adressen aus Excel in Outlook einfügen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und drücke Alt + F11, um den VBA-Editor zu starten.
Füge ein neues Modul hinzu:
- Rechtsklick auf "VBAProject (DeineDatei.xlsx)" -> Einfügen -> Modul.

Kopiere den folgenden Code in das Modul:

Sub WerBinIchInOutlook()
   Dim myuser As Object
   Dim myNameSpace 'As Namespace
   Set myNameSpace = Nothing
   Set OLapp = CreateObject("Outlook.Application")
   Set myuser = OLapp.GetNamespace("MAPI").CurrentUser

   'E-Mail Adresse ausgeben
   Range("k1") = OLapp.GetNamespace("MAPI").CurrentUser.Address
   Range("k2") = myuser

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

Schließe den VBA-Editor und gehe zurück zu Excel.
Führe das Makro aus:
- Drücke Alt + F8, wähle WerBinIchInOutlook und klicke auf "Ausführen".

Jetzt wird die E-Mail Adresse des Users in Zelle K1 ausgegeben.

Häufige Fehler und Lösungen

Fehler: "Outlook nicht installiert"
- Stelle sicher, dass Microsoft Outlook auf deinem Computer installiert ist.
Fehler: "Zugriff verweigert"
- Überprüfe, ob deine Excel-Datei mit den richtigen Berechtigungen geöffnet wurde.

Alternative Methoden

Direktes Einfügen in Outlook:
- Kopiere die E-Mail Adressen direkt aus Excel und füge sie im Outlook-Fenster ein. Dies funktioniert gut, wenn du mehrere e-mail adressen aus excel in outlook schnell einfügen möchtest.
Verwendung von CSV-Dateien:
- Exportiere die Daten aus Excel als CSV-Datei und importiere diese in Outlook. Dies ist besonders nützlich für umfangreiche Listen.

Praktische Beispiele

E-Mail Adressen aus einer Liste einfügen: Angenommen, du hast eine Liste mit E-Mail Adressen in Spalte A. Du kannst den folgenden VBA-Code verwenden, um alle E-Mail Adressen in Outlook als BCC einzufügen:

Sub EmailAdressenEinfügen()
  Dim OutlookApp As Object
  Dim Mail As Object
  Dim i As Long
  Dim EmailListe As String

  Set OutlookApp = CreateObject("Outlook.Application")
  Set Mail = OutlookApp.CreateItem(0) ' 0 = olMailItem

  For i = 1 To 10 ' Ändere die 10 auf die Anzahl der E-Mail Adressen
      EmailListe = EmailListe & Cells(i, 1).Value & ";"
  Next i

  Mail.BCC = EmailListe
  Mail.Subject = "Betreff hier"
  Mail.Body = "Nachrichtentext hier"
  Mail.Display ' Zum Anzeigen der E-Mail
End Sub

Tipps für Profis

Verwende WorksheetFunction um Daten effizienter zu verarbeiten.
Automatisiere den Prozess: Erstelle eine Schaltfläche in Excel, um dein Makro einfach auszuführen.
Sichere deine Makros: Verwende die "Sicherheitseinstellungen" in Excel, um deine Makros zu schützen.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass meine E-Mail Adressen korrekt sind? Verwende die Funktion =ISTFEHLER() in Excel, um ungültige E-Mail Adressen zu identifizieren.

2. Kann ich die E-Mail Adressen direkt in den CC einfügen? Ja, ändere die Zeile Mail.BCC = EmailListe zu Mail.CC = EmailListe, um die Adressen im CC-Feld zu verwenden.

3. Funktioniert dies mit allen Versionen von Excel? Ja, aber die VBA-Makros sollten in Excel 2010 oder höher getestet werden, um voll funktionsfähig zu sein.

Beliebteste Forumthreads (12 Monate)

Outlook: E-Mail Adresse von User auslesen

Forumthread: Outlook: E-Mail Adresse von User auslesen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

E-Mail Adressen aus Excel in Outlook einfügen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread