CDO_send can't communicate with smtp server

[Art Parra]

The following code has been running for several months but now it fails
to send with the following error:

"The transport failed to connect to the server"

My smtp server appears to be ok because I can send mail, maybe a MS
security patch?

thanks,

Sub CDO_Send_Chart()


Dim iMsg As Object
Dim iConf As Object
Dim wb As Workbook
Dim WBname As String

Application.ScreenUpdating = False


Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "my smtp mail server"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

'Check out the Tips section if you want to change the .To and .TextBody
With iMsg
Set .Configuration = iConf

.To = "mylist"
.CC = ""
.BCC = ""
.From = "me"
.Subject = "my subject"
.TextBody = "some text"
.AddAttachment "D:\Public\mychart.gif"
.Send
End With


Set iMsg = Nothing
Set iConf = Nothing

End Sub



--
Art Parra

[Ron de Bruin]

Hi Art

Maybe you Firewall is blocking it


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Art Parra" <259782@pilot.fedex.com> wrote in message news:41EE8467.5000507@pilot.fedex.com...
The following code has been running for several months but now it fails to send with the following error:

"The transport failed to connect to the server"

My smtp server appears to be ok because I can send mail, maybe a MS security patch?

thanks,


Sub CDO_Send_Chart()


Dim iMsg As Object
Dim iConf As Object
Dim wb As Workbook
Dim WBname As String

Application.ScreenUpdating = False


Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "my smtp mail server"
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

'Check out the Tips section if you want to change the .To and ..TextBody
With iMsg
Set .Configuration = iConf

.To = "mylist"
.CC = ""
.BCC = ""
.From = "me"
.Subject = "my subject"
.TextBody = "some text"
.AddAttachment "D:\Public\mychart.gif"
.Send
End With


Set iMsg = Nothing
Set iConf = Nothing

End Sub



--
Art Parra

[Ron de Bruin]

Hi Art

I have changed my settings in the Trend-Micro firewall to avoid your error for example.
I don't believe you have to change the settings in the XP firewall ?

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Art Parra" <259782@pilot.fedex.com> wrote in message news:41EE8467.5000507@pilot.fedex.com...
The following code has been running for several months but now it fails to send with the following error:

"The transport failed to connect to the server"

My smtp server appears to be ok because I can send mail, maybe a MS security patch?

thanks,


Sub CDO_Send_Chart()


Dim iMsg As Object
Dim iConf As Object
Dim wb As Workbook
Dim WBname As String

Application.ScreenUpdating = False


Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "my smtp mail server"
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

'Check out the Tips section if you want to change the .To and ..TextBody
With iMsg
Set .Configuration = iConf

.To = "mylist"
.CC = ""
.BCC = ""
.From = "me"
.Subject = "my subject"
.TextBody = "some text"
.AddAttachment "D:\Public\mychart.gif"
.Send
End With


Set iMsg = Nothing
Set iConf = Nothing

End Sub



--
Art Parra

[Art Parra]

Ron,
First, let me thank you for your code, it has worked like a champ for a
long time.
I'm running Windows 2000 Pro and to my knowledge I don't have any
firewall setup on the workstation. Is there a way to test the
connection to the smtp server?

thanks,

Ron de Bruin wrote:

> Hi Art
>
> I have changed my settings in the Trend-Micro firewall to avoid your
> error for example.
> I don't believe you have to change the settings in the XP firewall ?
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
>
>
> "Art Parra" <259782@pilot.fedex.com
> <mailto:259782@pilot.fedex.com>> wrote in message
> news:41EE8467.5000507@pilot.fedex.com...
> The following code has been running for several months but now it
> fails to send with the following error:
>
> "The transport failed to connect to the server"
>
> My smtp server appears to be ok because I can send mail, maybe a
> MS security patch?
>
> thanks,
>
>Sub CDO_Send_Chart()
>
>
> Dim iMsg As Object
> Dim iConf As Object
> Dim wb As Workbook
> Dim WBname As String
>
> Application.ScreenUpdating = False
>
>
> Set iMsg = CreateObject("CDO.Message")
> Set iConf = CreateObject("CDO.Configuration")
>
> iConf.Load -1 ' CDO Source Defaults
> Set Flds = iConf.Fields
> With Flds
> .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "my smtp mail server"
> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
> .Update
> End With
>
> 'Check out the Tips section if you want to change the .To and .TextBody
> With iMsg
> Set .Configuration = iConf
>
> .To = "mylist"
> .CC = ""
> .BCC = ""
> .From = "me"
> .Subject = "my subject"
> .TextBody = "some text"
> .AddAttachment "D:\Public\mychart.gif"
> .Send
> End With
>
>
> Set iMsg = Nothing
> Set iConf = Nothing
>
>End Sub
>
>
>
>
>--
>Art Parra
>
>
>

--
Art Parra
Sr. Flight Ops. Research Analyst
Ph: 901-224-5116 Fax:901-224-6473

[Ron de Bruin]

Hi Art

