locked
CDO.Message.1 error '80040220' RRS feed

  • Question

  • i chenged my code like :

     

    <%

    Dim contactName, email, companyName, phone, street, city, zip, website, state, comments, business, bestContactTime, mailSubject, fn, thefilename, isDownload, downloadText, siteAction

     

    contactName=Request.Form("Contact_Name")

    companyName=Request.Form("Company_Name")

    street=Request.Form("Street")

    city=Request.Form("City")

    state=Request.Form("State")

    zip=Request.Form("Zip")

    phone=Request.Form("phone")

    email=Request.Form("email")

    website=Request.Form("Website")

    bestContactTime=Request.Form("Best_Contact_Time")

    business=Request.Form("business")

    comments=Request.Form("Comments")

    fn=Request.Form("fn")

    isDownload="zero"

    downloadText=""

    mailSubject = "Information Request from Website"

    siteAction = "Information Request"


    If fn = "b" Then

     thefilename = "/dfiles/Small Business Manufacturing Brochure.pdf"

     isDownload="one"

     downloadText="Click here to download the file."

     siteAction = "Downloaded SBM Brochure"

    End If

    Dim myMail

       Set myMail = CreateObject("CDO.Message")

       myMail.Subject = mailSubject

       myMail.From = contactName & " <" & email & ">"

       myMail.To = "info@osbornecharles.com"

       myMail.TextBody = mailSubject & ""_ 

    & VBCrLf & VBCrLf & "Site Action: " & siteAction & ""_  

    & VBCrLf & VBCrLf & "Contact Name: " & contactName & ""_  

    & VBCrLf & "Company Name: " & companyName & ""_  

    & VBCrLf & VBCrLf & "Address: " & VBCrLf & street & ""_  

    & VBCrLf & city & ", " & state & " " & zip & ""_  

    & VBCrLf & VBCrLf & "Phone: " & phone & ""_  

    & VBCrLf & "Email: " & email & ""_  

    & VBCrLf & "Website: " & website & ""_  

    & VBCrLf & VBCrLf & "Best Contact Time: " & bestContactTime & ""_  

    & VBCrLf & "Interested Software: " & business & ""_  

    & VBCrLf & VBCrLf & "Comments: " & VBCrLf & comments & VBCrLf

     

         myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtpout.secureserver.net"

         myMail.Configuration.Fields.Update

         myMail.Send

         Set myMail = Nothing

    %>

    Let me know this is correct to find SMTP server name :

    Microsoft Outlook -> File ->Accounting Settings-> Name (myname) -> i went to Change account window -> i found SMTP server name : 

     

    Note: i try with this SMTP server name and again i got same error 

     

     

    CDO.Message.1 error '80040220'

    The "SendUsing" configuration value is invalid. 

    /confirm.asp, line  90

     


    kavitha
    Monday, November 14, 2011 1:27 PM