Outlook Automation
Alain Stouder OmnisNews
omnis at smartway.ch
Wed Mar 4 14:13:31 EST 2015
Well, we asked him to develop the external so we know it exists.
---
Learn something new everyday!
> On 4 mars 2015, at 19:42, Andy Hilton <andyh at totallybrilliant.com> wrote:
>
> Kelly ? Cannot see anything like that on your web pages ???
>
>> On Mar 4, 2015, at 1:36 PM, Andy Hilton <andyh at totallybrilliant.com> wrote:
>>
>> Didn’t know that :)
>>
>>> On Mar 4, 2015, at 1:27 PM, Alain Stouder OmnisNews <omnis at smartway.ch> wrote:
>>>
>>> BTW, Kelly has an x-platform external to open a .msg file and extract attachments...
>>>
>>> Just saying.
>>>
>>> ---
>>> Learn something new everyday!
>>>
>>>> On 4 mars 2015, at 19:23, Andy Hilton <andyh at totallybrilliant.com> wrote:
>>>>
>>>> Does anyone know if there is an Outlook automation command to output an email message as plain text ?
>>>>
>>>> I have code that handles creating a file of an Outlook message (it comes out as a .msg file) - but I have some environments where not everyone uses the same app for emails (i.e. not all using Outlook) so I am looking to change saving the email message from being an Outlook ‘file’ to being plain text (so save it as a .txt file instead)
>>>>
>>>> I can just save the file I get from Outlook as a .txt file but it includes the binary gunk at the beginning - and I am sure there must be a way to output the text only portion…..
>>>>
>>>> So just seeing if anyone has that to hand to save reinventing !!
>>>>
>>>> Andy
>>>>
>>>> ps this is what I have at the moment :
>>>>
>>>> On evDrop
>>>>
>>>> ……….other stuff……..
>>>>
>>>> If cn.$:Platform=kMSWindows
>>>> ; could be an Outlook drop
>>>> Do method GetAutomationObject ("Outlook.App") Returns oOutlook
>>>> If not(isnull(oOutlook))
>>>> Do oOutlook.$createobject()
>>>> If not(isnull(oOutlook))
>>>> Do oOutlook.$activeexplorer() Returns oActiveExplorer
>>>> If not(isnull(oActiveExplorer))
>>>> Do oActiveExplorer.$selection() Returns oSelection
>>>> If not(isnull(oSelection))
>>>> Calculate xCount as oSelection.$xcount
>>>> For xCountItemNumber from 1 to xCount step 1
>>>> Calculate oMailItem as oSelection.$item(xCountItemNumber)
>>>> If not(isnull(oMailItem))
>>>> ……..go ahead and save the file……..
>>>> Do oMailItem.$saveas(con(local_prefs.$:ImagesFolderPath(),MainID,'-',lCounter,'.msg'))
>>>>
>>>> _____________________________________________________________
>>>> Manage your list subscriptions at http://lists.omnis-dev.com
>>> _____________________________________________________________
>>> Manage your list subscriptions at http://lists.omnis-dev.com
>>
>> _____________________________________________________________
>> Manage your list subscriptions at http://lists.omnis-dev.com
>
> _____________________________________________________________
> Manage your list subscriptions at http://lists.omnis-dev.com
>
More information about the omnisdev-en
mailing list