Mail-Versand aus Excel

25/11/2008 - 09:06 von Emil | Report spam
Hallo zusammen,

ich möchte aus Excel eine Mail senden mit einem Anhang (z.B. ein
Tabellenblatt oder eine externe Datei)

Folgendes habe ich eingegeben:
mailto:mustermann@gmx.de?subject=Test &body= inhalt der mail
&Attachments.Add = "C:\TEMP\abc.txt"

Ergebnis:
Mail Client wird geöffnet mit vordefinierter Adresse, Betreff und Text
im Body. Was fehlt ist der Anhang.
Meine Frage, geht das mit dem Anhang über mailto nicht?
Wie könnte ich das sonst machen, wir haben GroupWise im Einsatz.

Vielen Dank im voraus.
Emil
 

Lesen sie die antworten

#1 stefan onken
25/11/2008 - 16:55 | Warnen spam
On 25 Nov., 09:06, Emil wrote:
Hallo zusammen,

ich möchte aus Excel eine Mail senden mit einem Anhang (z.B. ein
Tabellenblatt oder eine externe Datei)

Folgendes habe ich eingegeben:
mailto:?subject=Test &body= inhalt der mail
&Attachments.Add = "C:\TEMP\abc.txt"

Ergebnis:
Mail Client wird geöffnet mit vordefinierter Adresse, Betreff und Text
im Body. Was fehlt ist der Anhang.
Meine Frage, geht das mit dem Anhang über mailto nicht?
Wie könnte ich das sonst machen, wir haben GroupWise im Einsatz.

Vielen Dank im voraus.
Emil



hallo Emil,
bei mailto: gibt es keine attachments.
Dafür musst du dein Mailprogramm per Makro/VBA "fernsteuern", für
Outlook ein Codebsp:

gehe mit Alt+F11 in den VBA-Editor
Einfügen/Modul
kopiere in das große Codefenster diesen Code:

Sub MailMitOutlook()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = ""
.Subject = "Test"
.Body = "Inhalt der mail."
.attachments.Add "C:\TEMP\abc.txt"
.Display 'send um sofort zu senden
End With
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

Beende den Editor(X oben rechts) und starte das Makro über Extras/
Makros/Makro.
Statt Display kannst du Send schreiben, dann wird die mail ohne
Voransicht geschickt.


Gruß
stefan

Ähnliche fragen