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