Delete message

This example shows you how to access to IMAP server, list message and delete some messages.

C# example

using System;
using Independentsoft.Email;
using Independentsoft.Email.Imap;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            ImapClient client = new ImapClient("myserver");

            Logger logger = new Logger("c:\\test\\log.txt");
            logger.WriteLog += new WriteLogEventHandler(OnWriteLog);
            client.Logger = logger;

            client.Connect();
            client.Login("username", "password");

            client.SelectFolder("Inbox");
            Envelope[] envelopes = client.ListMessages();

            for (int i = 0; i < envelopes.Length; i++)
            {
                if (envelopes[i].Subject.StartsWith("Undeliverable"))
                {
                    client.Delete(envelopes[i].UniqueID); //mark as deleted
                }
            }

            client.Expunge(); //delete messages marked as deleted
            client.Disconnect();

            Console.WriteLine("Press ENTER to exit!");
            Console.Read();
        }

        private static void OnWriteLog(object sender, WriteLogEventArgs e)
        {
            Console.Write(e.Log);
        }
    }
}

VB example

Imports System
Imports Independentsoft.Email
Imports Independentsoft.Email.Imap

Namespace Sample
    Class Program
        Shared Sub Main(ByVal args As String())

            Dim client As New ImapClient("myserver")

            Dim logger As New Logger("c:\test\log.txt")
            AddHandler logger.WriteLog, AddressOf OnWriteLog
            client.Logger = logger

            client.Connect()
            client.Login("username", "password")

            client.SelectFolder("Inbox")
            Dim envelopes As Envelope() = client.ListMessages()

            For i As Integer = 0 To envelopes.Length - 1
                If envelopes(i).Subject.StartsWith("Undeliverable") Then
                    client.Delete(envelopes(i).UniqueID) 'mark as deleted
                End If
            Next

            client.Expunge() 'delete messages marked as deleted
            client.Disconnect()

            Console.WriteLine("Press ENTER to exit!")
            Console.Read()
        End Sub

        Private Shared Sub OnWriteLog(ByVal sender As Object, ByVal e As WriteLogEventArgs)
            Console.Write(e.Log)
        End Sub
    End Class
End Namespace

Independentsoft - any library, any programming language

Email .NET > Tutorial > Delete message