|
You might find the recent discussion at http://www.outlookcode.com/threads.aspx?forumid=4&messageid=26382 useful, as it was on a similar subject.
> I don't know if it is a clue, but if I enter
> .GetInspector
> and then a period vba prompts with the options - including
> .WordEditor
> If I add a period to the end of that, there isn't the usual prompt offering
> .Range etc (though it doesn't baulk at its addition).
Declare a Word.Document object and instantiate it:
Dim objDoc as Word.Document
Dim objDoc = MyMessage.GetInspector.WordEditor
You'll then get intellisense for objDoc.
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54
"Graham Mayor" <gmayor@REMOVETHISmvps.org> wrote in message news:OMOY0M4oIHA.2068@TK2MSFTNGP05.phx.gbl...
> The only thing I do in Outlook is extract a line of code from a daily e-mail
> and paste it into a Word table, using a variation of the code we discussed
> on an earlier occasion.
>
> I don't appear to be able to do anything in code with the object.
>
> I don't get an OMG (?) prompt or any other prompt or error message. The
> Outlook message window opens the addressee and subject are filled and (if
> nothing is entered in the ".Body =" line) the default theme is used. The
> cursor is in the body area and nothing is pasted. Pressing CTRL V or
> clicking the Paste button pastes the formatted text.
>
> I don't know if it is a clue, but if I enter
> .GetInspector
> and then a period vba prompts with the options - including
> .WordEditor
> If I add a period to the end of that, there isn't the usual prompt offering
> .Range etc (though it doesn't baulk at its addition).
>
> It doesn't make any difference whether or not Outlook is running.
>
> --
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> Graham Mayor - Word MVP
>
> My web site www.gmayor.com
> Word MVP web site http://word.mvps.org
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>
>
>
> Tony Jollans wrote:
>> Graham,
>>
>> I know you do other things in Outlook - do you have active event
>> procedures that might interfere at all? Is it just the paste that
>> fails - can you do anything with the Document (WordEditor) object, or
>> its Range object? I'm not sure what else to ask - do you get the OMG
>> prompt (triggered by the GetInspector)? Does it make a difference if
>> Outlook is already running?
>>
>> "Graham Mayor" <gmayor@REMOVETHISmvps.org> wrote in message
>> news:OMQH3FvoIHA.4308@TK2MSFTNGP06.phx.gbl...
>
>
>>> Hmmm! That's essentially what Tony suggested, but it doesn't work
>>> for me with either Word 2003 or 2007. Nothing is pasted into the
>>> text space, unless you actually click the paste button or CTRL+V
>>>
>>> --
>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>> Graham Mayor - Word MVP
>>>
>>> My web site www.gmayor.com
>>> Word MVP web site http://word.mvps.org
>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>
>>>
>>>
>>> Jen wrote:
>>>> 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)