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