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 = "[email protected];[email protected];[email protected]"
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") = "[email protected]"
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
Dim oMsg As CDO.Message
Set oMsg = New CDO.Message
oMsg.From = "Helpdesk"
oMsg.To = "[email protected];[email protected];[email protected]"
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") = "[email protected]"
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
0