just error 8004020f

Discussion in 'ASP General' started by vvv, Nov 5, 2003.

  1. vvv

    vvv Guest

    What's the meaning of this error?



    My code:

    myMailServer = "mail.telepac.pt"

    sch = "http://schemas.microsoft.com/cdo/configuration/"
    Set cdoConfig = Server.CreateObject("CDO.Configuration")
    cdoConfig.Fields.Item(sch & "sendusing") = 2
    cdoConfig.Fields.Item(sch & "smtpserver") = myMailServer
    cdoConfig.fields.update

    Set cdoMessage = Server.CreateObject("CDO.Message")
    Set cdoMessage.Configuration = cdoConfig

    Dim iBp
    Set iBp = cdoMessage.BodyPart

    With iBp
    .ContentMediaType = "text/html"
    .ContentTransferEncoding = "quoted-printable"
    Set Stm = .GetDecodedContentStream
    Stm.Flush
    End With

    html2="some text"


    contactos=mid(contactos,1,len(contactos)-1)

    cdoMessage.From = ""
    cdoMessage.Bcc = contactos
    cdoMessage.Subject = "server " & news_activo

    cdoMessage.HtmlBody = html2

    cdoMessage.Send
    vvv, Nov 5, 2003
    #1
    1. Advertising

  2. http://www.aspfaq.com/2305




    "vvv" <> wrote in message
    news:3fa947f5$0$6855$...
    > What's the meaning of this error?
    >
    >
    >
    > My code:
    >
    > myMailServer = "mail.telepac.pt"
    >
    > sch = "http://schemas.microsoft.com/cdo/configuration/"
    > Set cdoConfig = Server.CreateObject("CDO.Configuration")
    > cdoConfig.Fields.Item(sch & "sendusing") = 2
    > cdoConfig.Fields.Item(sch & "smtpserver") = myMailServer
    > cdoConfig.fields.update
    >
    > Set cdoMessage = Server.CreateObject("CDO.Message")
    > Set cdoMessage.Configuration = cdoConfig
    >
    > Dim iBp
    > Set iBp = cdoMessage.BodyPart
    >
    > With iBp
    > .ContentMediaType = "text/html"
    > .ContentTransferEncoding = "quoted-printable"
    > Set Stm = .GetDecodedContentStream
    > Stm.Flush
    > End With
    >
    > html2="some text"
    >
    >
    > contactos=mid(contactos,1,len(contactos)-1)
    >
    > cdoMessage.From = ""
    > cdoMessage.Bcc = contactos
    > cdoMessage.Subject = "server " & news_activo
    >
    > cdoMessage.HtmlBody = html2
    >
    > cdoMessage.Send
    >
    >
    Aaron Bertrand - MVP, Nov 5, 2003
    #2
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. alex

    CDO error 8004020f

    alex, Oct 3, 2003, in forum: ASP General
    Replies:
    4
    Views:
    185
  2. Paco
    Replies:
    4
    Views:
    418
    Jeff Cochran
    Mar 30, 2005
  3. Owen
    Replies:
    6
    Views:
    377
    Yan-Hong Huang[MSFT]
    Feb 20, 2004
  4. Luis

    8004020F error with CDO.Message

    Luis , Jul 27, 2004, in forum: ASP General
    Replies:
    1
    Views:
    341
    Rob Collyer
    Jul 27, 2004
  5. gariboldo

    error 8004020F

    gariboldo, Feb 2, 2005, in forum: ASP General
    Replies:
    0
    Views:
    106
    gariboldo
    Feb 2, 2005
Loading...

Share This Page