|
- Subject: Re: How to get to email from Word
- Author: Tony Jollans
- Date: 20 Apr
- References: 1 2 3
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
news:OspGL9roIHA.552@TK2MSFTNGP06.phx.gbl...
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
Enjoy,
Tony
"Graham Mayor" <gmayor@REMOVETHISmvps.org> wrote in message Tony
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:
>
>
> 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...
>>>
>> .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:
>>> 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:
>>>>
>>>>
>>>> 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...
>>>>> 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:
>>>>>>
>>>>>>
>>>>>> 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...
>>>>>>> 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:
>>>>>>>>
>>>>>>>>
>>>>>>>> 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...
>>>>>>>>>
>>>>>>>>> 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:
>>>>>>>>>>
>>>>>>>>>> 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...
>>>>>>>>>>> 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
>>>>>>>>>>>> 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
>>>>>>>>>>>> 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
>
All times are in (US) Eastern Daylight Time (GMT -4:00)