Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Copy an Email from One Mailbox to AnotherCopies an email from one IMAP folder to another. After running this example, copies of the email will be present in both source and destination folders.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' This example copies an email from one mailbox to another. Dim imap As Chilkat.Imap Set imap = Chilkat.NewImap ' Turn on session logging: imap.KeepSessionLog = True ' Connect to an IMAP server. ' Use TLS imap.Ssl = True imap.Port = 993 success = imap.Connect("imap.someMailServer.com") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Login success = imap.Login("***","***") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Select an IMAP mailbox success = imap.SelectMailbox("Inbox.testing.a") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If fetchUids = True ' Get the message IDs for all emails having "Re:" in the subject. Set messageSet = imap.Search("SUBJECT Re:",fetchUids) If (imap.LastMethodSuccess <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Copy the messages from "Inbox.testing.a" to "Inbox.testing.b" in one call to CopyMultiple: success = imap.CopyMultiple(messageSet,"Inbox.testing.b") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Alternatively, loop over each message in the set and ' copy each separately: n = messageSet.Count If (n > 0) Then For i = 0 To n - 1 msgId = messageSet.GetId(i) isUid = messageSet.HasUids success = imap.Copy(msgId,isUid,"Inbox.testing.c") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If Next End If ' Display the session log. Debug.Print imap.SessionLog ' Disconnect from the IMAP server. success = imap.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.