Mail Form Problem

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • Halfagain
    New Member
    • Jul 2006
    • 1

    Mail Form Problem

    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
  • sashi
    Recognized Expert Top Contributor
    • Jun 2006
    • 1749

    #2
    Hi there,

    nice try buddy.. pls do not attempt "CnP" cut n paste technology here.. as i have mentioned in few of my replies.. we do not help anyone to write code, instead we help ppl to debug their code..



    Code:
    <%
    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 = "YOUR BODY MESSAGE"
    myMail.Send
    %>
    p/s pls show us what u have done and we will try to debug it for you.. good luck my fren.. :)

    Comment

    Working...