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
Sorting Email
How to sort an email bundle. Dim imap As New ChilkatImap Dim success As Long ' 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 ' Select an IMAP mailbox success = imap.SelectMailbox("Inbox") If (success <> 1) Then MsgBox imap.LastErrorText Exit Sub End If Dim messageSet As MessageSet ' We can choose to fetch UIDs or sequence numbers. Dim fetchUids As Long fetchUids = 1 ' Pass any of the above strings here to test a search: Set messageSet = imap.Search("ALL",fetchUids) If (messageSet Is Nothing ) Then MsgBox imap.LastErrorText Exit Sub End If ' Fetch the email headers into a bundle object: Dim bundle As ChilkatEmailBundle2 Set bundle = imap.FetchHeaders(messageSet) If (bundle Is Nothing ) Then MsgBox imap.LastErrorText Exit Sub End If ' Sort the email bundle by date, recipient, sender, or subject: Dim ascending As Long ascending = True bundle.SortByDate ascending ' To sort by recipient, sender, or subject, call ' SortBySender, SortByRecipient, or SortBySubject. ' Display the Subject and From of each email. Dim i As Long For i = 0 To bundle.MessageCount - 1 Dim email As ChilkatEmail2 Set email = bundle.GetEmail(i) Text1.Text = Text1.Text & email.GetHeaderField("Date") & vbCrLf Text1.Refresh Text1.Text = Text1.Text & email.Subject & vbCrLf Text1.Refresh Text1.Text = Text1.Text & email.From & vbCrLf Text1.Refresh Text1.Text = Text1.Text & "--" & vbCrLf Text1.Refresh Next ' Disconnect from the IMAP server. imap.Disconnect |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.