Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Outlook Emailadresse auslesen

Forumthread: Outlook Emailadresse auslesen

Outlook Emailadresse auslesen
28.11.2002 10:40:33
Andreas Schindler
Hallo,

Ich möchte die Emailadresse aus Outlook auslesen.

Mit objMsg.SenderName (objMSG. ist ein Mailobjekt) bekomme ich als Absender lediglich den Namen, wie er im Outlookadreßbuch abgespeichert ist.
Also z.B. "Schindler,Andreas" oder "Herber,Hans"

Wenn ich aber nachher an diese Adresse eine Mail versenden will gibt es eine Fehlermeldung, weil es die Adresse nicht kennt.

Also:

Absender = objMsg.SenderName
....

Mailversand:

mail.to = Absender

Meine Frage: Kann ich die tatsächliche Emailadresse abfragen oder wie muß ich den Alias ggf. versenden, damit Outlook kapiert, daß der Name so im Adreßbuch steht.

Danke für Eure Hilfe.

Andreas

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Outlook Emailadresse auslesen
03.12.2002 00:47:46
Nepumuk
Hallo Andreas,
so funktionierts bei mir:

Public Sub Email()
    Dim ol As Outlook.Application
    Dim empfänger As Outlook.Recipient
    Dim mail As Outlook.MailItem
    Set ol = CreateObject("Outlook.Application")
    Set mail = ol.CreateItem(olMailItem)
    Set empfänger = mail.Recipients.Add("Schindler,Andreas")
    mail.Send
End Sub
     Code eingefügt mit Syntaxhighlighter 1.14

Gruß
Nepumuk
PS. Du musst unter Extras-Verweise den Verweis für "Microsoft Outlook 9.0 Object Libary" aktivieren.

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Outlook Emailadresse auslesen und in Excel einfügen


Schritt-für-Schritt-Anleitung

Um die E-Mail-Adressen aus Excel in Outlook einzufügen, kannst du folgende Schritte ausführen:

  1. Excel öffnen: Stelle sicher, dass deine E-Mail-Adressen in einer Excel-Liste vorliegen. Die Adressen sollten in einer Spalte stehen.

  2. Outlook vorbereiten: Öffne Outlook und stelle sicher, dass du Zugriff auf dein Adressbuch hast.

  3. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  4. Neues Modul erstellen: Wähle im Menü "Einfügen" die Option "Modul", um ein neues Modul zu erstellen.

  5. Code einfügen: Füge den folgenden Code ein, um die E-Mail-Adressen aus Excel auszulesen und sie an Outlook zu übergeben:

    Sub EmailAdressenAusExcelInOutlookEinfügen()
       Dim olApp As Object
       Dim olMail As Object
       Dim ws As Worksheet
       Dim i As Integer
    
       Set olApp = CreateObject("Outlook.Application")
       Set olMail = olApp.CreateItem(0) ' 0 steht für olMailItem
       Set ws = ThisWorkbook.Sheets("DeinBlattname") ' Blattname anpassen
    
       For i = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row
           olMail.Recipients.Add ws.Cells(i, 1).Value ' E-Mail-Adresse aus der ersten Spalte
       Next i
    
       olMail.Subject = "Betreff hier eingeben"
       olMail.Body = "Nachrichtentext hier eingeben"
       olMail.Display ' oder olMail.Send, um die E-Mail direkt zu senden
    
       Set olMail = Nothing
       Set olApp = Nothing
    End Sub
  6. Ausführen: Drücke F5, um den Code auszuführen. Die E-Mail-Adressen aus deiner Excel-Liste werden jetzt in Outlook eingefügt.


Häufige Fehler und Lösungen

  • Fehler: "Objekt kann nicht gefunden werden"
    Lösung: Stelle sicher, dass der Verweis auf "Microsoft Outlook xx.0 Object Library" aktiviert ist. Gehe zu Extras > Verweise und aktiviere den notwendigen Verweis.

  • Fehler: E-Mail wird nicht gesendet
    Lösung: Überprüfe, ob du die E-Mail-Adresse korrekt eingegeben hast und dass sie tatsächlich existiert.


Alternative Methoden

Eine weitere Möglichkeit, E-Mail-Adressen aus Excel in Outlook zu importieren, ist die Verwendung von CSV-Dateien. Du kannst deine Excel-Liste als CSV speichern und dann in Outlook importieren:

  1. Speichere deine Excel-Datei als CSV.
  2. Gehe zu Outlook und wähle "Datei" > "Öffnen & Exportieren" > "Importieren/Exportieren".
  3. Wähle "Aus anderen Programmen oder Dateien importieren".
  4. Wähle "Comma Separated Values" und folge den Anweisungen, um die E-Mail-Adressen zu importieren.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du E-Mail-Adressen aus einer Excel-Liste in Outlook einfügen kannst:

  • In deiner Excel-Tabelle stehen die E-Mail-Adressen in der ersten Spalte. Du kannst den oben genannten VBA-Code verwenden, um alle Adressen in eine neue E-Mail zu kopieren.

Wenn du E-Mail-Adressen aus mehreren Spalten hast, kannst du den Code entsprechend anpassen.


Tipps für Profis

  • Verwende olMail.Send anstelle von olMail.Display, um die E-Mail direkt zu senden, ohne die E-Mail vorher anzuzeigen.
  • Achte darauf, dass du die E-Mail-Adressen vor dem Senden validierst, um sicherzustellen, dass sie im richtigen Format vorliegen.
  • Um E-Mail-Adressen aus Excel in Outlook zu kopieren, kannst du auch die Funktion Copy und Paste verwenden, um die Adressen manuell zu übertragen.

FAQ: Häufige Fragen

1. Wie kann ich mehrere E-Mail-Adressen aus Excel in eine E-Mail in Outlook einfügen?
Du kannst den oben genannten VBA-Code verwenden, um alle E-Mail-Adressen aus einer Spalte in eine neue E-Mail zu importieren.

2. Was mache ich, wenn Outlook die E-Mail-Adresse nicht erkennt?
Stelle sicher, dass die E-Mail-Adresse korrekt eingegeben ist und im Outlook-Adressbuch vorhanden ist. Möglicherweise musst du den Namen manuell anpassen.

3. Kann ich E-Mail-Adressen aus Excel in Outlook 2007 importieren?
Ja, der oben beschriebene Prozess funktioniert auch mit Outlook 2007, solange du die entsprechenden Verweise gesetzt hast.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige