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