Now I do, but it is not working properly either...
Messages sent to an email within my domain reach destination, but any other sent outside my domain are not delivered. The following error appears:
error '8004020f'
MyMail.Send
This is the code I am using, please let me know if there is some parameter to be changed for SMTP port configuration or others...
CODE
Set MyCon = Server.CreateObject("CDO.Configuration")
MyCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "tresuvesdobles.com"
MyCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
MyCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
MyCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
MyCon.Fields.Update
Set MyMail = Server.CreateObject("CDO.Message")
Set MyMail.Configuration = MyCon
MyMail.From = "mail@tresuvesdobles.com"
MyMail.To = "mail@externaldomain.com"
MyMail.Subject = "Subject"
MyMail.HTMLBody = "Body"
MyMail.Send
Set MyMail = nothing
Set MyCon = nothing
MyCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "tresuvesdobles.com"
MyCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
MyCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
MyCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
MyCon.Fields.Update
Set MyMail = Server.CreateObject("CDO.Message")
Set MyMail.Configuration = MyCon
MyMail.From = "mail@tresuvesdobles.com"
MyMail.To = "mail@externaldomain.com"
MyMail.Subject = "Subject"
MyMail.HTMLBody = "Body"
MyMail.Send
Set MyMail = nothing
Set MyCon = nothing
Thanks