Email



Excel-Version: 9.0 (Office 2000)
  • Email von Steffen vom 19.06.2002 - 13:53:21
    • Re: Email von Sören Wiechert vom 19.06.2002 - 14:20:29
    • Re: Email von Sebastian Müller vom 19.06.2002 - 14:14:18
nach unten

Betrifft: Email
von: Steffen
Geschrieben am: 19.06.2002 - 13:53:21

Hallo,

wie muss ich den nachfolgenden Code abändern, damit eine geschlossenen Arbeitsmappe als Anhang mit versendet wird

Private Sub Mail(eMail As String, Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" + eMail + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub

nach oben   nach unten

Re: Email
von: Sebastian Müller
Geschrieben am: 19.06.2002 - 14:14:18

Der Code zum verschicken einer Arbeitsmappe:

ActiveWorkbook.SendMail Recipients:="E-Mail-Adresse"

Sebastian

nach oben   nach unten

Re: Email
von: Sören Wiechert
Geschrieben am: 19.06.2002 - 14:20:29

Hallo Steffen,

leider kann ich Dir nicht sagen wie der genannte Code verändert werden muss, aber ich habe so etwas einmal mit Hilfe eines Outlook-Application-Objekts gelöst.

objOutlook.MailItem.Attachments.Add "D:\Temp\Dateiname.xls"

natürlich musst Du die entsprechenden Objekte vorher deklarieren.

Vielleicht hilft Dir das ein wenig weiter...

Gruß,
Sören

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz und Autofilter"