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.)

"Steve Cochran" <scochran@oehelp.com> wrote in message
news:ebgvgoVbHHA.260@TK2MSFTNGP02.phx.gbl...
> My guess its in this line:
>
>>> !cdoSendUsingMethod = cdoSendUsingPort
>
> steve
>
> "Tech_vs_Life" <limited@newsgroups.nospam> wrote in message
> news:%23GZttueaHHA.348@TK2MSFTNGP02.phx.gbl...
>> 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 = "SenderName@comcast.net"
>> 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 = "SenderName2@gmail.com"
>> 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 curious to know if you solved this. I think I'll be running into this
problem soon.

"Tech_vs_Life" wrote:

> 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.)
>
> "Steve Cochran" <scochran@xxxxxx> wrote in message
> news:ebgvgoVbHHA.260@xxxxxx

> > My guess its in this line:
> >

> >>> !cdoSendUsingMethod = cdoSendUsingPort

> >
> > steve
> >
> > "Tech_vs_Life" <limited@xxxxxx> wrote in message
> > news:%23GZttueaHHA.348@xxxxxx

> >> 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 = "SenderName@xxxxxx"
> >> 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 = "SenderName2@xxxxxx"
> >> 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
> >>
> >>

> >

>
>