need code to copy text from workbook and paste it in a new outlookmessage
 

Hi,
I'm new to macro. I've created a control button and assigned it a
macro as per below to copy text.

Code:

Sub COPY()
'
' COPY Macro
'

'
Range("B4:K23").Select
Selection.COPY
End Sub

i need the functionality to extend this code.

i want it to copy open a new outlook message paste the copied
content in the body of the message.

insert " in the TO field, " in the CC field &
"This is a test message" in the subject field.
I dont want the email to be sent, but rather to be displayed.

need code to copy text from workbook and paste it in a new outlook
 

I found some useful mail code on Ron DeBruin's site recent.

http://www.rondebruin.nl/pdf.htm

Look for Function RDB_Mail_PDF_Outlook

"Rammergu" wrote:

Hi,
I'm new to macro. I've created a control button and assigned it a
macro as per below to copy text.

Code:

Sub COPY()
'
' COPY Macro
'

'
Range("B4:K23").Select
Selection.COPY
End Sub

i need the functionality to extend this code.

i want it to copy open a new outlook message paste the copied
content in the body of the message.

insert " in the TO field, " in the CC field &
"This is a test message" in the subject field.
I dont want the email to be sent, but rather to be displayed.

need code to copy text from workbook and paste it in a new outlook message
 

Hi Rammergu

Try
http://www.rondebruin.nl/mail/folder3/mail4.htm

You can download a test workbook on my Mail index page
http://www.rondebruin.nl/sendmail.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Rammergu" wrote in message ...
Hi,
I'm new to macro. I've created a control button and assigned it a
macro as per below to copy text.

Code:

Sub COPY()
'
' COPY Macro
'

'
Range("B4:K23").Select
Selection.COPY
End Sub

i need the functionality to extend this code.

i want it to copy open a new outlook message paste the copied
content in the body of the message.

insert " in the TO field, " in the CC field &
"This is a test message" in the subject field.
I dont want the email to be sent, but rather to be displayed.

__________ Information from ESET Smart Security, version of virus signature database 3946 (20090318) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus signature database 3946 (20090318) __________

The message was checked by ESET Smart Security.

http://www.eset.com

need code to copy text from workbook and paste it in a new outlook
 

Hi Barb

I update the code last week
I hope it is better now ?

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Barb Reinhardt" wrote in message
...
I found some useful mail code on Ron DeBruin's site recent.

http://www.rondebruin.nl/pdf.htm

Look for Function RDB_Mail_PDF_Outlook

"Rammergu" wrote:

Hi,
I'm new to macro. I've created a control button and assigned it a
macro as per below to copy text.

Code:

Sub COPY()
'
' COPY Macro
'

'
Range("B4:K23").Select
Selection.COPY
End Sub

i need the functionality to extend this code.

i want it to copy open a new outlook message paste the copied
content in the body of the message.

insert " in the TO field, " in the CC field &
"This is a test message" in the subject field.
I dont want the email to be sent, but rather to be displayed.


__________ Information from ESET Smart Security, version of virus signature database 3946 (20090318) __________

The message was checked by ESET Smart Security.

http://www.eset.com





__________ Information from ESET Smart Security, version of virus signature database 3946 (20090318) __________

The message was checked by ESET Smart Security.

http://www.eset.com