Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Adding Outlook appointments to Subfolder(s) of Calendar
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
00668579
Message ID:
00669326
Vues:
22
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?
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform