Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error send mail with CDO
Hy:
When i try to send email with this code i get a error "the message could not be sent to the smtp server" Run-time error 2147220975 (80040211) The transport error code was 0x80040217 Software in use Microsoft Excel 2003 and windows xp. Windows 2000 and office 2000 configuration no problems. Thanks Paulo Private Sub EnvEmailControl() Dim iMsg As Object Dim iConf As Object Dim WB As Workbook Dim WBname As String Application.ScreenUpdating = False Set WB = ActiveWorkbook WBname = WB.Name WB.SaveCopyAs "C:\" & WBname Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") With iMsg Set .Configuration = iConf .To = " .From = """Anyone"" <xxxx" .Subject = Range("L3").Value .TextBody = "book" .AddAttachment "C:\" & WBname .Send ' error on this comand End With Set iMsg = Nothing Set iConf = Nothing Set WB = Nothing Application.ScreenUpdating = False End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Bypass: A program is trying to send mail using Item.Send prompt | Excel Discussion (Misc queries) | |||
Send to mail recipient error | Excel Discussion (Misc queries) | |||
Error when using Send to Mail recipient | Excel Discussion (Misc queries) | |||
Send e-mail with CDO | Excel Programming | |||
Send Mail | Excel Programming |