Visual Basic - enviar correo a direcciones yahoo,hotmail o gmail

Life is soft - evento anual de software empresarial
   
Vista:

enviar correo a direcciones yahoo,hotmail o gmail

Publicado por dipat (7 intervenciones) el 23/05/2008 23:32:42
Holas Miren este código que encontré, el correo sale para la red interna de la compañí, pero si quiero enviarlo a direcciones gmail por ejemplo no sale, que debo hacer?

Dim oMsg As CDO.Message
Set oMsg = New CDO.Message
oMsg.From = "Helpdesk"
oMsg.To = "dianadesousa@hotmail.com;diana.xd.de.sousa@ericsson.com;dianinha712@gamil.com"
oMsg.Subject = "CdoSys HTML mail in VB.NET (pickup)"

Dim sHtml As String
sHtml = "<HTML>" & _
"<HEAD>" & _
"<TITLE>Simple CDOSYS Message</TITLE>" & _
"</HEAD>" & _
"<BODY><P>" & _
"<h1><Font Color=Green>Simple CDOSYS HTML Message</Font></h1>" & _
"</BODY>" & _
"</HTML>"

oMsg.HTMLBody = sHtml

' Set configuration.
Dim iConfg As CDO.Configuration
Set iConfg = New CDO.Configuration

Dim oFields As ADODB.Fields
Set oFields = iConfg.Fields

Dim oField As ADODB.Field
Set oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
oField.Value = 1 ' Sets the configuration to use the local SMTP server.
iConfg.Fields(cdoSMTPServer) = "smtp.gmail.com"
'iConfg.Fields(cdoSendUsingMethod) = 2
iConfg.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
'iConfg.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = Abs(1)
'iConfg.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
iConfg.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "micuenta@gmail.com"
iConfg.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mipass"
'iConfg.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1



oFields.Update
oMsg.Configuration = iConfg

oMsg.Send

Set oMsg = Nothing
Set iConfg = Nothing
Set oFields = Nothing
Set oField = Nothing
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:enviar correo a direcciones yahoo,hotmail o gma

Publicado por dipat (7 intervenciones) el 28/05/2008 18:30:32
Ayudenme no veo la manera de que salgan estos mails a direcciones gmail, yahoo y hotmail :(
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar