Launch Outlook's Send Msg dialog, but no send

[vbmom]

Thank you Lafor & HeSaidJoe for helping me out on my last Outlook question. Here's another one for you or any one of you children out there...

Without using an API call (anyone know if we're privy to one?) how can you get the Send-to dialog displayed so the user can have control to edit/send/save/cancel?

[Lafor]

do u want to just start outlook?

If so, find the path and shell it

shell "C:\Program Files\Microsoft Office\Office\Outlook.exe"

That's the path where mine is..

[Lafor]

VBMOM,

Just in case you did not want to launch outlook

' Create new message
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
.To = "[email protected]"

.Subject = "This is a test"

.Body = "Dear Mr/Mrs VB" & vbNewLine
.Body = .Body & "This automated email is to tell you"
.Body = .Bo0dy & "...that you started on " & vbnewline

'here is the key
.Display 1

end with

[vbmom]

Thank you so much. I shoulda looked in the object browser for methods, huh...

[vbmom]

Thank you, that worked great. I have another problem with ShellExecute I'm posting separately. Thanks for your help again!