🚀 go-pugleaf

E-mail from within VB

Hello all,

I am looking for a way to send an email from within VB. I have tried using
something like:

Public Sub RunShellExecute(sTopic As String, sFile As Variant, _
sParams As Variant, sDirectory As Variant, _
nShowCmd As Long)

Dim hWndDesk As Long
Dim success As Long

hWndDesk = GetDesktopWindow()

success = ShellExecute(hWndDesk, sTopic, sFile, sParams, sDirectory,
nShowCmd)

'End If

End Sub

Private Sub Command1_Click()

Unload Me
End Sub

Private Sub Form_Load()

Dim sTopic As String
Dim sFile As String
Dim sParams As Variant
Dim sDirectory As Variant

sTopic = "Open"
sFile = "mailto:quesnelj@homemail.com"
sParams = 0&
sDirectory = 0&

Call RunShellExecute(sTopic, sFile, sParams, sDirectory, SW_SHOWNORMAL)

End Sub

This seams to work well, however it does not allow me to set the subject
line, nor the body of the message from within VB.

So, I guess I'm looking for a similar solution, that will allow me set all
field from within VB, and optionally have the message sent without user
intervention. This solution should also work regardless of email program
used, outlook or netscape.

Sine I really don't visit this news group often, I would appreciate if
people could reply to me via email, at quesnelj@homemail.com .

Thanks,

Jacques