Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
List IMAP Mailboxes with Reference
Demonstrates how to list all sub-mailboxes within a specified context. In this case, we list all mailboxes under "INBOX.vendors". Dim imap As New ChilkatImap Dim success As Integer ' Anything unlocks the component and begins a fully-functional 30-day trial. success = imap.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then MsgBox imap.LastErrorText Exit Sub End If ' Connect to an IMAP server. success = imap.Connect("mail.chilkatsoft.com") If (success <> 1) Then MsgBox imap.LastErrorText Exit Sub End If ' Login success = imap.Login("admin@chilkatsoft.com","*myPassword5*") If (success <> 1) Then MsgBox imap.LastErrorText Exit Sub End If ' The ListMailboxes method returns a Mailboxes object ' that contains the collection of mailboxes. ' It accepts two arguments: a refName and a wildcardedMailbox. ' List all mailboxes under INBOX.vendors Dim refName As String refName = "INBOX.vendors" ' Select all mailboxes matching this pattern: Dim wildcardedMailbox As String wildcardedMailbox = "*" Dim mboxes As Mailboxes Set mboxes = imap.ListMailboxes(refName,wildcardedMailbox) If (mboxes Is Nothing ) Then MsgBox imap.LastErrorText Exit Sub End If Dim i As Integer For i = 0 To mboxes.Count - 1 Text1.Text = Text1.Text & mboxes.GetName(i) & vbCrLf Text1.Refresh Next ' Sample output looks like this: ' INBOX.vendors.shareit ' INBOX.vendors.paypal ' INBOX.vendors.dell ' INBOX.vendors.inMotion ' INBOX.vendors.myhosting ' INBOX.vendors.peer1 ' Disconnect from the IMAP server. imap.Disconnect |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.