Outlook Sendmail (Verify before sending)

[mpeplow]

This is the code that I am using.

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With OutMail
.To = "mpeplow@overstock.com"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = strbody
.Send 'or use .Display
End With

Set OutMail = Nothing
Set OutApp = Nothing

This automatically sends the email but how would I get it to do something like Application.Dialogs(xlDialogSendMail).Show with all of info in the email.

[funkymonkUK]

sorry i dont understand your question. do you want to view the email before it is sent?

[mpeplow]

YES! I could make a form to do it but I was wondering if excel has something built in to do it.

Application.Dialogs(xlDialogSendMail).Show

The code above brings up an new email waiting to be created using outlooks email editor.

SUM:I wan't the code I am using now to let me view and edit in outlook before actually sending the email.