|
I don't get any prompt, I do have Express Click Yes installed (if that is
the OMG prompt).
"Jen" <iDocs@docsliveonline.com> wrote in message
news:uW9QoftoIHA.4620@TK2MSFTNGP06.phx.gbl...
>
> I use 2007 Outlook and Word 2003 and Word 2007
> I did play with Options Mail Format to HTML and Rich Text.
>
>
> Sub Send_Extract_As_MailKeepFmt()
> ' send the document in an Outlook Email message - HTML Rich Text Format
> maintained (Brilliant)
> ' 20April2008
> ' 2007 Graham Mayor Tony Jollans Doug Robbins
>
> 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 = "janine@docsliveonline.com.com"
> .Subject = InputBox("Subject?")
> Selection.Copy
> .GetInspector.WordEditor.Range.Paste
> ' .Body = Selection
> .Display
> End With
>
>
> 'Clean up
> Set oItem = Nothing
> Set oOutlookApp = Nothing
> End Sub
>
>
> "Graham Mayor" <gmayor@REMOVETHISmvps.org> wrote in message
> news:%23$6xbbtoIHA.4904@TK2MSFTNGP03.phx.gbl...
>> 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)