Velocity Reviews

Velocity Reviews (http://www.velocityreviews.com/forums/index.php)
-   ASP General (http://www.velocityreviews.com/forums/f65-asp-general.html)
-   -   just error 8004020f (http://www.velocityreviews.com/forums/t791423-just-error-8004020f.html)

vvv 11-05-2003 06:59 PM

just error 8004020f
 
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 = "geral@server.com"
cdoMessage.Bcc = contactos
cdoMessage.Subject = "server " & news_activo

cdoMessage.HtmlBody = html2

cdoMessage.Send



Aaron Bertrand - MVP 11-05-2003 07:02 PM

Re: just error 8004020f
 
http://www.aspfaq.com/2305




"vvv" <v@v.pt> wrote in message
news:3fa947f5$0$6855$a729d347@news.telepac.pt...
> 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 = "geral@server.com"
> cdoMessage.Bcc = contactos
> cdoMessage.Subject = "server " & news_activo
>
> cdoMessage.HtmlBody = html2
>
> cdoMessage.Send
>
>





All times are GMT. The time now is 03:11 AM.

Powered by vBulletin®. Copyright ©2000 - 2014, vBulletin Solutions, Inc.
SEO by vBSEO ©2010, Crawlability, Inc.