queen
16 de Julio del 2004

Hola!!!
Si me pudiesen ayudar... Necesito enviar un mail desde mi programa en VB6 como lo puedo hacer?

tecniCam
16 de Julio del 2004

Puedes hacerlo disponiendo de un OCX, por ejemplo éste: realmail.ocx

Deberás registrarlo desde Inicio -> Ejecutar y escribiendo esto:
regsvr32 realmail.ocx y luego Intro.

Ya puedes escribir el Mail según las instrucciones en inglés, así:
SendMail1 "mail.myserver.com","[email protected]","[email protected]","Me","Joe","About our meeting","Joe I can't make it for 3:00pm can we try for 4:30pm instead?"

Yo nunca lo he probado, pero si te sirve...
Por si lo encuentras en la red te lo envío a tu correo

Bartolom
16 de Julio del 2004

No sé si te servirá esta opción, pero puedes hacerlo invocando al OutLook Express

En un módulo bas, escribes lo sigueinte:

Public 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

En el formulario desde donde queieras mandar el mail,escribes:

Public Sub EjecutarOutlookExpr(F As Form, Email As String)
ShellExecute F.hWnd, vbNullString, "mailto:" + Email, vbNullString, vbNullString, vbNormalFocus
End Sub

y para abrir el mail haces lo siguiente.

Private Sub Command1_Click()
EjecutarOutlookExpr Me, text1
End Sub

dondeen text1 se escribe la dirección de correo y el command1 es el botón que ejecuta la acción

Saludos!
Bartolom
Chile