|
- Subject: Re: How to get to email from Word
- Author: Doug Robbins - Word MVP
- Date: 20 Apr 2008
- References: 1
Try
.Body = Selection.FormattedText
services on a paid consulting basis.
Doug Robbins - Word MVP
"Graham Mayor" <gmayor@REMOVETHISmvps.org> wrote in message
news:%233fBmProIHA.4616@TK2MSFTNGP05.phx.gbl...
.Body = Selection.FormattedText
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of myservices on a paid consulting basis.
Doug Robbins - Word MVP
"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:
>
>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...
>>>>>>>>> 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
>>>>>>>>> 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)