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

  • Thread starter Thread starter Tech_vs_Life
  • Start date Start date
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
 
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
 
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?
 
Yes, it seems either something broke in cdosys with vista, or vista requires
some peculiar, new, & unknown configuration change to get it to work.
 
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
Click to expand...
 
Back
Top