Home
Buy Now
Products
Downloads
Support
Resellers
Contact
Site Map
Home
Buy Now
Download
Support
Home
Purchase
Upgrade
Products
Downloads
Support
Samples
KB
Forum
Newsletter
Customers
Current List
Comments
Resellers
Jobs
Contact Us
VB Sample
ID:
1219
Product:
EasyMail Objects
Description:
Listing Mailstore Folders
Cut and paste.
The following sample code can be pasted into your application.
Private Sub EnumFolders(strPath$) Dim objMailStore As Object Dim Status As Long Dim Folder As Object Set objMailStore = CreateObject("EasyMail.MailStore.6") 'Open the store Status = objMailStore.OpenStore(strPath$, 0) If (Status <> 0) Then MsgBox "Error opening mailstore. Error: " & Status Exit Sub End If 'Display all folders in the mailstore For Each Folder In objMailStore.Folders MsgBox "FolderName: " & Folder.Name & vbCrLf & _ "Folder ID: " & Folder.ID & vbCrLf & _ "Folder Flags: " & Folder.Flags & vbCrLf Next Folder objMailStore.CloseStore End Sub Example usage: EnumFolders("d:\emails")
Notes:
This sample will list all the folders in the mailstore.
Did you find this sample useful?
Yes
No
Back to Search Page...
©2013 Quiksoft Corporation. All rights reserved.
Terms of Use
,
Privacy Statement
,
Trademarks
VB Sample