E-Mail mit VBA erzeugen
Schritt-für-Schritt-Anleitung
Um eine E-Mail mit VBA zu erstellen und die Informationen aus einem Excel-Arbeitsblatt auszulesen, kannst Du folgenden Code nutzen. Dieser Code setzt voraus, dass Du Microsoft Outlook installiert hast.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Füge ein neues Modul hinzu (
Einfügen > Modul).
- Kopiere und füge den folgenden Code in das Modul ein:
Sub EmailErstellen()
Dim MyOutApp As Object
Dim MyMessage As Object
' Outlook-Anwendung erstellen
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Range("A1").Value ' E-Mail Adresse
.Subject = Range("A2").Value ' Betreff
.Body = Range("A3").Value & vbCrLf & vbCrLf & Range("A4").Value ' Nachricht
.Importance = 2 ' Hoch
.Display ' Anzeige der E-Mail
'.Send ' Hier wird die Mail gesendet
End With
' Objekte freigeben
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
- Stelle sicher, dass die E-Mail-Adresse in Zelle A1, der Betreff in A2, der Nachrichtentext in A3 und die Grußformel in A4 steht.
- Führe das Makro aus (
F5 oder über das Menü).
Häufige Fehler und Lösungen
-
Fehler: "Objekt kann nicht gefunden werden"
- Stelle sicher, dass Outlook installiert und korrekt konfiguriert ist.
-
Fehler: E-Mail wird nicht angezeigt
- Überprüfe, ob der
.Display-Befehl korrekt platziert ist.
-
Das Makro funktioniert nicht
- Stelle sicher, dass Du die Makros in Excel aktiviert hast (
Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen).
Alternative Methoden
Wenn Du keine VBA-Makros verwenden möchtest, kannst Du auch die folgenden Methoden in Betracht ziehen:
- Manuelle Erstellung der E-Mail: Du kannst die Informationen manuell aus Excel kopieren und in Outlook einfügen.
- Excel-Funktionen: Verwende die
HYPERLINK-Funktion, um E-Mail-Links zu erstellen, z.B. =HYPERLINK("mailto:" & A1 & "?subject=" & A2 & "&body=" & A3 & "%0A" & A4), um eine E-Mail zu generieren.
Praktische Beispiele
Angenommen, Du hast folgende Daten in Excel:
| A |
B |
| A1: beispiel@gmx.de |
|
| A2: Hallo Sven, |
|
| A3: Wie geht es dir? |
|
| A4: Gruß Herrmann |
|
Mit dem oben genannten VBA-Code kannst Du eine E-Mail direkt aus diesen Zellen erstellen. Das Skript liest die Daten und öffnet die E-Mail mit den entsprechenden Inhalten.
Tipps für Profis
FAQ: Häufige Fragen
1. Wie kann ich die E-Mail automatisch senden?
Um die E-Mail automatisch zu senden, ersetze .Display durch .Send im Code.
2. Wie kann ich die E-Mail an mehrere Empfänger senden?
Trenne die E-Mail-Adressen mit einem Semikolon: .To = "adresse1@gmx.de; adresse2@gmx.de".
3. Kann ich die E-Mail-Vorlage speichern?
Die E-Mail-Vorlage selbst kann nicht direkt gespeichert werden, aber Du kannst den VBA-Code anpassen, um Templates zu nutzen.