|
- Subject: Re: How to get to email from Word
- Author: Graham Mayor
- Date: 20 Apr 2008
- References: 1 2 3 4
Brilliant - thanks ;)
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
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
All times are in (US) Eastern Daylight Time (GMT -4:00)