just error 8004020f

[vvv]

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 = "(e-mail address removed)"
cdoMessage.Bcc = contactos
cdoMessage.Subject = "server " & news_activo

cdoMessage.HtmlBody = html2

cdoMessage.Send

 

[Aaron Bertrand - MVP]

http://www.aspfaq.com/2305