Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Adding Outlook appointments to Subfolder(s) of Calendar
Message
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00668579
Message ID:
00669326
Views:
23
This message has been marked as the solution to the initial question of the thread.
>Public oOutLookObject
>oOutLookObject = CreateObject("Outlook.Application")
>
>oNameSpace=oOutlookObject.GetNameSpace("MAPI")
>oCal=oNameSpace.GetDefaultFolder(olFolderCalendar) &&  #DEFINE olFolderCalendar 9
>
>*!* Add a subfolder below the standard Calendar folder
>loCal = oCal.folders.Add("ACME4")
>Do u know how to determine if a folder already exists before
>creating it (besides using the VBA chm file example of
>errortrapping the FOLDERS.ADD command incase the folder already
>exists).

Check TYPE('oCal.Folders("ACME4")') -- if it returns "O", it exists: if it returns "U", it hasn't been created yet.
My blog
My consulting page
My home page

Member of the Trim Your Auto-Quote Campaign!
What's another word for thesaurus?
Previous
Reply
Map
View

Click here to load this message in the networking platform