Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Xojo Plugin) Process Bounced Email in IMAPReads an IMAP mailbox and determines which emails are bounces.
// This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Dim imap As New Chilkat.Imap Dim bounce As New Chilkat.Bounce // Connect to an IMAP server. // Use TLS imap.Ssl = True imap.Port = 993 Dim success As Boolean success = imap.Connect("imap.someMailServer.com") If (success <> True) Then System.DebugLog(imap.LastErrorText) Return End If // Login success = imap.Login("admin@chilkatsoft.com","myPassword") If (success <> True) Then System.DebugLog(imap.LastErrorText) Return End If // Select an IMAP mailbox success = imap.SelectMailbox("INBOX.bounceSamples") If (success <> True) Then System.DebugLog(imap.LastErrorText) Return End If Dim messageSet As Chilkat.MessageSet // We can choose to fetch UIDs or sequence numbers. Dim fetchUids As Boolean fetchUids = True // Get the message IDs of all the emails in the mailbox messageSet = imap.Search("ALL",fetchUids) If (imap.LastMethodSuccess = False) Then System.DebugLog(imap.LastErrorText) Return End If // Fetch the emails into a bundle object: Dim bundle As Chilkat.EmailBundle bundle = imap.FetchBundle(messageSet) If (imap.LastMethodSuccess = False) Then System.DebugLog(imap.LastErrorText) Return End If // Loop over the bundle and display the FROM and SUBJECT of each. Dim i As Int32 i = 0 Dim numEmails As Int32 numEmails = bundle.MessageCount While i < numEmails Dim email As Chilkat.Email email = bundle.GetEmail(i) success = bounce.ExamineEmail(email) System.DebugLog("Subject: " + email.Subject) System.DebugLog("Bounce Type = " + Str(bounce.BounceType) + ", email address = " + bounce.BounceAddress) i = i + 1 Wend // Disconnect from the IMAP server. success = imap.Disconnect() |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.