Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

individuellen Text in über VBA verschickter Mail

Betrifft: individuellen Text in über VBA verschickter Mail von: Wolfram Theeg
Geschrieben am: 08.04.2008 08:54:45

Hallo,

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

  

Betrifft: AW: individuellen Text in über VBA verschickter Mail von: Tino
Geschrieben am: 08.04.2008 16:52:02

Hallo,
versuche es mal hiermit, kann es aber unter Office XP nicht testen.


    Application.Dialogs(xlDialogSendMail).Show _
    "ich@ich.de", Date & "-" & Time



Gruß
Tino


  

Betrifft: AW: individuellen Text in über VBA verschickter Ma von: Wolfram Theeg
Geschrieben am: 08.04.2008 17:18:05

Hallo Tino,

das klappt perfekt!

Genau danach habe ich gesucht.

Tausend Dank.

Wolfram