Error send mail with CDO

J

JKing

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 = "(e-mail address removed)"
.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
 
G

Guest

No, not in the same way. Excel can only keep the "live" link between two
open books if they are open by the same user on the same workstation. You
could, of course (if allowed) open the 2nd workbook in shared mode and update
it frequently. Other than that Excel will only be able to read what is in
the saved file, not the open workbook on the other machine.
 
J

Jean-Yves

Hi,

Do you configure iConf, ie SMTP server and port number ?

Regards
JY

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 = "(e-mail address removed)"
.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
 
R

Ron de Bruin

Hi JKing

Read the text above the code examples please
http://www.rondebruin.nl/cdo.htm

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


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 = "(e-mail address removed)"
.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
 
J

JKing

Hi

No Jean i dont know configure iConf, SMTP server and port number.
If you give me some help?
This macro is a Ron de Bruin sample with adaptations, dont work in excel 2003 or windows Xp

Thanks Jean
Thanks Ron de Bruin

Regards
Paulo Coelho
..
Hi JKing

Read the text above the code examples please
http://www.rondebruin.nl/cdo.htm

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


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 = "(e-mail address removed)"
.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
 
J

Jean-Yves

Hi,

Take Ron advice and read his web page.
The answer is written there. You just need the name of the SMTP server to
adapt the code
which is on Ron's page.

Regards

Jean-Yves
Hi

No Jean i dont know configure iConf, SMTP server and port number.
If you give me some help?
This macro is a Ron de Bruin sample with adaptations, dont work in excel
2003 or windows Xp

Thanks Jean
Thanks Ron de Bruin

Regards
Paulo Coelho
..
Hi JKing

Read the text above the code examples please
http://www.rondebruin.nl/cdo.htm

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


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 = "(e-mail address removed)"
.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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Sending e-mail using CDO 1
Emailing workbook from Excel 3
Excel 2007 and cdo 1.2.1? 1
Problem with macro to email file using CDO 1
wb.savecopyas results in read only copy 2
Excel emailing from spreadsheet 1
Help with Syntax in Code 1
Sending Email using CDO ERROR 10

Top