how to add attachment in a CDO mail

  • Thread starter Thread starter Julaf
  • Start date Start date
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
 
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...
 
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.
 
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.
 
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
 
Ok, sorry ron , I add the function,
but I've got an error 404. Is that link with the version of Excel ??
 
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
 
Yes, everything is on the same workbook and I selected few cells.
I still have a runtime error :S
 
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 ?
 
Back
Top