Este es el CODE que tengo para enviar MAILs:
Código vb:
Ver original'EN UN MODULO
'Declaración de la funcion API para enviar correo electrónico
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
'PARA LLAMAR
Private Sub lblMail_Click()
Dim strMail as string, strPara as string, strCopia as string, strAsunto as string, strMensaje as string
strMail = "mailto:" & strPara _
& ";?CC=" & strCopia _
& "&Subject=" & strAsunto _
& "&Body=" & strMensaje
ShellExecute Me.hwnd, vbNullString, strMail, vbNullString, "c:\", 0
End Sub
Cargas las variables con los datos correspondientes, y se abre el cliente de correo que tengas instalado. En el mensaje, para bajar una linea (o ENTER) debes usar: %0A, ejemplo:
strMensaje="Hola!%0AComo estas?"
En el correo saldrá:
Hola!
Como estas?
Una vez esté todo cargado en el nuevo correo, solo tendrás que dar clic a enviar. Espero que te ayude.