Set Mail = CreateObject(“CDO.Message”) not woking

See more:

ASP

VBScript

email

message

My email form worked correctly in the past, but starting of today this error message is displayed after the form is submitted and no email is sent:

error '80070008'
/ho/ewdisp000.asp, line 378

This is how the messages were sent:

 <%

Set Mail = CreateObject("CDO.Message")   // line 378
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.gmail.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="xxx@domain.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password"

Mail.Configuration.Fields.Update

Mail.Subject= "Subject"
Mail.From="xxx@domain.com"
Mail.To="xxx@domain.com" 
Mail.TextBody="Thank you for your feedback"  
Mail.Send 
Set Mail = Nothing

%>