Check out with your IT department.
Maybe they close some ports

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Art Parra" <259782@pilot.fedex.com> wrote in message news:41EEB034.6070807@pilot.fedex.com...
Ron,
First, let me thank you for your code, it has worked like a champ for a long time.
I'm running Windows 2000 Pro and to my knowledge I don't have any firewall setup on the workstation. Is there a way to test the connection to the smtp server?

thanks,

Ron de Bruin wrote:

Hi Art

I have changed my settings in the Trend-Micro firewall to avoid your error for example.
I don't believe you have to change the settings in the XP firewall ?

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Art Parra" <259782@pilot.fedex.com> wrote in message news:41EE8467.5000507@pilot.fedex.com...
The following code has been running for several months but now it fails to send with the following error:

"The transport failed to connect to the server"

My smtp server appears to be ok because I can send mail, maybe a MS security patch?

thanks,


Sub CDO_Send_Chart()


Dim iMsg As Object
Dim iConf As Object
Dim wb As Workbook
Dim WBname As String

Application.ScreenUpdating = False


Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "my smtp mail server"
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

'Check out the Tips section if you want to change the .To and ..TextBody
With iMsg
Set .Configuration = iConf

.To = "mylist"
.CC = ""
.BCC = ""
.From = "me"
.Subject = "my subject"
.TextBody = "some text"
.AddAttachment "D:\Public\mychart.gif"
.Send
End With


Set iMsg = Nothing
Set iConf = Nothing

End Sub



--
Art Parra



--
Art Parra
Sr. Flight Ops. Research Analyst
Ph: 901-224-5116 Fax:901-224-6473

[MVM]

Hi Ron:
I am trying to use your code, but fails with error message..

"The transport failed to connect to the server"
I tried at home where I use comcast hsi.
--------------------------
With Flds

..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"smtp.comcast.net"

..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
----------------


any advice is appreciated. Don't we need a user id + pw to use comcast. I
am on internet assures this?

MVM


"Ron de Bruin" wrote:

> Hi Art
>
> Check out with your IT department.
> Maybe they close some ports
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
>
> "Art Parra" <259782@pilot.fedex.com> wrote in message news:41EEB034.6070807@pilot.fedex.com...
> Ron,
> First, let me thank you for your code, it has worked like a champ for a long time.
> I'm running Windows 2000 Pro and to my knowledge I don't have any firewall setup on the workstation. Is there a way to test the connection to the smtp server?
>
> thanks,
>
> Ron de Bruin wrote:
>
> Hi Art
>
> I have changed my settings in the Trend-Micro firewall to avoid your error for example.
> I don't believe you have to change the settings in the XP firewall ?
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
>
> "Art Parra" <259782@pilot.fedex.com> wrote in message news:41EE8467.5000507@pilot.fedex.com...
> The following code has been running for several months but now it fails to send with the following error:
>
> "The transport failed to connect to the server"
>
> My smtp server appears to be ok because I can send mail, maybe a MS security patch?
>
> thanks,
>
>
> Sub CDO_Send_Chart()
>
>
> Dim iMsg As Object
> Dim iConf As Object
> Dim wb As Workbook
> Dim WBname As String
>
> Application.ScreenUpdating = False
>
>
> Set iMsg = CreateObject("CDO.Message")
> Set iConf = CreateObject("CDO.Configuration")
>
> iConf.Load -1 ' CDO Source Defaults
> Set Flds = iConf.Fields
> With Flds
> ..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
> ..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "my smtp mail server"
> ..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
> .Update
> End With
>
> 'Check out the Tips section if you want to change the .To and ..TextBody
> With iMsg
> Set .Configuration = iConf
>
> .To = "mylist"
> .CC = ""
> .BCC = ""
> .From = "me"
> .Subject = "my subject"
> .TextBody = "some text"
> .AddAttachment "D:\Public\mychart.gif"
> .Send
> End With
>
>
> Set iMsg = Nothing
> Set iConf = Nothing
>
> End Sub
>
>
>
> --
> Art Parra
>
>
>
> --
> Art Parra
> Sr. Flight Ops. Research Analyst
> Ph: 901-224-5116 Fax:901-224-6473
>
>

[Ron de Bruin]

hi MVM

I don't know about comcast.
Have you check your firewal ? (give Excel permission to send)

You can read this
http://msdn.microsoft.com/library/de..._interface.asp


--
Regards Ron de Bruin
http://www.rondebruin.nl



