Visual Basic - Pregunta Correo Electronico

Salu2

Hola me encuentro con una enorme duda me piden que desde un desarrollo al momento de guardar mande un correo electronico sin utilizar Outlook alguien sabe alguna otra forma de mandar correo electronico de favor (se aceptan sugerencias, recomendaciones, etc)

Gracias.

Puedes utilizar MAPI. En http://my.execpc.com/~dg/tutorial/howmapi/howmapi.htm tienes un pequeño tutorial.

También puedes utilizar SMTP, fijate en http://www.freevbcode.com/ShowCode.Asp?ID=109
que tienes un ejemplo.

Si tienes win200,xp,nt,95 puedes hacerlo mediante el componente de mensajería CDO (Collaboration Data Objects)

En el siguiente ejemplo utilizo el servidor smtp de yahoo para q se entieda mejor.
(Recuerda q en Yahoo este servicio lo tienes q activar antes )
=================================================================
Option Explicit

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic = 1
Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"
Const cdoSMTPUseSSL = "http://schemas.microsoft.com/cdo/configuration/smtpusessl"

Private Sub Command1_Click()
Dim iMsg
Set iMsg = CreateObject("CDO.Message")

'&& configuracion del servidor SMTP.
With iMsg.Configuration.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.correo.yahoo.es"
.Item(cdoSMTPConnectionTimeout) = 10
'&& Puerto
.Item(cdoSMTPServerPort) = 587
'&& Yahoo pide autentificacio
.Item(cdoSMTPAuthenticate) = cdoBasic
'&& en yahoo el username es tu correo sin @ y ni dominio
.Item(cdoSendUserName) = "jcbdr"
.Item(cdoSendPassword) = "TuPassword"
'&& Yahoo no necesita coneccion segura
.Item(cdoSMTPUseSSL) = False
iMsg.MDNRequested = True
.Update
End With

'&& Propiedades del mensaje
With iMsg
'&& correodeldestinatario
.To = "[email protected]"
'&& tu correo
.From = "[email protected]"
'&& asunto
.Subject = "Asunto prueba"
'&& cuerpo
.TextBody = "cuerpo del mensaje"
End With

'&&Si deseas puedes adjuntar un archivo.
'iMsg.AddAttachment ("file://" & StrRutaAdjunto)

'&&enviamos el mensaje.
iMsg.Send
Set iMsg = Nothing

End Sub
==================================================================

Saludos ..