|
Exactly. You can do CTRL V and it works but not with VBA?
"Graham Mayor" <gmayor@REMOVETHISmvps.org> wrote in message
news:OspGL9roIHA.552@TK2MSFTNGP06.phx.gbl...
"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:
>
>
> 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)