How do you determine the number of a folder? 1

[DChalom]

I still need to know how to determine the number of a folder. I need to create a folder if one does not exist for this customer and then put the associated documents into that folder, so how do I determine the number of a folder?


Dorian C. Chalom

 

[craigber]

I'm not sure what you mean by the "number of the folder", but you can determine if a folder exists with the DIRECTORY() function. To get a count of the number of files in a folder, use ADIR().

Craig Berntson
MCSD, Visual FoxPro MVP,

http://www.craigberntson.com

Author, CrysDev: A Developer's Guide to Integrating Crystal Reports"

 

[DChalom]

I am sorry I should of mentioned in Outlook.

I need to create a folder if one does not exist for this customer and then put the associated documents into that folder, so how do I determine the number of a folder?


Dorian C. Chalom

 

[Mike Gagnon]

I believe this FAQ (FAQ184-3894) was already mentionned to you. You will find near the bottom "Adding a folder in Outlook"

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[DChalom]

Yes I looked at that and it tells me how to add a folder but not how then to reference that folder later to move something to it....

Dorian C. Chalom

 

[Mike Gagnon]

Let us assume you created this new folder in the "personal folders" directory, you can reference by name. Here is how to find out all the names of the folders.

Local oOutlook,oNameSpace,oNewFolder
oOutlook=CREATEOBJECT('outlook.application')
oNameSpace=oOutlook.GetNamespace('mapi')
oFolders=oNameSpace.Folders(1).folders
FOR EACH oFolder IN oFolders
 ?oFolder.name
ENDFOR

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[DChalom]

Thanks once again....

Dorian C. Chalom

 

[jdhilljr]

I would like to properly thank you for information that will save me valuable time in the future.

Here's a STAR

Thanks,

Jim

 

[Mike Gagnon]

Jim

I would like to properly thank you for information that will save me valuable time in the future.

You're welcome and thank for the star.


Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[Nifrabar]

Hi Mike,
My inbox has several sub-folders in in.
How to refere to these?
-Bart

 

[Mike Gagnon]

Bart

My inbox has several sub-folders in in.

Since it has been determined that the inbox is folder #6 you would do it this way.

#DEFINE olFolderInBox 6
Local oOutlook,oNameSpace,oDefaultFolder
oOutlook=CREATEOBJECT('outlook.application')
oNameSpace=oOutlook.GetNamespace('mapi')
oDefaultFolder =oNameSpace.Getdefaultfolder(olFolderInBox)
oFolders=oDefaultFolder.folders
FOR EACH oFolder IN oFolders
 ?oFolder.name
ENDFOR

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[Nifrabar]

Mike, thanks,
probably an idea to incorporate this in faq184-3894 ?
-Bart

 

[jdhilljr]

Mgagnon,

Borrowing some of your script.

This is in anticipation of his next question. This will list all subfolders once the Inbox is located.
I was looking for something similar myself.


#DEFINE olFolderInBox 6
Local oOutlook,oNameSpace,oNewFolder
oOutlook=CREATEOBJECT('outlook.application')
oNameSpace=oOutlook.GetNamespace('mapi')
oFolders=oNameSpace.Folders(1).folders
FOR EACH oFolder IN oFolders
if oFolder.name = "Inbox"
oDefaultFolder =oNameSpace.Getdefaultfolder(olFolderInbox)
oFolders=oDefaultFolder.folders
FOR EACH oFolder IN oFolders
?oFolder.name
ENDFOR
endif
ENDFOR

Wish I could give you another star !!!!!!
Thanks,
Jim

 

[Mike Gagnon]

Jim

Nice, but your code does not work for me. Here is the explanation, that might interrest others as well.

oFolders=oNameSpace.Folders(1).folders

The "1" in the above line refers (on my system ) to a main folder call "Archive Folders", and my "Inbox" is in a folder called "Personal Folders" with an index of "2". So an added loop my be required to make sure we are in the right main folder.

oFolders=oNameSpace.Folders(1).Name && Archive folders
oFolders=oNameSpace.Folders(2).Name && Personal folders.

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.