I am having a problem with this code here. It is giving me the following error:
error '8004020f'
/atlanticatch.ca/send_form.asp, line 78
Line 78 is the "MyMail.Send" one.
Can anyone help?
dim myMail, objConfig
Set myMail=CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="mail.atlanticatch.ca"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Subject="Order Request From Your Website"
myMail.From= "From your Website <noreply@atlanticatch.ca>"
myMail.To= "remi@dicstudios.ca"
myMail.Bcc="soccerfan_333@hotmail.com"
MyMail.HTMLBody = strBody
myMail.Send