Great Allen & Matthew,
What about sub-folders for contacts?
This only pull the main contact folder:
oOutlook = CreateObject("Outlook.Application")
oNameSpace = oOutlook.GetNameSpace("MAPI")
* Get Contacts folder
oContacts= oNameSpace.GetDefaultFolder( olContacts )
* Go through contacts
FOR EACH oContact IN oContacts.Items
WITH oContact
lcFirst = .FirstName
lcLast = .LastName
etc...
-----Original Message-----
From: profoxtech-bounces .at. leafe DOT com
[mailto:profoxtech-bounces@leafe.com]On Behalf Of Allen Pollard
Sent: Saturday, January 31, 2004 3:05 AM
To: profoxtech .at. leafe DOT com
Subject: RE: Automating Outlook Tasks subfolders
>From your namespace you can find the default tasks folder with
TaskFolder = oNamespace.GetDefaultFolder(13)
to open a folder in tasks
InnerFolder = TaskFolder.Folders("MyTasks")
If you need to check names then use the count and go through the folders
TestFolder = TaskFolder.Folders(x).name
Allen
-----Original Message-----
From: profoxtech-bounces@leafe.com
[mailto:profoxtech-bounces .at. leafe DOT com]On Behalf Of Matthew Jarvis
Sent: 30 January 2004 23:53
To: profoxtech@leafe.com
Subject: RE: Automating Outlook Tasks subfolders
Thanks Roger, but this looks to only place a Task in the main Task folder -
not a subfolder...
I'm actually quite skilled at automation, just drawing a blank on this
one....
Any other suggestions?
Matthew S. Jarvis, MCP
Eugene, Oregon USA
m .at. ttjarvis DOT com
<snipped>
[excessive quoting removed by server]
©2004 Roger Kuperways |
