Tengo un aplicacion directorio en asp que en el anterior host me funcionaba ok. Tenia soporte para cdonts. Al cambiar de host este no tiene soporte para cdonts sino para cdsoys.
A ver si por favor me podrias echar una mano ya que en el select del email he implementado el siguiente código:
'CDOSYS CODE STARTS HERE
Case "cdosys"
Set msg = CreateObject("CDO.Message")
msg.Subject = SubjectText
msg.From = OwnerFromEmail
msg.To = ToAddress
If ccAddress <> "" Then msg.Cc = ccAddress
If bccAddress <> "" Then msg.Bcc = bccAddress
msg.TextBody = EmailBodyText
'SERVER SETTINGS / AUTHENTICATION
If Application(COMPANYNAME & "SMTPUserName") <> "" Then
'REMOTE SMTP WITH SMTP AUTHENTICATION
msg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
msg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp.portal.jwebmasters.org
'Type of authentication, NONE, Basic (Base64 encoded), NTLM - 1 = Basic
msg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'Your UserID on the SMTP server
msg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = p589745
Application(COMPANYNAME & "SMTPUserName")
'Your password on the SMTP server
msg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = d1245687
Application(COMPANYNAME & "SMTPPassword")
'Server port (typically 25)
msg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Use SSL for the connection (False or True)
msg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
'Connection Timeout in seconds (the maximum time CDO will try to establish
a connection to the SMTP server)
msg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") =
60
msg.Configuration.Fields.Update
'==End remote SMTP server configuration section==
End If ' Application(COMPANYNAME & "SMTPUserName")
msg.Send
'CODE ENDS HERE
Gracias
NO tengo muy claro el tipo de 'Type of authentication, NONE, Basic (Base64 encoded), NTLM - 1
