how to add attachment in a CDO mail

[Julaf]

Hi everyone, I've got a small problem.
I'd like to send my active sheet with a CDO code.
I use
.AddAttachment ThisWorkbook.ActiveSheet

but it looks like a problem
Run time erro '13'
Type-mismatch

don't really know why because it's the correct name of this sheet.

Hope to have news about that.
Thanks

 

[Ron de Bruin]

Hi Julaf

See the examples here
http://www.rondebruin.nl/cdo.htm

 

[Julaf]

Thanks Ron, I was in your website before, very instructive.
The thing is that I want to usend an active sheet from a computer without
any software.
And I use this following CDO code :

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant

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") _
= "smtp"

..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

strbody = "Line 1" & vbNewLine & vbNewLine & _
"Line 2"

With iMsg
Set .Configuration = iConf
.To = "(e-mail address removed)"
.From = """Julaf"" <[email protected]>"
.Subject = "Hope it works !"
.TextBody = strbody
.AddAttachment ThisWorkbook.ActiveSheet
.Send
End With

End Sub

But for the line with attachment, I've got on mismatch...

 

[Ron de Bruin]

Download the example workbook for my page
There is a example for one worksheet

 

[Julaf]

ok, but on your example, it works only if the customer have outlook.
Is it possible in your code to do the same things from a computer without
any mail software (I think about people who use an hotmail adress)

Thanks for your help.

 

[Ron de Bruin]

That's not true

Download the workbook from the CDO page
http://www.rondebruin.nl/cdo.htm

 

[Julaf]

Ok, it finally works for me, thanks a lot for all this information !
I really appreciate your help Ron.

I have one more question,
do you think it's possible to send the file as a mail-body (always with
using CDO form) and not as an attachment.

 

[Ron de Bruin]

Hi Julaf

There is a example in the workbook to send a sheet in the body

 

[Julaf]

I saw this form just after send you the answer.

I've got a msg error back on this line :
.HTMLBody = RangetoHTML(rng)
Sub or function not defined

 

[Julaf]

Ok, sorry ron , I add the function,
but I've got an error 404. Is that link with the version of Excel ??

 

[Ron de Bruin]

Test the code in the example workbook first

 

[Julaf]

I tried it just with changing smtp and mail, I've got this error on the line
rng.Copy

I've got 'Application.defined' message error

Thanks for all Ron

 

[Julaf]

Even if I try with the original code, I have this error.
Do you konw why ?

 

[Ron de Bruin]

Are you sure you have a few cell selected and use the code in the workbook

 

[Julaf]

Yes, everything is on the same workbook and I selected few cells.
I still have a runtime error :S

 

[Julaf]

Ok it works with
rng = ActiveSheet.UsedRange

Thank you so so much !

 

[Ron de Bruin]

Send me the workbook private that you use now
Which Excel version do you use ?

 

[Julaf]

Hello, I've got one more question,
When there is a picture, or a checkbox, in the original excel page ; when
you receive it by email, everything is gone, could you explain me why ? And
is it possible to add this in the body or definitively not ?

 

[Ron de Bruin]

The function delete the pictures to avoid problems and ghost files
I have CDO code that can do it but it is not working the way I want

If you use Outlook see
http://www.rondebruin.nl/mail/folder3/mailenvelope.htm