cdo SMTP errors in Vista -- (worked) in XP

T

Tech_vs_Life

After switching from XP to Vista, I'm having problems with some code that
makes use of cdo (I'm using my ISP email account to send mail via smtp).

Initially I got back an error:
The 'SendUsing' configuration value is invalid.

But after configuring Windows mail and Outlook with the email account (a
step that used to resolve cdo problems on XP), the same code produced an
entirely different error:

Error reported: -2147220975. The message could not be sent to the SMTP
Server. The transport error code was 0x80040217. The server response was
not available.

Sending via Windows mail or Outlook works fine, but I need to send via cdo
code.

Note that this code worked fine in XP. The code is as follows (I've already
tried setting cdoSMTPUseSSL to false, but it didn't help.):

Const ksFrom As String = "(e-mail address removed)"
Dim oCfg As cdo.Configuration
Dim oMsg As cdo.Message

Set oCfg = New cdo.Configuration
With oCfg.Fields
!cdoSendUsingMethod = cdoSendUsingPort
!cdoSMTPServer = "smtp.comcast.net"
!cdoSMTPServerPort = 25
!cdoSMTPConnectionTimeout = 120
!cdoSMTPAuthenticate = cdoBasic
!cdoSMTPUseSSL = True
!cdoSendUserName = "SenderName"
!cdoSendPassword = "password"
.Update
End With
Set oMsg = New cdo.Message
With oMsg
Set .Configuration = oCfg
.To = sTo
.From = ksFrom
.Sender = ksFrom
.Subject = sSubject
.ReplyTo = "(e-mail address removed)"
If Len(sCC) Then .CC = sCC
If Len(sBCC) Then .BCC = sBCC
If Len(sFileName) Then .AddAttachment sFileName
If Len(sMsg) Then .TextBody = sMsg
.Send
End With
Set oMsg = Nothing
Set oCfg = Nothing
EmailDocs = True
Exit Function
 
R

Rick489

I'm having the same problem using my host provider's package. It provided no
3rd party product. I've isolated the problem as being with both .Update and
..Send
 
T

Tech_vs_Life

Yes, I can telnet to the comcast smtp server. I can also smtp email via
blat. But cdosys is no longer working in vista, with identical code, that
used to work in xp. Is it possible the removal of the smtp server in vista
has something to do with the problem?
 
T

Tech_vs_Life

Yes, it seems either something broke in cdosys with vista, or vista requires
some peculiar, new, & unknown configuration change to get it to work.
 
S

Steve Cochran

My guess its in this line:

steve

Tech_vs_Life said:
After switching from XP to Vista, I'm having problems with some code that
makes use of cdo (I'm using my ISP email account to send mail via smtp).

Initially I got back an error:
The 'SendUsing' configuration value is invalid.

But after configuring Windows mail and Outlook with the email account (a
step that used to resolve cdo problems on XP), the same code produced an
entirely different error:

Error reported: -2147220975. The message could not be sent to the SMTP
Server. The transport error code was 0x80040217. The server response was
not available.

Sending via Windows mail or Outlook works fine, but I need to send via cdo
code.

Note that this code worked fine in XP. The code is as follows (I've
already
tried setting cdoSMTPUseSSL to false, but it didn't help.):

Const ksFrom As String = "(e-mail address removed)"
Dim oCfg As cdo.Configuration
Dim oMsg As cdo.Message

Set oCfg = New cdo.Configuration
With oCfg.Fields
!cdoSendUsingMethod = cdoSendUsingPort
!cdoSMTPServer = "smtp.comcast.net"
!cdoSMTPServerPort = 25
!cdoSMTPConnectionTimeout = 120
!cdoSMTPAuthenticate = cdoBasic
!cdoSMTPUseSSL = True
!cdoSendUserName = "SenderName"
!cdoSendPassword = "password"
.Update
End With
Set oMsg = New cdo.Message
With oMsg
Set .Configuration = oCfg
.To = sTo
.From = ksFrom
.Sender = ksFrom
.Subject = sSubject
.ReplyTo = "(e-mail address removed)"
If Len(sCC) Then .CC = sCC
If Len(sBCC) Then .BCC = sBCC
If Len(sFileName) Then .AddAttachment sFileName
If Len(sMsg) Then .TextBody = sMsg
.Send
End With
Set oMsg = Nothing
Set oCfg = Nothing
EmailDocs = True
Exit Function
 
T

Tech_vs_Life

Thanks. I tried changing that, but it makes no difference. (Also, the
correct value really is cdoSendUsingPort--unless there's been an unexpected
change in Vista.)
 
D

David Mueller

I'm curious to know if you solved this. I think I'll be running into this
problem soon.
 

Ask a Question

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

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top