Enviar un mail con Visual Basic 6

[manoloburgos]

¿Sabéis cómo se puede mandar un mail desde una aplicación Visual Basic 6.0?

Gracias.

[Eternal Idol]

Usando sockets.

[drn r]

Hola,

Puedes utilizar los objetos MAPISession y MAPIMessages.
A continuacion te especifico una funcion que envia un email. Espero que te sirva..

Public Function Manda_Correo(mensaje As String, asunto As String, _
sesion As MAPISession, correo As MAPIMessages) As Boolean
On Error GoTo Depurar
Dim appOutlook As Object
Dim emailItem As Object
sesion.UserName = "Microsoft Outlook"
sesion.NewSession = True
sesion.DownLoadMail = False
sesion.SignOn
With correo
.SessionID = sesion.SessionID
.MsgIndex = -1
.RecipAddress = "[email protected]"
.RecipDisplayName = "[email protected]"
.MsgSubject = asunto
.MsgNoteText = mensaje
.Send
End With
sesion.SignOff
Manda_Correo = True
Exit Function
Depurar:
Call funDepurar("Manda_Correo", "frmCursoInteres")
End Function