• Subject: Re: How to get to email from Word
  • Author: Tony Jollans
  • Date: 20 Apr
  • References: 1 2 3 4 5 6 7 8
Graham,

I know you do other things in Outlook - do you have active event procedures
that might interfere at all? Is it just the paste that fails - can you do
anything with the Document (WordEditor) object, or its Range object? I'm not
sure what else to ask - do you get the OMG prompt (triggered by the
GetInspector)? Does it make a difference if Outlook is already running?

Enjoy,
Tony
"Graham Mayor" <gmayor@REMOVETHISmvps.org> wrote in message
news:OMQH3FvoIHA.4308@TK2MSFTNGP06.phx.gbl...
> Hmmm! That's essentially what Tony suggested, but it doesn't work for me
> with either Word 2003 or 2007. Nothing is pasted into the text space,
> unless you actually click the paste button or CTRL+V
>
> --
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> Graham Mayor - Word MVP
>
> My web site www.gmayor.com
> Word MVP web site http://word.mvps.org
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>
>
>
> Jen wrote:
>> I use 2007 Outlook and Word 2003 and Word 2007
>> I did play with Options Mail Format to HTML and Rich Text.
>>
>>
>> Sub Send_Extract_As_MailKeepFmt()
>> ' send the document in an Outlook Email message - HTML Rich Text
>> Format maintained (Brilliant)
>> ' 20April2008
>> ' 2007 Graham Mayor Tony Jollans Doug Robbins
>>
>> 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 = "janine@docsliveonline.com.com"
>> .Subject = InputBox("Subject?")
>> Selection.Copy
>> .GetInspector.WordEditor.Range.Paste
>> ' .Body = Selection
>> .Display
>> End With
>>
>>
>> 'Clean up
>> Set oItem = Nothing
>> Set oOutlookApp = Nothing
>> End Sub
>>
>>
>> "Graham Mayor" <gmayor@REMOVETHISmvps.org> wrote in message
>> news:%23$6xbbtoIHA.4904@TK2MSFTNGP03.phx.gbl...
>>> That'll teach me to not to be so fast in pressing the send button :(
>>>
>>> There appears to be something I am missing?
>>> The modifications do not paste the text into the message here?
>>>
>>> --
>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>> Graham Mayor - Word MVP
>>>
>>> My web site www.gmayor.com
>>> Word MVP web site http://word.mvps.org
>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>
>>>
>>> Graham Mayor wrote:
>>>> Brilliant - thanks ;)
>>>>
>>>>
>>>> Tony Jollans wrote:
>>>>> There ought to be a way to use HTMLBody but it isn't entirely
>>>>> straightforward.
>>>>>
>>>>> What you can do is address the Word editor in Outlook 2007 and
>>>>> paste the selection in. The downside to this is that the OMG gives
>>>>> you a popup but that probably isn't a big issue in a personal
>>>>> environment. Instead of:
>>>>>
>>>>> .Body = Selection
>>>>>
>>>>> Try:
>>>>>
>>>>> Selection.Copy
>>>>> .GetInspector.WordEditor.Range.Paste
>>>>>
>>>>>
>>>>> "Graham Mayor" <gmayor@REMOVETHISmvps.org> wrote in message
>>>>> news:OspGL9roIHA.552@TK2MSFTNGP06.phx.gbl...
>>>>>> I had already tried that :(
>>>>>>
>>>>>> The formatting is lost between Word and Outlook and there doesn't
>>>>>> seem to be a way to actually paste into the text area of the
>>>>>> Outlook message window using the macro that I have found ... yet
>>>>>> ;) --
>>>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>>>> Graham Mayor - Word MVP
>>>>>>
>>>>>> My web site www.gmayor.com
>>>>>> Word MVP web site http://word.mvps.org
>>>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>>>> .
>>>>>>
>>>>>> Doug Robbins - Word MVP wrote:
>>>>>>> Try
>>>>>>>
>>>>>>> .Body = Selection.FormattedText
>>>>>>>
>>>>>>>
>>>>>>> "Graham Mayor" <gmayor@REMOVETHISmvps.org> wrote in message
>>>>>>> news:%233fBmProIHA.4616@TK2MSFTNGP05.phx.gbl...
>>>>>>>> I can't think of a way to pass the formatting between the
>>>>>>>> applications using this macro construction. Until someone comes
>>>>>>>> up with something better, change the line.
>>>>>>>>
>>>>>>>> .Body = Selection
>>>>>>>> to
>>>>>>>> .Body = ""
>>>>>>>>
>>>>>>>> and paste your formatted selection into the text area.
>>>>>>>>
>>>>>>>> To cast the net wider I have cross-posted to the programming and
>>>>>>>> Outlook forums
>>>>>>>>
>>>>>>>> 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 = "someone@somewhere.com"
>>>>>>>> .Subject = InputBox("Subject?")
>>>>>>>> .Body = Selection
>>>>>>>> .Display
>>>>>>>> End With
>>>>>>>> 'Clean up
>>>>>>>> Set oItem = Nothing
>>>>>>>> Set oOutlookApp = Nothing
>>>>>>>> End Sub
>>>>>>>>
>>>>>>>>
>>>>>>>> --
>>>>>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>>>>>> Graham Mayor - Word MVP
>>>>>>>>
>>>>>>>> My web site www.gmayor.com
>>>>>>>> Word MVP web site http://word.mvps.org
>>>>>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> George Lutz wrote:
>>>>>>>>> Terry:
>>>>>>>>>
>>>>>>>>> Thanks, but that had no effect on the result.
>>>>>>>>>
>>>>>>>>> George Lutz
>>>>>>>>>
>>>>>>>>> "Terry Farrell" wrote:
>>>>>>>>>
>>>>>>>>>> In Outlook, go to Tools, Options, select the Mail Format tab
>>>>>>>>>> and then click on Editor Options at the bottom.
>>>>>>>>>>
>>>>>>>>>> Select the Advanced tab and then under Cut, Copy Paste
>>>>>>>>>> section, make sure that the Keep Source formatting option is
>>>>>>>>>> selected. that should then paste and keep your formatting
>>>>>>>>>> without need to modify the macro. Terry
>>>>>>>>>>
>>>>>>>>>> "George Lutz" <GeorgeLutz@discussions.microsoft.com> wrote in
>>>>>>>>>> message
>>>>>>>>>> news:AFA46BFE-E95A-4281-92A2-12CEC503C434@microsoft.com...
>>>>>>>>>>> Terry -- thanks, I found it.
>>>>>>>>>>>
>>>>>>>>>>> Graham: Can your macro be modifed so that the text that is
>>>>>>>>>>> pasted into the email body preserves the formatting it had in
>>>>>>>>>>> Word? When I run your macro,
>>>>>>>>>>> bolded text becomes unbolded and tabs disappear.
>>>>>>>>>>>
>>>>>>>>>>> Thanks.
>>>>>>>>>>>
>>>>>>>>>>> George Lutz
>>>>>>>>>>>
>>>>>>>>>>> "Terry Farrell" wrote:
>>>>>>>>>>>
>>>>>>>>>>>> Right-click anywhere on the QAT and select Customize. In the
>>>>>>>>>>>> customize dialog, select All Commands and scroll down to
>>>>>>>>>>>> Microsoft Outlook.
>>>>>>>>>>>>
>>>>>>>>>>>> But I am assuming that you have the whole Office 2007 suit
>>>>>>>>>>>> and not just Word
>>>>>>>>>>>> 2007 mixed with Outlook 2003. That combination won't work as
>>>>>>>>>>>> Word 2007 needs
>>>>>>>>>>>> Outlook 2007 for compatibility.
>>>>>>>>>>>>
>>>>>>>>>>>> Hope this sorts it for you.
>>>>>>>>>>>>
>>>>>>>>>>>> Terry
>>>>>>>>>>>>
>>>>>>>>>>>> "George Lutz" <GeorgeLutz@discussions.microsoft.com> wrote
>>>>>>>>>>>> in message
>>>>>>>>>>>> news:75250428-033E-45B7-B7D8-08211F879919@microsoft.com...
>>>>>>>>>>>>> Graham's macro works very nicely -- thank you, Graham.
>>>>>>>>>>>>>
>>>>>>>>>>>>> Terry: I would like to try your suggestion, but Outlook
>>>>>>>>>>>>> does not seem to
>>>>>>>>>>>>> be
>>>>>>>>>>>>> a Command available to me in Word Options | Customize | All
>>>>>>>>>>>>> Commands. Where
>>>>>>>>>>>>> can I find the Command to which you are referring?
>>>>>>>>>>>>>
>>>>>>>>>>>>> Thanks.
>>>>>>>>>>>>>
>>>>>>>>>>>>> George Lutz
>>>>>>>>>>>>>
>>>>>>>>>>>>> "Terry Farrell" wrote:
>>>>>>>>>>>>>
>>>>>>>>>>>>>> George
>>>>>>>>>>>>>>
>>>>>>>>>>>>>> You can add the Outlook command button to the QAT, just
>>>>>>>>>>>>>> like you can add
>>>>>>>>>>>>>> the
>>>>>>>>>>>>>> Send to Mail Recipient tool to the QAT.
>>>>>>>>>>>>>>
>>>>>>>>>>>>>> Terry Farrell
>>>>>>>>>>>>>>
>>>>>>>>>>>>>> "George Lutz" <GeorgeLutz@discussions.microsoft.com> wrote
>>>>>>>>>>>>>> in message
>>>>>>>>>>>>>> news:5F4E7F9A-7155-40CA-9AAF-2B3C73B291A3@microsoft.com...
>>>>>>>>>>>>>>> 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!
>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>> I appreciate your replies. however.
>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>> George Lutz
>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>> "Terry Farrell" wrote:
>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>> It was never necessary to copy and paste into a blank
>>>>>>>>>>>>>>>> email in Outlook.
>>>>>>>>>>>>>>>> All
>>>>>>>>>>>>>>>> you ever needed to do from Word was to click on the Send
>>>>>>>>>>>>>>>> to Mail Recipient
>>>>>>>>>>>>>>>> tool (in either Word 2002, Word 2003 or Word 2007).
>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>> When you click on that tool, it adds the standard email
>>>>>>>>>>>>>>>> address bar to
>>>>>>>>>>>>>>>> the
>>>>>>>>>>>>>>>> top of the windows which looks and feels identical to
>>>>>>>>>>>>>>>> the blank email
>>>>>>>>>>>>>>>> in
>>>>>>>>>>>>>>>> Outlook.
>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>> In Word 2007, you need to add this command button Send
>>>>>>>>>>>>>>>> Mail to Recipient
>>>>>>>>>>>>>>>> to
>>>>>>>>>>>>>>>> the QAT because Microsoft inexplicably left it off the
>>>>>>>>>>>>>>>> Send Menu.
>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>> --
>>>>>>>>>>>>>>>> Terry Farrell - MSWord MVP
>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>> "George Lutz" <George Lutz@discussions.microsoft.com>
>>>>>>>>>>>>>>>> wrote in message
>>>>>>>>>>>>>>>> news:9BB76EF2-D598-444C-9B26-B33575E4F950@microsoft.com...
>>>>>>>>>>>>>>>>> I just chagned from Word 2003 to Word 2007. In Word
>>>>>>>>>>>>>>>>> 2003, I had an
>>>>>>>>>>>>>>>>> icon
>>>>>>>>>>>>>>>>> in
>>>>>>>>>>>>>>>>> the toolbar that allowed me to call upOutlook. I.e., I
>>>>>>>>>>>>>>>>> wouudl compose
>>>>>>>>>>>>>>>>> and
>>>>>>>>>>>>>>>>> email in word, then select and copy it, then click on
>>>>>>>>>>>>>>>>> this icno, and
>>>>>>>>>>>>>>>>> an
>>>>>>>>>>>>>>>>> email
>>>>>>>>>>>>>>>>> opened up ready for me to paste in the text. I am
>>>>>>>>>>>>>>>>> pretty sure I used
>>>>>>>>>>>>>>>>> the
>>>>>>>>>>>>>>>>> Customixe feature in 2002 to do this.
>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>> How can I get such an icon in 2007 to land in my Quick
>>>>>>>>>>>>>>>>> Access Toolbar?
>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>> Thanks.
>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>> George Lutz
>
>
20 AprRe: How to get to email from Word.Graham Mayor
20 Apr\ Re: How to get to email from Word.Doug Robbins - Word MVP
20 Apr   \ Re: How to get to email from Word.Graham Mayor
20 Apr      |- Re: How to get to email from Word.Jen
20 Apr      \ Re: How to get to email from Word.Tony Jollans
20 Apr         |- Re: How to get to email from Word.Jen
20 Apr         |- Re: How to get to email from Word.Graham Mayor
20 Apr         |  \ Re: How to get to email from Word.Graham Mayor
20 Apr         |     \ Re: How to get to email from Word.Jen
20 Apr         |        |- Re: How to get to email from Word.Graham Mayor
20 Apr         |        |  \ Re: How to get to email from Word.Tony Jollans
21 Apr         |        |     \ Re: How to get to email from Word.Graham Mayor
21 Apr         |        |        |- Re: How to get to email from Word.Tony Jollans
21 Apr         |        |        |  \ Re: How to get to email from Word.Graham Mayor
21 Apr         |        |        \ Re: How to get to email from Word.Sue Mosher [MVP-Outlook]
22 Apr         |        |           \ Re: How to get to email from Word.Graham Mayor
22 Apr         |        |              \ Re: How to get to email from Word.Sue Mosher [MVP-Outlook]
22 Apr         |        |                 \ Re: How to get to email from Word.Graham Mayor
22 Apr         |        |                    \ Re: How to get to email from Word.Sue Mosher [MVP-Outlook]
23 Apr         |        |                       \ Re: How to get to email from Word.Graham Mayor
23 Apr         |        |                          \ Re: How to get to email from Word.Sue Mosher [MVP-Outlook]
20 Apr         |        \ Re: How to get to email from Word.Jen
20 Apr         |           \ Re: How to get to email from Word.Tony Jollans
30 Jun         \ Re: How to get to email from Word.Matt
All times are in (US) Eastern Daylight Time (GMT -4:00)