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.

OLE and OUTLOOK read mail other than inbox.

Keywords:    OLE OUTLOOK inbox check mail MAPI

Question:

Answer:

Here is a list of all default folder constants in Outlook.

;Folder Constants
olFolder=3	;Deleted items
olFolder=4	;Outbox
olFolder=5	;Sent Items
olFolder=6	;Inbox
olFolder=9	;Calendar
olFolder=10	;Contacts
olFolder=11	;Journal
olFolder=12	;Notes
olFolder=13	;Tasks

You could for example look at all the message bodies in the sent items folder, as follows....

olFolder=5	;Sent Items
MSapp = ObjectOpen ("Outlook.Application")
objNameSpace = MSapp.GetNamespace("MAPI")
objFolder = objNameSpace.GetDefaultFolder(olFolder)
objFolder.Display
objcount=objFolder.Items
mycount=objcount.Count;checks number of messages

For xx = 1 to mycount 
  objitem=objFolder.Items(xx)
  myText = objitem.Body
  message("'Sent Item' Message Body #%xx%",mytext)
Next
ObjectClose(MSapp)
exit

If you want to look at a folder other than a default folder you could use the following code...

olFolder="Personal Folders"  ;Top level Folder name
myFolder="Junk" ;(case sensitive) change this to the folder you want
MSapp = ObjectOpen ("Outlook.Application")
objNameSpace = MSapp.GetNamespace("MAPI")
objFolder1 = objNameSpace.Folders(olFolder); 
objFolder=objFolder1.Folders(myFolder); 
objcount=objFolder.Items
mycount=objcount.Count ;checks number of messages 
For xx = 1 to mycount 
  objitem=objFolder.Items(xx)
  myText = objitem.Body
  message(" %MyFolder% Message Body #%xx%",mytext)
Next
ObjectClose(MSapp)
exit

Or if your folder is a subfolder of one of the default folders, like 'inbox'

Try this...

myFolder="Archived" ;case sensitive
olFolder=6		 ;inbox 
;olFolder=3		;Deleted items
;olFolder=4		;Outbox
;olFolder=5		;Sent Items
;olFolder=9		;Calendar
;olFolder=10	;Contacts
;olFolder=11	;Journal
;olFolder=12	;Notes
;olFolder=13	;Tasks
MSapp = ObjectOpen ("Outlook.Application")
objNameSpace = MSapp.GetNamespace("MAPI")
objInbox = objNameSpace.GetDefaultFolder(olFolder); 
obSubFolder = objInbox.Folders
objFolder = obSubFolder.Item(myFolder)
objcount=objFolder.Items
mycount=objcount.Count ;checks number of messages 
For xx = 1 to mycount 
        objitem=objFolder.Items(xx)
	  myText = objitem.Body
	  message(" %MyFolder% Message Body #%xx%",mytext)
Next
ObjectClose(MSapp)
exit

Article ID:   W14479

Filename:   OLE and OUTLOOK read mail other than inbox.txt

File Created: 2003:03:28:09:20:18

Last Updated: 2003:03:28:09:20:18