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

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

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

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

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

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