Expunge Method

Permanently removes all messages from the selected mailbox that are marked as "deleted".

blnResult = ObjectName.Expunge


Parameters:	None

Return value As Boolean	True if successful, False if error has occurred. You can check ErrDesc property or log file to get more detailed error information

Usage example:

' This sample permanently deletes last 3 messages from "Inbox" mailbox

Dim Mailer
'Using visual basic to create object
Set Mailer = CreateObject("MailBee.IMAP4")
'Using ASP to create object
'Set Mailer = Server.CreateObject("MailBee.IMAP4")
'In ASP use Response.Write instead of MsgBox

Mailer.EnableLogging = True ' Logging helps to discover any problems
Mailer.LogFilePath = "C:\Temp\imap4_log.txt"

Mailer.LicenseKey = "put your license key here"
If Mailer.Connect("mailserver.com", 143, "MyName", "MyPassword") Then
  If Mailer.SelectMailbox("Inbox") Then
    If Mailer.DeleteMessages(Mailer.MessageCount - 2, Mailer.MessageCount, False) Then
      If Mailer.Expunge Then
        MsgBox "Messages expunged successfully"
      End If
    End If
  End If
  Mailer.Disconnect
Else
  MsgBox Mailer.ErrDesc
End If