Ok, sorry ron , I add the function,
but I've got an error 404. Is that link with the version of Excel ??
"Julaf" wrote:
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
"Ron de Bruin" wrote:
Hi Julaf
There is a example in the workbook to send a sheet in the body
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Julaf" wrote in message ...
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" wrote:
That's not true
Download the workbook from the CDO page
http://www.rondebruin.nl/cdo.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Julaf" wrote in message ...
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" wrote:
Download the example workbook for my page
There is a example for one worksheet
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Julaf" wrote in message ...
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 = "
.From = """Julaf"" "
.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" wrote:
Hi Julaf
See the examples here
http://www.rondebruin.nl/cdo.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Julaf" wrote in message ...
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