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