Visual Basic - enviar un correo desde un formulario

Necesito saber como puedo llamar desde mi formulario a mi programa de correo electrónico que utilizo por defecto... mediante la intruccion SHELL puedo ejecutar una aplicación con una ubicación deteminada pero... ¿Y si la ruta es otra? o ¿Y si mi programa de correo no es el OUTLOOk (por ejemplo) y es el EXCHANGE?.... ayudarme por favor

Hola,

Este código hace lo que necesitas (coloca la declaración ShellExecute en un módulo de código):

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 Command1_Click()
Dim lRet As Long
lRet = ShellExecute(Me.hwnd, "Open", "mailto:[email protected]", _
vbNullString, App.Path, vbNormalFocus)
End Sub

Puedes especificar también el asunto y el cuerpo del mensaje:

mailto:[email protected]?subject=Asunto&body=Mensaje

Un saludo.

Pepe.

Hola,

Este código hace lo que necesitas (coloca la declaración ShellExecute en un módulo de código):

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 Command1_Click()
Dim lRet As Long
lRet = ShellExecute(Me.hwnd, "Open", "mailto:[email protected]", _
vbNullString, App.Path, vbNormalFocus)
End Sub

Puedes especificar también el asunto y el cuerpo del mensaje:

mailto:[email protected]?subject=Asunto&body=Mensaje

Un saludo.

Pepe.