Xbase++

End a POP3 Session Without Committing Deletions

Demonstrates the Chilkat MailMan.Pop3EndSessionNoQuit method, which closes the POP3 connection without sending the QUIT command. Pending deletion marks are not committed — messages marked with DELE during the session remain in the mailbox. This example marks a message for deletion and then abandons the session so the deletion does not take effect.

Background: POP3's deferred-deletion model effectively gives you a transaction: marks made with DELE are only applied when the session ends with QUIT. Ending without QUIT is therefore a rollback — useful if an error occurs mid-processing and you'd rather leave the mailbox untouched than risk deleting messages you failed to handle. Use Pop3EndSession when you do want the deletions committed.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oMailman

nSuccess := 0

//  Demonstrates the MailMan.Pop3EndSessionNoQuit method, which closes the POP3 connection
//  WITHOUT sending the QUIT command.  Pending deletion marks are not committed -- messages
//  marked with DELE during the session remain in the mailbox.

oMailman := CreateObject("Chilkat.MailMan")

//  Configure the POP3 server connection.
oMailman:MailHost := "pop.example.com"
oMailman:MailPort := 995
oMailman:PopSsl := 1
oMailman:PopUsername := "user@example.com"
oMailman:PopPassword := "myPassword"

nSuccess := oMailman:Pop3BeginSession()
IF (nSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    RETURN
ENDIF

//  Mark a message for deletion...
nSuccess := oMailman:DeleteByMsgnum(1)
IF (nSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    RETURN
ENDIF

//  ...but end the session without QUIT, so the deletion is NOT committed and the message
//  remains in the mailbox.
nSuccess := oMailman:Pop3EndSessionNoQuit()
IF (nSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    RETURN
ENDIF

? "Session closed without committing the pending deletion."

oMailman:destroy()