Outlook Automation

[Mike Matthews]

Shhhh….


Mike Matthews,
 Managing Director, SQLWorks Software Ltd

Tel: +44 (0)1271 375999

Email: mike.matthews at sqlworks.co.uk

Web: www.sqlworks.co.uk

SQLWorks replaces Sage, ACT!, Opera, Access, SAP

On 4 Mar 2015, at 19:47, Andy Hilton <andyh at totallybrilliant.com> wrote:

> Insider trading…..
> 
>> On Mar 4, 2015, at 2:13 PM, Alain Stouder OmnisNews <omnis at smartway.ch> wrote:
>> 
>> 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
>>> 
>> _____________________________________________________________
>> Manage your list subscriptions at http://lists.omnis-dev.com
> 
> _____________________________________________________________
> Manage your list subscriptions at http://lists.omnis-dev.com