Mit Excel, E-Mail (Outlook Express 6) senden.

Bild

Betrifft: Mit Excel, E-Mail (Outlook Express 6) senden.
von: Jürg
Geschrieben am: 16.11.2003 14:43:20

Hallo Excel Profis,

habe im Archiv alle möglichen Problemfälle durchgespielt,
welche meinem, ähnlich sind. Leider hat keines funktioniert!

Ich habe ein Tabellenblatt, welches täglich verändert wird
und welches ich dann sofort an einen Mailempfänger versenden möchte!
Das Ganze möchte ich mittels einer Schaltfläche (Button)starten!

Kann mir da jemand helfen!
Meine VBA-Kenntnisse sind begrenzt!

Grüsse und Dank im Voraus
Jürg

Bild


Betrifft: AW: Mit Excel, E-Mail (Outlook Express 6) senden.
von: DieterB
Geschrieben am: 16.11.2003 16:00:04

Hallo Jürg,
hier ein Code.
Ohne Garantie, dass er funktioniert.



Sub EmailSenden(mail, betreff, text)
Set OlApp = CreateObject("Outlook.Application")
With OlApp.CreateItem(0)
     .Recipients.Add mail
     .Subject = betreff
     .Body = text
     .Send
End With
Set OlApp = Nothing
End Sub



Sub TestMakro()
EmailSenden "empfänger@provider.de", "Betreff", "Dies ist ein Text"
End Sub



Gruß

DieterB


Bild


Betrifft: Muster im Anhang
von: Werner
Geschrieben am: 16.11.2003 21:16:23

Hallo Jürg,

Schau mal in den Anhang!
ev. so?

https://www.herber.de/bbs/user/1985.xls



Gruss Werner


Bild

Beiträge aus den Excel-Beispielen zum Thema " Mit Excel, E-Mail (Outlook Express 6) senden."