Text in Mail

[simonexcel]

Guten Abend!

Ich habe einen Code in einem Buch gefunden (Bernd Held - VBA mit Excel) mit dem ich eine einzelne Excel Tabelle als Outlook Anhang verschicken kann:

Code:

Private Sub CommandButton2_Click()
Application.DisplayAlerts = False
Worksheets("Mappe1").Copy
ActiveWorkbook.SaveAs "TEST", FileFormat:=52
Application.Dialogs(xlDialogSendMail).Show _
"user.user@web.de", "TEST"
ActiveWorkbook.Close
Application.DisplayAlerts = True

End sub

Leider finde ich dort keinen Hinweiß darauf wie ich in die Mail noch einen Text einfügen kann (Also ein- oder zwei Zeilen Erläuterung zur Datei).

Habt ihr eine Idee, was ich hinzufügen müsste?

Danke & noch nen schönen Abend
simon

[Mase]

Hallo simonexcel,

 Leider finde ich dort keinen Hinweiß darauf wie ich in die Mail noch einen Text einfügen kann (Also ein- oder zwei Zeilen Erläuterung zur Datei).

Bei dieser Methode geht Outlook auf und Du kannst direkt dein Text verfassen?

Wenn Du es dennoch über einen Code realisieren möchtest, gibt es zu diesem Thema im Web Treffer en masse.
(Vermutlich auch der Grund warum du bisher keine Antworten bekommen hast)


Beispiel 1 von n:

Code:

http://www.herber.de/forum/archiv/336to340/337065_email.html

gruß
Marco