|
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
All times are in (US) Eastern Daylight Time (GMT -4:00)