There is a code example for the activeworkbook / or worksheet on my CDO page
http://www.rondebruin.nl/cdo.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Andrew Bourke" wrote in message ...
Hi
I am experimenting with Ron de Bruin's "Sending mail from Excel with
CDO" and so far it has worked.
With iMsg
Set .Configuration = iConf
.To = "
.CC = ""
.BCC = ""
.From = """Andrew"" "
.Subject = "Progress Report"
.TextBody = strbody
"The line below caused an error"
.addattachment ThisWorkbook.Sheets(2)
"The line below worked"
'.addattachment "C:\Users\Andrew\Desktop\Email example that
works.xls"
.Send
End With
I would like to be able to email a worksheet from the current active
workbook and I tried the line below
.addattachment ThisWorkbook.Sheets(2)
but it gave a type mismatch error.
Help on this greatly appreciated please.
Andrew B