Enviar mail desde VB6 a traves del outlook

[Kitty_05]

Buenos dias Chicos!!

Tengo una duda, deseo enviar mail cuando doy click a un boton dentro de mi aplicacion...
Ya logro que con esta sentencia se me ejecute el outlook, el detalle es que aora quiero que cuando salga el outlook ya tenga informacion escrita dentro del cuerpo del email...
Me guian ?

Código:

Private 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

'Y luego esto en un boton:
ShellExecute hwnd, "open", "mailto:" & Form1.mail , vbNullString, vbNullString, SW_SHOW

[David]

Puedes hacerlo así:

Código:

 
ShellExecute 0, "open", "mailto:[email protected]?body=Mensaje&Subject=Titulo", vbNullString, vbNullString, SW_SHOW

Saludos

[Kitty_05]

ShellExecute 0, "open", "mailto:[email protected]?body=Mensaje&Subject=Titulo" , vbNullString, vbNullString, SW_SHOW


La sentencia hace perfecto lo que necesito, solo que al mail onde lo reenviara debe estar en una variable que viene del a form1 .. en tal caso seria Form1.mail

Me guias!?

[David]

Iniciado por Kitty_05

ShellExecute 0, "open", "mailto:[email protected]?body=Mensaje&Subject=Titulo" , vbNullString, vbNullString, SW_SHOW


La sentencia hace perfecto lo que necesito, solo que al mail onde lo reenviara debe estar en una variable que viene del a form1 .. en tal caso seria Form1.mail

Me guias!?

Código:

 
"mailto:" & Form1.Mail & "?body=Mensaje&Subject=Título"

[Kitty_05]

Me manda error corazon. El VB6 lo pone en rojo!

[David]

Iniciado por Kitty_05

Me manda error corazon. El VB6 lo pone en rojo!

Debes colocar la línea entera, es que solo coloqué la parte que correspondía a tu pregunta, la línea completa sería:

Código:

 
ShellExecute hWnd, "open", "mailto:" & Form1.Mail & "?body=Mensaje&Subject=Titulo" , vbNullString, vbNullString, SW_SHOW

[Kitty_05]

Ya lo logre
te dejo el codigo de como solucione ...

Código:

ShellExecute hwnd, "open", "mailto:" & Form1.mail & "?body=Se ha creado la prevision " & Num_doc.Text & "&Subject=Requisicion Creada" & Num_doc.Text, vbNullString, vbNullString, SW_SHOW