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

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" wrote in message ...
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,
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"
wrote in message
...
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

Hi Art

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

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



"Art Parra" wrote in message ...
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" wrote in message ...
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

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"
wrote in message
...
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

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" wrote in message ...
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" wrote in message ...
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

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" wrote in message ...
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" wrote in message ...
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" wrote in message ...
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