Tabelle als e-Mail versenden

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


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Tabelle als e-Mail versenden
von: Ralph P.
Geschrieben am: 15.07.2002 - 12:02:34

Hallo ich möchte eine aktive Tabelle als e-Mail versenden.
Im Detail heißt das:
Das Standard Mail-Programm soll geöffnet werden, das Subject und der Anhang sollen schon eingetragen sein. Der Empfänger soll aus dem Adressbuch ausgewählt werden können.

Andere Frage.
Ich habe folgendes (unabhängig von den oben stehenden Angaben) mal ausprobiert:

ThisWorkbook.SendMail "xxx.xxx@xx.xx", "Test"

Ich bekomme folgende Fehlermeldung:
Laufzeitfehler '1004':

Anwendungs- objektdefinierter Fehler.

Muss irgend ein spezielles AddIn installiert werden?

Gruß Ralph

nach oben   nach unten

Re: Tabelle als e-Mail versenden
von: Alfred
Geschrieben am: 15.07.2002 - 15:29:31

Hallo Ralph,
versuch es hiermit:


Private Sub Mailversenden_Click()
Dim eMail As String, Subject As String, Body As String, Antwort
eMail = "xyz@xyz.de"
Subject = "Mail aus xyz"
Body = ""
Call Mail(eMail, Subject, Body)
End Sub

Private Sub Mail(eMail As String, Optional Subject As String, _
Optional Body As String)
On Error GoTo ErrorHandler
Call ShellExecute(0&, "Open", "mailto:" + eMail + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
Exit Sub
ErrorHandler:
Dim Antwort
If Not Err.Number = 0 Then Antwort = MsgBox("Wenn Sie uns keine Email senden konnten, so rufen Sie uns doch einfach an....")
End Sub

Mußte Dir halt etwas anpassen.
Gruß
Alfred

nach oben   nach unten

Re: Tabelle als e-Mail versenden
von: Ralph P.
Geschrieben am: 16.07.2002 - 08:12:51

Hallo Alfred.

Soweit funktioniert der Aufruf und das Einsetzen von Adresse und Subject. Ich bräuchte aber noch die Exceltabelle als Attechment.

Gruß Ralph


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tabelle als e-Mail versenden"