|
- Subject: Re: How to get to email from Word
- Author: Graham Mayor
- Date: 20 Apr 2008
- References: 1 2
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 ;)
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.comGraham Mayor - Word MVP
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)