Delete Email from IMAP Mailbox

This Visual Basic sample code deletes email from an IMAP mailbox.

Private Sub Command1_Click()

    ' Create an object, connect to the IMAP server, login,
    ' and select a mailbox.
    Dim imap As New ChilkatImap
    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 messageSet
    Set 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.ErrorLogText
        Exit Sub
    End If
    
    ' Alternatively, we could loop over the emails in the
    ' message set and delete them one by one.
'    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.ErrorLogText
'            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