Mail met versturen met macro

[Gerwinvdb]

Hallo,

De volgende code hangt aan een button. Wanneer de gebruiker op de button drukt, wordt met deze code een mail verstuurd.
Hoe kan ik ervoor zorgen dat de mail niet direct wordt verstuurd, maar juist opent zodat er nog platte tekst toegevoegd kan worden.

Code:

Sub Mail_workbook_Outlook_1()

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.to = "help@helpmij.nl"
.CC = ""
.BCC = ""
.Subject = "Help"
.Body = ""
.Attachments.Add ActiveWorkbook.FullName

.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Alvast bedankt!

 

[Conseclusie]

Vervang .Send door .Display

 

[Gerwinvdb]

Nog een vraag

Bedankt voor de snelle reactie. Het werkt.

Nog een vraagje

Hoe kan in de body openen met bv "Hallo" en dat vervolgens (in de mail) 2 regels lager de rest van de tekst staat.

Alvast bedankt.

 

[Conseclusie]

Via:

.Body = "Hallo, " & Chr(13) & Chr(13) & "<rest van de tekst>"

 

[Gerwinvdb]

Bedankt, ook dit werkt!!

 

[Conseclusie]

Graag gedaan...
Voor nog veel meer info over dit onderwerp; zie de site van Ron de Bruin:
http://www.rondebruin.nl/win/s1/outlook/mail.htm