Lianja

Expunge Deleted Messages from a Mailbox

Demonstrates the Chilkat Imap.Expunge method, which permanently removes all messages marked with the \Deleted flag from the currently selected mailbox. The mailbox remains selected. This example marks a message deleted with SetFlag and then expunges.

Background: IMAP deletion is two-phase, much like POP3. First a message is marked with the \Deleted flag (it still exists, just tagged); then EXPUNGE permanently removes every flagged message and renumbers the rest. Splitting the two steps lets a client mark several messages and remove them together, or unmark (undelete) before committing. Expunge keeps the mailbox selected; ExpungeAndClose does the same and then closes it.

Chilkat Lianja Downloads

Download Chilkat for Lianja

Lianja

llSuccess = .F.

//  Demonstrates the Imap.Expunge method, which permanently removes all messages marked with
//  the \Deleted flag from the currently selected mailbox.  The mailbox remains selected.

loImap = createobject("CkImap")

loImap.Ssl = .T.
loImap.Port = 993

llSuccess = loImap.Connect("imap.example.com")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

llSuccess = loImap.Login("user@example.com","myPassword")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

//  Select the mailbox to operate on.
llSuccess = loImap.SelectMailbox("Inbox")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

//  Mark message (sequence number 1) with the \Deleted flag.  The 4th argument (1) sets the
//  flag; the 2nd argument (.F.) means the id is a sequence number, not a UID.
llSuccess = loImap.SetFlag(1,.F.,"\Deleted",1)
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

//  Permanently remove all \Deleted messages from the selected mailbox.
llSuccess = loImap.Expunge()
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

? "Expunged the deleted messages."

llSuccess = loImap.Disconnect()
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif



release loImap