Delete Email

Download VB.NET Project Files and Source Code

VB.NET source code example to delete email from an IMAP server.

    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)

        ' Mark all the messages in the set for deletion
        Dim success As Long
        success = imap.SetFlags(msgSet, "Deleted", 1)
        If (success = 0) Then
            ' If success returns 0, it failed.
            MsgBox(imap.LastErrorText)
            Exit Sub
        End If

        ' Alternatively, we could loop over the emails in the
        ' message set and delete them one by one.
        'Dim i As Long
        ' For i = 0 To msgSet.Count - 1
        '     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 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