(Lianja) IMAP Delete Old Email (before a specified date)

Demonstrates how to delete email older than a particular date.

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loImap = createobject("CkImap")

// Connect to an IMAP server.
// Use TLS
loImap.Ssl = .T.
loImap.Port = 993
// Use your IMAP server domain.  This example 
llSuccess = loImap.Connect("my-imap-server-domain.com")
if (llSuccess <> .T.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// Login
llSuccess = loImap.Login("myLogin","myPassword")
if (llSuccess <> .T.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// Select an IMAP mailbox
llSuccess = loImap.SelectMailbox("Inbox")
if (llSuccess <> .T.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// Get message ID's for emails older than 1/1/2018

llFetchUids = .T.
loMessageSet = loImap.Search("SENTBEFORE 01-Jan-2018",llFetchUids)
if (loImap.LastMethodSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// If desired, we can examine the Subject of each email to be deleted..
i = 0
lnCount = loMessageSet.Count
do while i < lnCount
    loEmail = loImap.FetchSingleHeader(loMessageSet.GetId(i),.T.)
    if (loImap.LastMethodSuccess = .T.) then
        ? loEmail.Subject
        release loEmail
    endif

    i = i + 1
enddo

// Set the Deleted flag for each message:
llSuccess = loImap.SetFlags(loMessageSet,"Deleted",1)
if (llSuccess <> .T.) then
    ? loImap.LastErrorText
    release loMessageSet
    release loImap
    return
endif

// Expunge and close the mailbox.
llSuccess = loImap.ExpungeAndClose()
if (llSuccess <> .T.) then
    ? loImap.LastErrorText
    release loMessageSet
    release loImap
    return
endif

// Disconnect from the IMAP server.
llSuccess = loImap.Disconnect()

release loMessageSet


release loImap