Go

Delete All IMAP Email

Demonstrates two ways to delete all email in a mailbox on an IMAP server. Go

    success := false

    // This example requires the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    imap := chilkat.NewImap()

    // Turn on session logging:
    imap.SetKeepSessionLog(true)

    // Connect to an IMAP server.
    // Use TLS
    imap.SetSsl(true)
    imap.SetPort(993)
    success = imap.Connect("imap.example.com")
    if success == false {
        fmt.Println(imap.LastErrorText())
        imap.DisposeImap()
        return
    }

    // Login
    success = imap.Login("myLogin","myPassword")
    if success == false {
        fmt.Println(imap.LastErrorText())
        imap.DisposeImap()
        return
    }

    // Select an IMAP mailbox
    success = imap.SelectMailbox("Inbox.RubyMail")
    if success == false {
        fmt.Println(imap.LastErrorText())
        imap.DisposeImap()
        return
    }

    // Get the complete set of Uids for email in the selected mailbox.
    messageSet := chilkat.NewMessageSet()
    success = imap.QueryMbx("ALL",true,messageSet)
    if success == false {
        fmt.Println(imap.LastErrorText())
        imap.DisposeImap()
        messageSet.DisposeMessageSet()
        return
    }

    // Set the Deleted flag for each message.
    // (ExpungeAndClose must be called to finalize the delete.)
    success = imap.SetFlags(messageSet,"Deleted",1)
    if success == false {
        fmt.Println(imap.LastErrorText())
        imap.DisposeImap()
        messageSet.DisposeMessageSet()
        return
    }

    // Alternatively, the Deleted flag may be set for each UID
    // individiually, but this is less efficient:
    i := 0
    n := messageSet.Count()
    for i < n {
        success = imap.SetFlag(*messageSet.GetId(i),messageSet.HasUids(),"Deleted",1)
        if success == false {
            fmt.Println(imap.LastErrorText())
            imap.DisposeImap()
            messageSet.DisposeMessageSet()
            return
        }

        i = i + 1
    }

    // Expunge and close the mailbox.
    success = imap.ExpungeAndClose()
    if success == false {
        fmt.Println(imap.LastErrorText())
        imap.DisposeImap()
        messageSet.DisposeMessageSet()
        return
    }

    // Display the session log.
    fmt.Println(imap.SessionLog())

    // Disconnect from the IMAP server.
    success = imap.Disconnect()

    imap.DisposeImap()
    messageSet.DisposeMessageSet()