Tcl

Delete a POP3 Message by Message Number

Demonstrates the Chilkat MailMan.DeleteByMsgnum method, which marks an email for deletion by its POP3 message number. Message numbers are specific to a single POP3 session and can change from one session to the next, so UIDLs are generally preferred for stable identification. This example marks message number 1 for deletion.

Background: In POP3, deletion is two-phase: messages are marked with the DELE command during the session, and the server only actually removes them when the session ends cleanly with QUIT. Message numbers are simple sequence positions (1, 2, 3, …) valid only within the current session — which is why DeleteByUidl is safer when you need to reliably target a specific message.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the MailMan.DeleteByMsgnum method, which marks an email for deletion by its
#  POP3 message number.  Message numbers are specific to a single POP3 session and can
#  change between sessions, so UIDLs are generally preferred.

set mailman [new_CkMailMan]

#  Configure the POP3 server connection.
CkMailMan_put_MailHost $mailman "pop.example.com"
CkMailMan_put_MailPort $mailman 995
CkMailMan_put_PopSsl $mailman 1
CkMailMan_put_PopUsername $mailman "user@example.com"
CkMailMan_put_PopPassword $mailman "myPassword"

#  Mark message number 1 for deletion.

set success [CkMailMan_DeleteByMsgnum $mailman 1]
if {$success == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    exit
}

#  Unless the ImmediateDelete property is set to 1, the message is only marked for
#  deletion.  End the POP3 session (which sends the QUIT command) to commit the deletion
#  on the server.
set success [CkMailMan_Pop3EndSession $mailman]
if {$success == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    exit
}

puts "Deleted message 1 from the POP3 server."

#  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
#  connects and authenticates -- using the property settings above -- whenever a server
#  operation requires it.  Calling the explicit connect/authenticate methods can still be
#  helpful to determine whether a failure occurs while connecting or while authenticating.

delete_CkMailMan $mailman