Send to Email recipient in VB

[renevillegasr]

Hi, I need to do the same as Windows Explorer Send to....Email recipient command.

Do you now how?

For ex. I launch a html file using shell command as follow:

Shell "rundll32.exe url.dll,FileProtocolHandler file://" & archivo, vbMaximizedFocus

but I need to do the same to attach a file in new email message....

Thanks.

[space_monkey]

Option Explicit
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
 ByVal lpOperation As String, _
 ByVal lpFile As String, _
 ByVal lpParameters As String, _
 ByVal lpDirectory As String, _
 ByVal nShowCmd As Long) As Long
 
private sub MyMail()
 
ShellExecute 0, "open", "mailto:" & strMessage, "", "", SW_MINIMIZE
 
end sub

Where strMessage is your html Message with all the proper html markings for TO:, subject, and body.

HTH

[baja_yu]

Also, it would be much easier to open the webpage using ShellExecute. Something like this:

ShellExecute 0, "open", "http://www.google.com", "", "", SW_MAXIMIZE

[renevillegasr]

Thanks, but what's up with the attachment?

[baja_yu]

You mean how to include it automatically uppon shelling?

[Jon_G]

This worked for me when I was trying to send email in vb

CLick Here