Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual Basic 6.0) Move Selected Emails to another Mailbox FolderDownloads emails one by one in a selected mailbox, decides which emails are to be moved, and then moves the set of messages to another mailbox folder.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim imap As New ChilkatImap ' Connect to an IMAP server. ' Use TLS imap.Ssl = 1 imap.Port = 993 Dim success As Long success = imap.Connect("imap.someMailServer.com") If (success <> 1) Then Debug.Print imap.LastErrorText Exit Sub End If ' Login success = imap.Login("myLogin","myPassword") If (success <> 1) Then Debug.Print imap.LastErrorText Exit Sub End If ' Select an IMAP mailbox success = imap.SelectMailbox("Inbox") If (success <> 1) Then Debug.Print imap.LastErrorText Exit Sub End If ' Normally, when an email is downloaded, its "Seen" flag is automatically set. ' We don't want our program to be interfering with the "Seen" flags. ' To do this, set the PeekMode to 1. imap.PeekMode = 1 ' After selecting the mailbox, the NumMessages property ' will contain the number of emails in the mailbox. ' When sequence numbers (not UIDs) are used to reference emails, ' they range from 1 to N, where N is the number of messages in the mailbox. ' This example will download the headers by sequence numbers. Dim numEmails As Long numEmails = imap.NumMessages Dim mset As New MessageSet ' Indicate that mset contains sequence numbers, not UIDs. mset.HasUids = 0 ' Fetch each email and decide for each if it is to be moved ' to a particular other mailbox. If so, we'll add the sequence number to ' the mset, and then move all emails in the mset to the other mailbox. Dim i As Long i = 0 Do While i < numEmails ' Fetch the email by sequence number. Dim email As ChilkatEmail Set email = imap.FetchSingle(i + 1,0) If (imap.LastMethodSuccess <> 1) Then Debug.Print imap.LastErrorText Exit Sub End If ' If it is decided to move the email, add the sequence number to mset, like this: mset.InsertId i + 1 Loop ' If there are emails in mset to be moved, then do it.. If (mset.Count > 0) Then Dim destFolder As String destFolder = "Inbox/SomeOtherFolder" ' Assuming your IMAP server supports the feature that allows for messages to be moved to another folder... success = imap.MoveMessages(mset,destFolder) If (success <> 1) Then Debug.Print imap.LastErrorText Exit Sub End If End If ' Disconnect from the IMAP server. success = imap.Disconnect() |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.