VB.NET Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

VB.NET Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML to XML
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
PFX
RSA
S/MIME
SMTP
Socket
Spider
SSH
SSH Tunnel
SSH Key
SFTP
Tar Archive
Upload
XML
XMP
Zip Compression
Misc

More Examples...
Email Object
DKIM / DomainKey
NTLM
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA
Bzip2
LZW

Byte Array
VB.NET FTPS
System.IO

 

 

 

 

 

 

Move Email to Another Mailbox

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

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
must be downloaded and installed separately at http://www.chilkatsoft.com/downloads.asp.
Once installed, add a reference to the DLL in the project by following the instructions at
http://www.example-code.com/vbdotnet/step2.asp

 
 

Need a specific example? Send a request to support@chilkatsoft.com

© 2000-2010 Chilkat Software, Inc. All Rights Reserved.

Mail Component · XML Parser