Database Search

TechHome

Redemption

• Add Attachment to Journal Item
• Adding Contact Information into Outlook
• Compiled EXE Keeps Running Under Task Manager
• Copy Contacts Folder to Subfolder in Outlook
• Create a Folder under Personal Folders in Outlook
• Create Outlook Distribution List
• Creating Address Book XML File
• Current Contact Folder Items
• Delete Mail from Outlook using OLE
• Delete Outlook Contact
• Email Forwarder
• Embed an Image into an Outlook Email
• Empty Folder in Outlook
• Encrypt Message in Outlook
• Find Contacts in Outlook
• Find Folder with the String Mailbox
• Get Internet headers Field from Outlook Message
• Get Contact data form Contact Item Currently Selected in Outlook
• Get Contact Information In Outlook
• Get Internet headers Field from Outlook Message
• Get list of appointments
• Get member of Outlook Distribution List
• Get Outlook Contact information
• How to Send Mail from Outlook using OLE
• Identify Outlook Folder Type or Contents
• Import Excel Data into Outlook Contact Folder
• Launch Outlook and Make Visible
• List Subfolders
• Mark Messages as Read in Outlook using OLE
• ObjectEventAdd To Capture ItemSend Event
• OLE and OUTLOOK check mail
• OLE and OUTLOOK read mail other than inbox
• OLE and OUTLOOK read mail
• OLE MAPI Choose Folder
• OLE_Outlook- add Entry to Address book
• Outlook - Get Oldest Email Message
• Outlook constants
• Outlook Contacts to XML
• Outlook PST to MSG Export
• Outlook Quit Event
• Outlook Received Date
• Outlook Reply-To in OLE
• Outlook Sendmail OLE Example
• Outlook Version
• Read Open Active Outlook Message
• Recurse Outlook folders
• Redemption Causes WinBatch Studio to Crash
• Rename Personal Folder in Oulook
• Save file attachments in Outlook
• Save outlook attachments
• Send to Multiple Recipients
• Sort Email by Received Time
• TypeOf Equivalent
• Use Existing Instance Or Create a New One If Necessary
• Using OLE to resolve name in Outlook
• WinBatch and Redemption Issue
• Writing Appointments to Outlook

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Recurse Outlook folders

;created by jalverson Wednesday, June 11, 2003 08:02 PM  






;http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdo/html/_olemsg_folders_property_folder.asp
;

;   give this a whirl, try creating a contact sub-folder and then run it.
;   if you want only contacts then uncomment line 12 and comment line 13...
#definefunction GetSubFolders(folder)
   subFolders = folder.Folders
   hEnum = ObjectCollectionOpen(subFolders)
   while @true
     objFolder = ObjectCollectionNext(hEnum)
     if objFolder == 0 then break
;      if objFolder.DefaultItemType == 2 then clipappend(strcat(strfix(objFolder.Name, " ", 30), @tab, objFolder.DefaultItemType, @crlf))
      clipappend(strcat(strfix(objFolder.Name, " ", 30), @tab, objFolder.DefaultItemType, @crlf))
      GetSubFolders(objFolder)
     objectclose(objFolder)
   endwhile
   ObjectCollectionClose(hEnum)
   return
#endfunction

objOutlook = objectopen("Outlook.Application")
mapi = objOutlook.GetNameSpace("MAPI")

objSession = mapi.session ;objectopen("MAPI.Session")
objFolders = mapi.folders ;objectopen("MAPI.Folders")

clipput("")

hEnum = ObjectCollectionOpen(objFolders)
while @true
  objFolder = ObjectCollectionNext(hEnum)
  if objFolder == 0 then break
   clipappend(strcat(objFolder.Name, @crlf))
   GetSubFolders(objFolder)
  objectclose(objFolder)
endwhile
ObjectCollectionClose(hEnum)

objectclose(objSession)
objectclose(objFolders)
objectclose(mapi)
objectclose(objOutlook)

message("Folders", clipget())

exit

Article ID:   W16094

File Created: 2004:03:30:15:42:50

Last Updated: 2004:03:30:15:42:50