Mail vanuit excel niet direct verzenden

[erbeeee]

Wie kan mij helpen met het volgende:

ik wil vanuit Excel een werkblad verzenden. De code werkt, maar de mail wordt direct verzonden. Ik wil graag dat alleen het e-mail venster wordt geopend, met het e-mailadres en onderwerp reeds ingevuld, maar dat ik nog wel de mogelijkheid heb om er een bericht bij te typen. De code die ik nu gebruik is:

        .SendMail Range("B18"), _
                  "Rapportage voortgang: " & ActiveSheet.Name & ""

 

[erbeeee]

Heb ik net de vraag op het forum geplaatst, kom ik ineens op internet de oplossing tegen...

Ik heb nu de volgende code gebruikt:

Application.Dialogs(xlDialogSendMail).Show _
arg1:=Range("B18"), _
arg2:="Rapportage voortgang: " & ActiveSheet.Name & ""