"MVM" <MVM@discussions.microsoft.com> wrote in message news:4BF51420-2156-4FBF-8F42-E622B59A14B4@microsoft.com...
> Hi Ron:
> I am trying to use your code, but fails with error message..
>
> "The transport failed to connect to the server"
> I tried at home where I use comcast hsi.
> --------------------------
> With Flds
>
> .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
>
> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
> "smtp.comcast.net"
>
> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
> .Update
> End With
> ----------------
>
>
> any advice is appreciated. Don't we need a user id + pw to use comcast. I
> am on internet assures this?
>
> MVM
>
>
> "Ron de Bruin" wrote:
>
>> Hi Art
>>
>> Check out with your IT department.
>> Maybe they close some ports
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>>
>> "Art Parra" <259782@pilot.fedex.com> wrote in message news:41EEB034.6070807@pilot.fedex.com...
>> Ron,
>> First, let me thank you for your code, it has worked like a champ for a long time.
>> I'm running Windows 2000 Pro and to my knowledge I don't have any firewall setup on the workstation. Is there a way to test
>> the connection to the smtp server?
>>
>> thanks,
>>
>> Ron de Bruin wrote:
>>
>> Hi Art
>>
>> I have changed my settings in the Trend-Micro firewall to avoid your error for example.
>> I don't believe you have to change the settings in the XP firewall ?
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>>
>> "Art Parra" <259782@pilot.fedex.com> wrote in message news:41EE8467.5000507@pilot.fedex.com...
>> The following code has been running for several months but now it fails to send with the following error:
>>
>> "The transport failed to connect to the server"
>>
>> My smtp server appears to be ok because I can send mail, maybe a MS security patch?
>>
>> thanks,
>>
>>
>> Sub CDO_Send_Chart()
>>
>>
>> Dim iMsg As Object
>> Dim iConf As Object
>> Dim wb As Workbook
>> Dim WBname As String
>>
>> Application.ScreenUpdating = False
>>
>>
>> Set iMsg = CreateObject("CDO.Message")
>> Set iConf = CreateObject("CDO.Configuration")
>>
>> iConf.Load -1 ' CDO Source Defaults
>> Set Flds = iConf.Fields
>> With Flds
>> ..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
>> ..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "my smtp mail server"
>> ..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
>> .Update
>> End With
>>
>> 'Check out the Tips section if you want to change the .To and ..TextBody
>> With iMsg
>> Set .Configuration = iConf
>>
>> .To = "mylist"
>> .CC = ""
>> .BCC = ""
>> .From = "me"
>> .Subject = "my subject"
>> .TextBody = "some text"
>> .AddAttachment "D:\Public\mychart.gif"
>> .Send
>> End With
>>
>>
>> Set iMsg = Nothing
>> Set iConf = Nothing
>>
>> End Sub
>>
>>
>>
>> --
>> Art Parra
>>
>>
>>
>> --
>> Art Parra
>> Sr. Flight Ops. Research Analyst
>> Ph: 901-224-5116 Fax:901-224-6473
>>
>>

[Jon Peltier]

I was having trouble with a similar routine. I suspected the Windows XP SR2 upgrade,
but if you're running Windows 2000, that probably wasn't it. Now I guess I need to
check ZoneAlarm.

- Jon
_______

Art Parra wrote:

> Ron,
> First, let me thank you for your code, it has worked like a champ for a
> long time.
> I'm running Windows 2000 Pro and to my knowledge I don't have any
> firewall setup on the workstation. Is there a way to test the
> connection to the smtp server?
>
> thanks,
>
> Ron de Bruin wrote:
>
>> Hi Art
>>
>> I have changed my settings in the Trend-Micro firewall to avoid your
>> error for example.
>> I don't believe you have to change the settings in the XP firewall ?
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>>
>>
>> "Art Parra" <259782@pilot.fedex.com
>> <mailto:259782@pilot.fedex.com>> wrote in message
>> news:41EE8467.5000507@pilot.fedex.com...
>> The following code has been running for several months but now it
>> fails to send with the following error:
>>
>> "The transport failed to connect to the server"
>>
>> My smtp server appears to be ok because I can send mail, maybe a
>> MS security patch?
>>
>> thanks,
>>
>>Sub CDO_Send_Chart()
>>
>>
>> Dim iMsg As Object
>> Dim iConf As Object
>> Dim wb As Workbook
>> Dim WBname As String
>>
>> Application.ScreenUpdating = False
>>
>>
>> Set iMsg = CreateObject("CDO.Message")
>> Set iConf = CreateObject("CDO.Configuration")
>>
>> iConf.Load -1 ' CDO Source Defaults
>> Set Flds = iConf.Fields
>> With Flds
>> .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
>> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "my smtp mail server"
>> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
>> .Update
>> End With
>>
>> 'Check out the Tips section if you want to change the .To and .TextBody
>> With iMsg
>> Set .Configuration = iConf
>>
>> .To = "mylist"
>> .CC = ""
>> .BCC = ""
>> .From = "me"
>> .Subject = "my subject"
>> .TextBody = "some text"
>> .AddAttachment "D:\Public\mychart.gif"
>> .Send
>> End With
>>
>>
>> Set iMsg = Nothing
>> Set iConf = Nothing
>>
>>End Sub
>>
>>
>>
>>
>>--
>>Art Parra
>>
>>
>>
>
> --
> Art Parra
> Sr. Flight Ops. Research Analyst
> Ph: 901-224-5116 Fax:901-224-6473
>
>