Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
Read IMAP Email Flags - Seen, Answered, Deleted, Draft VB.NET source code example to read email from an IMAP server and examine the IMAP flags for Seen, Answered, Deleted, and Draft Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Create an object, connect to the IMAP server, login,
' and select a mailbox.
Dim imap As New Chilkat.Imap()
imap.UnlockComponent("UnlockCode")
imap.Connect("www.mymailserver.com")
imap.Login("login", "password")
imap.SelectMailbox("Inbox")
' Get a message set containing all the message IDs
' in the selected mailbox.
Dim msgSet As Chilkat.MessageSet
msgSet = imap.Search("ALL", 1)
' Fetch all the mail headers into a bundle object.
Dim bundle As New Chilkat.EmailBundle()
bundle = imap.FetchHeaders(msgSet)
' Loop over the bundle and display the From and Subject.
Dim email As Chilkat.Email
Dim descrip As String
Dim i As Long
For i = 0 To bundle.MessageCount - 1
' This email object only contains the header because
' we fetched the email using FetchHeaders.
email = bundle.GetEmail(i)
descrip = "("
If (imap.GetMailFlag(email, "Seen") = 1) Then
descrip = descrip & "Seen, "
Else
descrip = descrip & "NOT Seen, "
End If
If (imap.GetMailFlag(email, "Deleted") = 1) Then
descrip = descrip & "Marked for Deletion, "
Else
descrip = descrip & "NOT Marked for Deletion, "
End If
If (imap.GetMailFlag(email, "Answered") = 1) Then
descrip = descrip & "Answered, "
Else
descrip = descrip & "NOT Answered, "
End If
If (imap.GetMailFlag(email, "Draft") = 1) Then
descrip = descrip & "Draft"
Else
descrip = descrip & "NOT a Draft"
End If
descrip = descrip & ")"
descrip = descrip & email.From & ": " & email.Subject
' We can always synchronize the flags in our local email object
' with the current state of the flags for the email on the IMAP server
' by calling RefetchMailFlags...
' Example: status = imap.RefetchMailFlags(email)
ListBox1.Items.Add(descrip)
Next
' Disconnect from the IMAP server.
' This example leaves the email on the IMAP server.
imap.Disconnect()
End Sub
Important: The download for this
example does not contain the ChilkatDotNet.dll which |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.