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) How to Copy IMAP Mail to another IMAP ServerDemonstrates how to copy the entire contents of an IMAP mailbox to another IMAP server.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim imapSrc As Chilkat.Imap Set imapSrc = Chilkat.NewImap ' Connect to our source IMAP server. success = imapSrc.Connect("imap.someMailServer.com") If (success <> True) Then Debug.Print imapSrc.LastErrorText Exit Sub End If ' Login to the source IMAP server success = imapSrc.Login("admin@chilkatsoft.com","myPassword") If (success <> True) Then Debug.Print imapSrc.LastErrorText Exit Sub End If Dim imapDest As Chilkat.Imap Set imapDest = Chilkat.NewImap ' Connect to our destination IMAP server. success = imapDest.Connect("mail.example-code.com") If (success <> True) Then Debug.Print imapDest.LastErrorText Exit Sub End If ' Login to the destination IMAP server success = imapDest.Login("myLogin","myPassword") If (success <> True) Then Debug.Print imapDest.LastErrorText Exit Sub End If ' Select an IMAP mailbox on the source IMAP server success = imapSrc.SelectMailbox("Inbox") If (success <> True) Then Debug.Print imapSrc.LastErrorText Exit Sub End If ' After selecting a mailbox, the NumMessages property will ' be updated to reflect the total number of emails in the mailbox: Debug.Print imapSrc.NumMessages ' The emails in the mailbox will always have sequence numbers ' ranging from 1 to NumMessages. ' This example will copy the first 10 messages. ' We'll leave it up to you to write code to copy ' the entire sequence range in reasonable size chunks. startSeqNum = 1 msgCount = 10 Set sa = imapSrc.FetchSequenceAsMime(startSeqNum,msgCount) If (imapSrc.LastMethodSuccess <> True) Then Debug.Print imapSrc.LastErrorText Exit Sub End If For i = 0 To sa.Count - 1 success = imapDest.AppendMime("Inbox",sa.GetString(i)) If (success <> True) Then Debug.Print imapDest.LastErrorText Exit Sub End If Next ' Disconnect from the IMAP servers. success = imapSrc.Disconnect() success = imapDest.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.