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.Sen d" one.
Can anyone help?
dim myMail, objConfig
Set myMail=CreateOb ject("CDO.Messa ge")
Set objConfig = Server.CreateOb ject("CDO.Confi guration")
myMail.Configur ation.Fields.It em _
("http://schemas.microso ft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configur ation.Fields.It em _
("http://schemas.microso ft.com/cdo/configuration/smtpserver") _
="mail.atlantic atch.ca"
'Server port
myMail.Configur ation.Fields.It em _
("http://schemas.microso ft.com/cdo/configuration/smtpserverport" ) _
=25
myMail.Configur ation.Fields.Up date
myMail.Subject= "Order Request From Your Website"
myMail.From= "From your Website <noreply@atlant icatch.ca>"
myMail.To= "remi@dicstudio s.ca"
myMail.Bcc="soc cerfan_333@hotm ail.com"
MyMail.HTMLBody = strBody
myMail.Send
error '8004020f'
/atlanticatch.ca/send_form.asp, line 78
Line 78 is the "MyMail.Sen d" one.
Can anyone help?
dim myMail, objConfig
Set myMail=CreateOb ject("CDO.Messa ge")
Set objConfig = Server.CreateOb ject("CDO.Confi guration")
myMail.Configur ation.Fields.It em _
("http://schemas.microso ft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configur ation.Fields.It em _
("http://schemas.microso ft.com/cdo/configuration/smtpserver") _
="mail.atlantic atch.ca"
'Server port
myMail.Configur ation.Fields.It em _
("http://schemas.microso ft.com/cdo/configuration/smtpserverport" ) _
=25
myMail.Configur ation.Fields.Up date
myMail.Subject= "Order Request From Your Website"
myMail.From= "From your Website <noreply@atlant icatch.ca>"
myMail.To= "remi@dicstudio s.ca"
myMail.Bcc="soc cerfan_333@hotm ail.com"
MyMail.HTMLBody = strBody
myMail.Send
Comment