Sending emails through CDO

Sending emails through CDO

Hi there,
I am trying to send emails from my web site, using the Zoho SMTP as my domain mail is configured here.

This is how I have set the function up:

                 Dim config
Dim sch
Set config = CreateObject("CDO.Configuration")
sch = "http://schemas.microsoft.com/cdo/configuration/"
With config.Fields
.item(sch & "sendusing") = 2
.item(sch & "smtpserver") = "smtp.zoho.com"
.item(sch & "smtpserverport") = 465
.item(sch & "sendusername") = "info@myDomainName.it"
.item(sch & "sendpassword") = "myPassword"
.item(sch & "smtpauthenticate") = 1
.item(sch & "smtpusessl") = true
 
.update
End With

For some reasons I am not able to send, I got an error: error '80040211'

Any idea?

Regards,









D: