Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Outlook Object Filtering
Message
 
 
To
04/04/2010 12:14:52
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Network:
Windows 2003 Server
Database:
MS SQL Server
Application:
Desktop
Miscellaneous
Thread ID:
01458635
Message ID:
01458655
Views:
30
I can not get this code to work for me at all. I'm using Exchange server and the Logon method returns NULL for me. I'm not sure how to make it work...

>Hi
>
>I've looked at that and whilst the myInbox.items.find(lcFilter) works, it only finds one item. My code looks like this:
>
>loOutlook = createobject('Outlook.Application')
>loNS = loOutlook.GetNameSpace('MAPI')
>loInbox = loNS.GetDefaultFolder(6)
>loItems = loInbox.Items
>
>lcFilter = '[Sendername] = ' + '"' + 'Derek Chapman' + '"'
>loSearch = loInbox.Items.Filter(lcFilter)
>
>do while not isnull(loSearch)
>? loSearch.receivedtime
>loSearch = loItems.findnext()
>enddo
>
>There are 100's of emails from Derek Chapman, but this code only returns 1 item.
>
>Regards
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform