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
Read All Mail in IMAP Mailbox
This VB example program reads all the email from an IMAP mailbox. Private Sub Command1_Click()
' Create an object, connect to the IMAP server, login,
' and select a mailbox.
Dim imap As New ChilkatImap
imap.UnlockComponent "UnlockCode"
imap.Connect "mail.my_imap_server.com"
imap.Login "login", "password"
imap.SelectMailbox "Inbox"
' Get a message set containing all the message IDs
' in the selected mailbox.
Dim msgSet As messageSet
Set msgSet = imap.Search("ALL", 1)
' Fetch all the mail into a bundle object.
Dim bundle As New ChilkatEmailBundle2
Set bundle = imap.FetchBundle(msgSet)
' Loop over the bundle and display the From and Subject.
Dim email As ChilkatEmail2
For i = 0 To bundle.MessageCount - 1
Set email = bundle.GetEmail(i)
List1.AddItem email.From & ": " & email.Subject
Next
' Save the email to an XML file
bundle.SaveXml "bundle.xml"
' Disconnect from the IMAP server.
' This example leaves the email on the IMAP server.
imap.Disconnect
End Sub
|
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.