Delete message

This example shows you how to access to POP3 server, list message and delete messages larger than 1Mb.

C# example

using System;
using Independentsoft.Email;
using Independentsoft.Email.Pop3;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            Pop3Client client = new Pop3Client("pop.gmail.com", 995);

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

            client.Connect();
            client.Login("example@gmail.com", "password");

            MessageInfo[] messageInfo = client.List();

            for (int i = 0; i < messageInfo.Length; i++)
            {
                if (messageInfo[i].Size > 1024 * 1024)
                {
                    client.Delete(messageInfo[i].Index);
                }
            }

            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.Pop3

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

            Dim client As New Pop3Client("pop.gmail.com", 995)

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

            client.Connect()
            client.Login("example@gmail.com", "password")

            Dim messageInfo As MessageInfo() = client.List()

            For i As Integer = 0 To messageInfo.Length - 1
                If messageInfo(i).Size > 1024 * 1024 Then
                    client.Delete(messageInfo(i).Index)
                End If
            Next

            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