how to add attachment in a CDO mail

J

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
 
J

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 = "[email protected]"
.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...
 
R

Ron de Bruin

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

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.
 
J

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.
 
J

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
 
J

Julaf

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

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
 
J

Julaf

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

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 ?
 
J

Julaf

I don't use outlook.
Actually, I used this function to send an excel request from all the
computer connected, but some of them don't have any mail software.
So CDO, was perfect for that.

Any idea on how to get round this rule ?

Thanks
 
Top