|
Hmmm That looks interesting ... thanks :)
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
"Ken Slovak - [MVP - Outlook]" <kenslovak@mvps.org> wrote in message
news:OC1MXnlrKHA.5356@TK2MSFTNGP02.phx.gbl...
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.comGraham Mayor - Word MVP
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
"Ken Slovak - [MVP - Outlook]" <kenslovak@mvps.org> wrote in message
news:OC1MXnlrKHA.5356@TK2MSFTNGP02.phx.gbl...
> If the Outlook editor is being used and the format is HTML you can use
> IHTMLDocument and HTML code to paste text, etc. Something like this:
>
> If ((Not (oItem.GetInspector.IsWordMail )) And (Left(oItem.Application, 2)
> = "11")) Then
> ' tested and is OL editor and is OL 11
> If oItem.GetInspector.EditorType = olEditorHTML Then
> Dim oHTML As MSHTML.IHTMLDocument2
> Set oHTML = oItem.GetInspector.HTMLEditor
> ' now use HTML code
>
> --
> Ken Slovak
> [MVP - Outlook]
> http://www.slovaktech.com
> Author: Professional Programming Outlook 2007.
> Reminder Manager, Extended Reminders, Attachment Options.
> http://www.slovaktech.com/products.htm
>
>
> "Graham Mayor" <gmayor@REMOVETHISmvps.org> wrote in message
> news:uBWHudlrKHA.732@TK2MSFTNGP06.phx.gbl...
> IHTMLDocument and HTML code to paste text, etc. Something like this:
>
> If ((Not (oItem.GetInspector.IsWordMail )) And (Left(oItem.Application, 2)
> = "11")) Then
> ' tested and is OL editor and is OL 11
> If oItem.GetInspector.EditorType = olEditorHTML Then
> Dim oHTML As MSHTML.IHTMLDocument2
> Set oHTML = oItem.GetInspector.HTMLEditor
> ' now use HTML code
>
> --
> Ken Slovak
> [MVP - Outlook]
> http://www.slovaktech.com
> Author: Professional Programming Outlook 2007.
> Reminder Manager, Extended Reminders, Attachment Options.
> http://www.slovaktech.com/products.htm
>
>
> "Graham Mayor" <gmayor@REMOVETHISmvps.org> wrote in message
> news:uBWHudlrKHA.732@TK2MSFTNGP06.phx.gbl...
>> The code is run from Word. The part that doesn't work is the Copy and
>> Paste part, so the selected text never makes it to the message. I just
>> get an empty message with the subject and address filled.
>>
>> It is undoubtedly attributable to having Outlook using its own e-mail
>> editor, but as I indicated earlier, it doesn't seem possible to switch
>> editors in vba (unless you know a way).
>>
>> So
>> 1. I either need a method that works with both editors
>> or
>> 2. I need two methods - one for each editor,
>> or
>> 3. I need to be able to switch editors
>> or
>> 4. I need to disable the function when the wrong editor is pre-selected
>>
>> For 2 & 4 I was planning to interrogate the registry to see which editor
>> was in use and set up the code construction accordingly ... but I can't
>> find a way to paste the text into the Outlook editor :(.
>>
>> --
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>> Graham Mayor - Word MVP
>>
>> My web site www.gmayor.com
>> Word MVP web site http://word.mvps.org
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>> Paste part, so the selected text never makes it to the message. I just
>> get an empty message with the subject and address filled.
>>
>> It is undoubtedly attributable to having Outlook using its own e-mail
>> editor, but as I indicated earlier, it doesn't seem possible to switch
>> editors in vba (unless you know a way).
>>
>> So
>> 1. I either need a method that works with both editors
>> or
>> 2. I need two methods - one for each editor,
>> or
>> 3. I need to be able to switch editors
>> or
>> 4. I need to disable the function when the wrong editor is pre-selected
>>
>> For 2 & 4 I was planning to interrogate the registry to see which editor
>> was in use and set up the code construction accordingly ... but I can't
>> find a way to paste the text into the Outlook editor :(.
>>
>> --
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>> Graham Mayor - Word MVP
>>
>> My web site www.gmayor.com
>> Word MVP web site http://word.mvps.org
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Contact Us
All times are in (US) Eastern Daylight Time (GMT -4:00)
All times are in (US) Eastern Daylight Time (GMT -4:00)