Go back to group page | Go to next unread message | Proportional font
Yes, it should have been Set not Dim. Sorry for the confusion.
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:O3DN6CEpIHA.4904@TK2MSFTNGP03.phx.gbl...
> Thanks for that. I assume the second 'Dim' was a typo? > > -- > <>>< ><<> ><<> <>>< ><<> <>>< <>><<> > Graham Mayor - Word MVP > > My web site www.gmayor.com > Word MVP web site http://word.mvps.org > <>>< ><<> ><<> <>>< ><<> <>>< <>><<> > > > Sue Mosher [MVP-Outlook] wrote:
>> 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. >> >> >> >> >> "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
> >
<<Newer / Older>>
Mark all as read
20 Apr 2008Re: How to get to email from Word.Graham Mayor
20 Apr 2008\ Re: How to get to email from Word.Doug Robbins - Word MVP
20 Apr 2008   \ Re: How to get to email from Word.Graham Mayor
20 Apr 2008      |- Re: How to get to email from Word.Jen
20 Apr 2008      \ Re: How to get to email from Word.Tony Jollans
20 Apr 2008         |- Re: How to get to email from Word.Jen
20 Apr 2008         |- Re: How to get to email from Word.Graham Mayor
20 Apr 2008         |  \ Re: How to get to email from Word.Graham Mayor
20 Apr 2008         |     \ Re: How to get to email from Word.Jen
20 Apr 2008         |        |- Re: How to get to email from Word.Graham Mayor
20 Apr 2008         |        |  \ Re: How to get to email from Word.Tony Jollans
21 Apr 2008         |        |     \ Re: How to get to email from Word.Graham Mayor
21 Apr 2008         |        |        |- Re: How to get to email from Word.Tony Jollans
21 Apr 2008         |        |        |  \ Re: How to get to email from Word.Graham Mayor
21 Apr 2008         |        |        \ Re: How to get to email from Word.Sue Mosher [MVP-Outlook]
22 Apr 2008         |        |           \ Re: How to get to email from Word.Graham Mayor
22 Apr 2008         |        |              \ Re: How to get to email from Word.Sue Mosher [MVP-Outlook]
22 Apr 2008         |        |                 \ Re: How to get to email from Word.Graham Mayor
22 Apr 2008         |        |                    \ Re: How to get to email from Word.Sue Mosher [MVP-Outlook]
23 Apr 2008         |        |                       \ Re: How to get to email from Word.Graham Mayor
23 Apr 2008         |        |                          \ Re: How to get to email from Word.Sue Mosher [MVP-Outlook]
20 Apr 2008         |        \ Re: How to get to email from Word.Jen
20 Apr 2008         |           \ Re: How to get to email from Word.Tony Jollans
30 Jun 2008         \ Re: How to get to email from Word.Matt
All times are in (US) Eastern Daylight Time (GMT -4:00)