From the vba editor tools references check the Microsoft Outlook 12
Object Library

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



Jen wrote:
Hi Graham

In Word 2007 I select text and run macro but I get a compile error on
below line:

Dim oOutlookApp As Outlook.Application

User define type not defined. How can I resolve this please?



"Graham Mayor" wrote in message
...
I suspect what you are looking for is the 'Send To Mail Recipient'
command which you can add to the QAT.
or
You can select the text you want in your e-mail and run the following
macro

Sub Send_Extract_As_Mail()
' send the document in an Outlook Email message
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem

On Error Resume Next

'Get Outlook if it's running
Set oOutlookApp = GetObject(, "Outlook.Application")

'Outlook wasn't running, start it from code
If Err 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If

'Create a new mailitem
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
.to = "
.Subject = InputBox("Subject?")
.Body = Selection
.Display
End With
'Clean up
Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub

http://www.gmayor.com/installing_macro.htm

If you want to pick the recipient delete the .to line


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



George Lutz wrote:
Because in my Word document, I use macros that greatly simplify my
composing of the email. E.g., if I want to send an email to
Jennifer, my ETJ macro prepares the header, including To: Jennifer,
From: George, it inputs the client name into a line, etc. Then
I sue another macro to select and copy the whole email, hit the
button that apparently no longer exists in 2007, then hit Control-V
to insert everything into the blank email template.

"Gordon" wrote:

"George Lutz" wrote in
message ...
But I don't want to send the entire Word document -- just the
portion of it
that is my email. I take notes as I go through the day, and
occasionally compose an email that I then want to send. The email
is just a small portion
of the day's notes. So, I compose the email, then cut and paste
its text into Outlook. The button I used in Word 2003 called up
Outlook, opened a blank email, and allowed me to paste in the text
I had prepared in Word. I
also had a button that called up Outlook with an email already
addressed to
my assistant, who is the recipient of about half of the 20 or so
emails I send each day -- very convenient. Amazing that such a
useful feature would
be eliminated in an "updated" version of Word!



Unfortunately Outlook 2007 doesn't use all of Word 2007 as the
email editor - it uses a stub. Therefore you can't do what you
used to do in 2003 in the same way.
However, I don't understand why you would compose an email in Word
and then paste the text into an email - why not just write the text
directly into a new email message?