Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
Move Email to Another Mailbox
VB.NET source code example to move email from one IMAP mailbox to another. 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 the message IDs
' of all emails having the word Viagra in the subject
Dim msgSet As Chilkat.MessageSet
msgSet = imap.Search("SUBJECT Viagra", 1)
' Loop over the message IDs and copy each message to another folder and
' delete it from the Inbox. A MOVE operation in IMAP is done by copy
' and delete.
Dim i As Long
For i = 0 To msgSet.Count - 1
ListBox1.Items.Add("Moving message ID " & msgSet.GetId(i))
' Copy to a folder named "Viagra"
Dim success As Long
success = imap.Copy(msgSet.GetID(i), msgSet.HasUids(), "Viagra")
If (success = 0) Then
' If success returns 0, it failed.
MsgBox(imap.LastErrorText)
Exit Sub
End If
' Delete from Inbox (our currently selected mailbox).
success = imap.SetFlag(msgSet.GetID(i), msgSet.HasUids(), "Deleted", 1)
If (success = 0) Then
' If success returns 0, it failed.
MsgBox(imap.LastErrorText)
Exit Sub
End If
Next
' Now really delete the Viagra emails from Inbox by expunging (also close the mailbox).
imap.ExpungeAndClose()
' Disconnect from 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-2010 Chilkat Software, Inc. All Rights Reserved.