Email aus Excel generieren mit Dateianhang

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Email aus Excel generieren mit Dateianhang
von: Münch
Geschrieben am: 16.03.2005 18:56:48
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

Bild

Betrifft: AW: Email aus Excel generieren mit Dateianhang
von: Franz D.
Geschrieben am: 16.03.2005 22:31:20
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.
Bild

Betrifft: AW: Email aus Excel generieren mit Dateianhang
von: Frank Münch
Geschrieben am: 22.03.2005 17:52:19
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
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Email aus Excel generieren mit Dateianhang"