|
how to add attachment in a CDO mail
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 |
how to add attachment in a CDO mail
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 |
how to add attachment in a CDO mail
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 |
how to add attachment in a CDO mail
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 |
how to add attachment in a CDO mail
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 |
how to add attachment in a CDO mail
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 |
how to add attachment in a CDO mail
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 |
how to add attachment in a CDO mail
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 |
how to add attachment in a CDO mail
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 |
how to add attachment in a CDO mail
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 |
how to add attachment in a CDO mail
Test the code in the example workbook first
-- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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 |
how to add attachment in a CDO mail
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 "Ron de Bruin" wrote: Test the code in the example workbook first -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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 |
how to add attachment in a CDO mail
Even if I try with the original code, I have this error.
Do you konw why ? "Julaf" wrote: 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 "Ron de Bruin" wrote: Test the code in the example workbook first -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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 |
how to add attachment in a CDO mail
Are you sure you have a few cell selected and use the code in the workbook
-- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Even if I try with the original code, I have this error. Do you konw why ? "Julaf" wrote: 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 "Ron de Bruin" wrote: Test the code in the example workbook first -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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 |
how to add attachment in a CDO mail
Yes, everything is on the same workbook and I selected few cells.
I still have a runtime error :S "Ron de Bruin" wrote: Are you sure you have a few cell selected and use the code in the workbook -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Even if I try with the original code, I have this error. Do you konw why ? "Julaf" wrote: 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 "Ron de Bruin" wrote: Test the code in the example workbook first -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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 |
how to add attachment in a CDO mail
Ok it works with
rng = ActiveSheet.UsedRange Thank you so so much ! "Julaf" wrote: Yes, everything is on the same workbook and I selected few cells. I still have a runtime error :S "Ron de Bruin" wrote: Are you sure you have a few cell selected and use the code in the workbook -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Even if I try with the original code, I have this error. Do you konw why ? "Julaf" wrote: 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 "Ron de Bruin" wrote: Test the code in the example workbook first -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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 |
how to add attachment in a CDO mail
Send me the workbook private that you use now
Which Excel version do you use ? -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Yes, everything is on the same workbook and I selected few cells. I still have a runtime error :S "Ron de Bruin" wrote: Are you sure you have a few cell selected and use the code in the workbook -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Even if I try with the original code, I have this error. Do you konw why ? "Julaf" wrote: 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 "Ron de Bruin" wrote: Test the code in the example workbook first -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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 |
how to add attachment in a CDO mail
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" wrote: Send me the workbook private that you use now Which Excel version do you use ? -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Yes, everything is on the same workbook and I selected few cells. I still have a runtime error :S "Ron de Bruin" wrote: Are you sure you have a few cell selected and use the code in the workbook -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Even if I try with the original code, I have this error. Do you konw why ? "Julaf" wrote: 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 "Ron de Bruin" wrote: Test the code in the example workbook first -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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 |
how to add attachment in a CDO mail
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 -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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" wrote: Send me the workbook private that you use now Which Excel version do you use ? -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Yes, everything is on the same workbook and I selected few cells. I still have a runtime error :S "Ron de Bruin" wrote: Are you sure you have a few cell selected and use the code in the workbook -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Even if I try with the original code, I have this error. Do you konw why ? "Julaf" wrote: 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 "Ron de Bruin" wrote: Test the code in the example workbook first -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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 |
how to add attachment in a CDO mail
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 "Ron de Bruin" wrote: 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 -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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" wrote: Send me the workbook private that you use now Which Excel version do you use ? -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Yes, everything is on the same workbook and I selected few cells. I still have a runtime error :S "Ron de Bruin" wrote: Are you sure you have a few cell selected and use the code in the workbook -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Even if I try with the original code, I have this error. Do you konw why ? "Julaf" wrote: 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 "Ron de Bruin" wrote: Test the code in the example workbook first -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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 |
how to add attachment in a CDO mail
Any idea on how to get round this rule ?
When I think it is ready I will publish it on the CDO page -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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 "Ron de Bruin" wrote: 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 -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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" wrote: Send me the workbook private that you use now Which Excel version do you use ? -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Yes, everything is on the same workbook and I selected few cells. I still have a runtime error :S "Ron de Bruin" wrote: Are you sure you have a few cell selected and use the code in the workbook -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... Even if I try with the original code, I have this error. Do you konw why ? "Julaf" wrote: 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 "Ron de Bruin" wrote: Test the code in the example workbook first -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Julaf" wrote in message ... 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 |
| All times are GMT +1. The time now is 03:55 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com