Correo a través de VB 6 sin usar SMTP
Publicado por Dipat (7 intervenciones) el 16/05/2008 22:11:37
Holas!
Tengo el siguiente código en el que envio un correo a la red interna de donde trabajo, pero cuando quiero enviar un correo a una dirección de hotmail, gmail o yahoo no puedo el mail se queda en esta carpeta C:InetpubmailrootQueue y de allí no sale.
Primero agregué esta referencia Microsoft CDO for windows 2000 Library
Dim cd As CDO.Message
Set cd = New CDO.Message
'Se le asigna el cuerpo del mensaje con los datos de los tickets
xFrom="De quien"
xTo="[email protected]"
xSubject="Asunto"
xTextBody = "Aqui va el cuerpo"
'Aqui se arma el correo
'de quien
cd.From = xFrom
'para quien
cd.To = xTo
'Asunto
cd.Subject = xSubject
'Cuerpo del mensaje
cd.TextBody = xTextBody
'envia el correo
cd.Send
'destruye el objeto
Set cd = Nothing
He visto mucho que hay que configurar un SMTP y no se que más pero no quisiera meterme en ese rollo. Que tengo que hacer para que funcione para ese tipo de direcciones (hotmail, yahoo y gmail) sin usar SMTP
Saludos
Tengo el siguiente código en el que envio un correo a la red interna de donde trabajo, pero cuando quiero enviar un correo a una dirección de hotmail, gmail o yahoo no puedo el mail se queda en esta carpeta C:InetpubmailrootQueue y de allí no sale.
Primero agregué esta referencia Microsoft CDO for windows 2000 Library
Dim cd As CDO.Message
Set cd = New CDO.Message
'Se le asigna el cuerpo del mensaje con los datos de los tickets
xFrom="De quien"
xTo="[email protected]"
xSubject="Asunto"
xTextBody = "Aqui va el cuerpo"
'Aqui se arma el correo
'de quien
cd.From = xFrom
'para quien
cd.To = xTo
'Asunto
cd.Subject = xSubject
'Cuerpo del mensaje
cd.TextBody = xTextBody
'envia el correo
cd.Send
'destruye el objeto
Set cd = Nothing
He visto mucho que hay que configurar un SMTP y no se que más pero no quisiera meterme en ese rollo. Que tengo que hacer para que funcione para ese tipo de direcciones (hotmail, yahoo y gmail) sin usar SMTP
Saludos
Valora esta pregunta


0