individuellen Text in über VBA verschickter Mail
08.04.2008 08:54:00
Wolfram
ich bin auf der Suche nach einer Lösung, wie ich in einer von VBA verschickten Mail einen vom Versender eingetragenen Text mitschicken kann.
Im speziellen lasse ich über VBA ein Excel-Arbeitsblatt verschicken. Den entsprechenden Code habe ich mir schon zusammengebaselt. Nur leider finde ich keine Lösung, wie die eMail vor dem Verschicken geöffnet bleibt, damit der Versender noch einen individuellen Text hinzufügen kann.
Alternativ könnte ich mir auch vorstellen, dass ein individueller Kommentar vor dem Verschicken über VBA abgefragt wird.
Im Moment sieht mein Code so aus:
Sub per_Mail_Anhang_verschicken()
Range("G15:G80").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Hidden = True
ActiveWorkbook.Save
MsgBox ("Das Dokument wird jetzt automatisch versandt!")
ActiveWorkbook.SendMail Recipients:="ich@ich.deSubject:="Dokument" & Date & " - _
" & Time
MsgBox ("Das Dokument wurde versandt! Vielen Dank!")
Selection.EntireRow.Hidden = False
Range("A12").Select
ActiveWorkbook.Save
End Sub
Es wäre schön, wenn jemand einen Tipp für mich hätte.
Dafür schon mal danke!
Wolfram
Anzeige