Email aus Excel generieren mit Dateianhang

Forumthread: Email aus Excel generieren mit Dateianhang

16.03.2005 18:56:48

Münch

Hallo zusammen,
ich habe das Problem, dass ich emails aus Excel per Makro generieren möchte. Diese möchte ich immer neu erstellen können mit wechselnden Texten, Empfängern, und Dateianhängen.
Ich kann zwar Mails erstellen und versenden, leider immer nur ohne Dateianhang.
Bitte um Hilfe, da ich diesen Mailversand dringend benötige.
Danke im voraus an alle.
Gruß
Frank Münch

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Email aus Excel generieren mit Dateianhang

16.03.2005 22:31:20

Franz
AW: Email aus Excel generieren mit Dateianhang

22.03.2005 17:52:19

Frank

AW: Email aus Excel generieren mit Dateianhang

16.03.2005 22:31:20

Franz

Hallo Frank!
Mein Vorschlag zum anpassen:


Sub EMAILs_Versand()
On Error GoTo Fehlermelden
Dim OutLookJob As Object, E_Mail As Object
Set OutLookJob = CreateObject("Outlook.Application")
FLYER = "C:\TEMP.XLS" 'Anhang Beispiel als Option
Set E_Mail = OutLookJob.CreateItem(0)
E_Mail.To = "UserName@deineHomepage.de"
E_Mail.Subject = "Dies ist deine Betreffzeile!"
E_Mail.attachments.Add FLYER
E_Mail.body = "Hallo! Halli! "
E_Mail.display
E_Mail.send
Set E_Mail = Nothing
Set OutLookJob = Nothing
Exit Sub
Fehlermelden:
MsgBox ("Es wurde keine EMAIL durch Outlook geschickt.")
End
End Sub

In meiner Vereinsverwaltung macht sie (etwas erweitert) gute Dienste in Verbindung mit Rundschreiben.
Unverbindlich anschauen unter http://www.vereinsmayer.de .
Gute Nacht.
Franz D.

AW: Email aus Excel generieren mit Dateianhang

22.03.2005 17:52:19

Frank

Hallo Franz,
danke für die schnelle Hilfe,
hat super geklappt.
Hätte nie gedacht, dass man hier so schnell "bedient" wird.
Also nochmals vielen lieben dank und ein frohes Osterfest.
Gruß
Frank

Infobox / Tutorial

Emails aus Excel generieren mit Dateianhang

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

Um eine automatische Email aus Excel zu generieren und diese mit einem Dateianhang zu versenden, kannst du das folgende VBA-Makro verwenden:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

Kopiere den folgenden Code in das Modul:

Sub EMAILs_Versand()
   On Error GoTo Fehlermelden
   Dim OutLookJob As Object, E_Mail As Object
   Set OutLookJob = CreateObject("Outlook.Application")
   FLYER = "C:\TEMP.XLS" 'Anhang Beispiel als Option
   Set E_Mail = OutLookJob.CreateItem(0)
   E_Mail.To = "UserName@deineHomepage.de"
   E_Mail.Subject = "Dies ist deine Betreffzeile!"
   E_Mail.Attachments.Add FLYER
   E_Mail.Body = "Hallo! Halli! "
   E_Mail.Display
   E_Mail.Send
   Set E_Mail = Nothing
   Set OutLookJob = Nothing
   Exit Sub
Fehlermelden:
   MsgBox ("Es wurde keine EMAIL durch Outlook geschickt.")
End Sub

Passe den Code an, indem du die Empfängeradresse und den Pfad des Dateianhangs änderst.
Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro mit ALT + F8 aus und wähle EMAILs_Versand.

Häufige Fehler und Lösungen

Fehler: Keine Email wird gesendet
Lösung: Stelle sicher, dass Outlook korrekt installiert und konfiguriert ist. Überprüfe auch, ob die angegebene Email-Adresse korrekt ist.
Fehler: Anhang wird nicht hinzugefügt
Lösung: Überprüfe den Pfad des Anhangs. Der Pfad muss korrekt sein, und die Datei muss existieren.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch die folgenden Methoden in Betracht ziehen:

Power Automate: Mit Microsoft Power Automate kannst du automatisierte Workflows erstellen, die Emails mit Anhängen versenden, ohne VBA zu verwenden.
Mail Merge in Word: Wenn du viele Emails mit unterschiedlichen Inhalten versenden möchtest, kannst du die Seriendruckfunktion in Word nutzen, um personalisierte Emails zu erstellen.

Praktische Beispiele

Versenden von Rechnungen: Du kannst das Makro anpassen, um Rechnungen als Anhang zu versenden, indem du den Pfad zur Rechnung in der FLYER-Variable änderst.
Newsletter: Verwende das Makro, um regelmäßig Newsletter an verschiedene Mitglieder zu versenden, indem du die Empfängeradresse dynamisch aus einer Excel-Liste ziehst.

Tipps für Profis

Verwende Variablen für Empfänger und Betreff, um das Makro flexibler zu gestalten.
Implementiere eine Schleife, um mehrere Emails nacheinander zu senden, wenn du eine Liste mit Empfängern hast.
Stelle sicher, dass du die Sicherheitseinstellungen in Outlook so konfigurierst, dass das Versenden von Emails über VBA erlaubt ist.

FAQ: Häufige Fragen

1. Wie kann ich den Anhang dynamisch ändern?
Du kannst den Pfad zur Datei in der FLYER-Variable anpassen oder eine Eingabeaufforderung einfügen, um den Benutzer nach dem Anhang zu fragen.

2. Kann ich das Makro auch für andere Dateitypen verwenden?
Ja, das Makro kann für verschiedene Dateitypen verwendet werden, solange der Pfad korrekt angegeben ist und die Datei existiert. Achte darauf, dass die Dateiendung korrekt ist.

Beliebteste Forumthreads (12 Monate)

Email aus Excel generieren mit Dateianhang

Forumthread: Email aus Excel generieren mit Dateianhang

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Emails aus Excel generieren mit Dateianhang

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)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread