Managed C++/CLI - Mark email as read in POP3/IMAP4/EWS/WebDAV¶

#include "stdafx.h"

using namespace System;
using namespace System::Globalization;
using namespace System::IO;
using namespace EAGetMail; //add EAGetMail namespace

// Generate an unqiue email file name based on date time
static String ^ _generateFileName(int sequence)
{
    DateTime currentDateTime = DateTime::Now;
    return String::Format("{0}-{1:000}-{2:000}.eml",
        currentDateTime.ToString("yyyyMMddHHmmss", gcnew CultureInfo("en-US")),
        currentDateTime.Millisecond,
        sequence);
}

int main(array<System::String ^> ^args)
{
    bool isUidlLoaded = false;
    bool isLeaveCopy = true; // leave a copy of message on server.

    // UIDL is the identifier of every email on POP3/IMAP4/Exchange server, to avoid retrieve
    // the same email from server more than once, we record the email UIDL retrieved every time
    // if you delete the email from server every time and not to leave a copy of email on
    // the server, then please remove all the function about uidl.
    // UIDLManager wraps the function to write/read uidl record from a text file.
    UIDLManager ^oUIDLManager = gcnew UIDLManager();

    try
    {
        // Create a folder named "inbox" under current directory
        // to save the email retrieved.
        String ^localInbox = String::Format("{0}\\inbox", Directory::GetCurrentDirectory());
        String ^uidlFile = String::Format("{0}\\uidl.txt", localInbox);

        // If the folder is not existed, create it.
        if (!Directory::Exists(localInbox))
        {
            Directory::CreateDirectory(localInbox);
        }

        MailServer ^oServer = gcnew MailServer("pop3.emailarchitect.net",
            "test@emailarchitect.net",
            "testpassword",
            ServerProtocol::Pop3);

        // Enable SSL/TLS connection, most modern email server require SSL/TLS by default
        oServer->SSLConnection = true;
        oServer->Port = 995;

        // if your server doesn't support SSL/TLS, please use the following codes
        // oServer->SSLConnection = false;
        // oServer->Port = 110;

        // Load existed uidl records to UIDLManager
        oUIDLManager->Load(uidlFile);
        isUidlLoaded = true;

        Console::WriteLine("Connecting server ...");

        MailClient ^oClient = gcnew MailClient("TryIt");
        oClient->Connect(oServer);

        array<MailInfo^> ^infos = oClient->GetMailInfos();
        Console::WriteLine("Total {0} email(s)\r\n", infos->Length);

        // Remove the local uidl which is not existed on the server.
        oUIDLManager->SyncUIDL(oServer, infos);
        oUIDLManager->Update();

        for (int i = 0; i < infos->Length; i++)
        {
            MailInfo ^info = infos[i];
            if (oUIDLManager->FindUIDL(oServer, info->UIDL) != nullptr)
            {
                // This email has been downloaded before.
                continue;
            }

            Console::WriteLine("Retrieving {0}/{1}...", i + 1, infos->Length);

            // Generate an unqiue email file name based on date time
            String^ fileName = _generateFileName(i + 1);
            String^ fullPath = String::Format("{0}\\{1}", localInbox, fileName);

            // Receive email from POP3 server
            Mail ^oMail = oClient->GetMail(info);
            Console::WriteLine("From: {0}", oMail->From->ToString());
            Console::WriteLine("Subject: {0}\r\n", oMail->Subject);

            // Save email to local disk
            oMail->SaveAs(fullPath, true);

            if (isLeaveCopy)
            {
                // Add uidl to uidl file to avoid we retrieve it next time.
                oUIDLManager->AddUIDL(oServer, info->UIDL, fileName);
            }
            else
            {
                Console::WriteLine("Deleting ...");
                oClient->Delete(info);

                // Remove UIDL from local uidl file.
                oUIDLManager->RemoveUIDL(oServer, info->UIDL);
            }
        }

        // Quit and expunge emails marked as deleted from POP3 server.
        oClient->Quit();
        Console::WriteLine("Completed!");
    }
    catch (Exception ^ep)
    {
        Console::WriteLine(ep->Message);
    }

    // Update the uidl list to local uidl file and then we can load it next time.
    if (isUidlLoaded)
    {
        oUIDLManager->Update();
    }

    return 0;
}

#include "stdafx.h"

using namespace System;
using namespace System::Globalization;
using namespace System::IO;
using namespace EAGetMail; //add EAGetMail namespace

// Generate an unqiue email file name based on date time
static String ^ _generateFileName(int sequence)
{
    DateTime currentDateTime = DateTime::Now;
    return String::Format("{0}-{1:000}-{2:000}.eml",
        currentDateTime.ToString("yyyyMMddHHmmss", gcnew CultureInfo("en-US")),
        currentDateTime.Millisecond,
        sequence);
}

int main(array<System::String ^> ^args)
{
    try
    {
        // Create a folder named "inbox" under current directory
        // to save the email retrieved.
        String ^localInbox = String::Format("{0}\\inbox", Directory::GetCurrentDirectory());

        // If the folder is not existed, create it.
        if (!Directory::Exists(localInbox))
        {
            Directory::CreateDirectory(localInbox);
        }

        MailServer ^oServer = gcnew MailServer("imap.emailarchitect.net",
            "test@emailarchitect.net",
            "testpassword",
            ServerProtocol::Imap4);

        // Enable SSL/TLS connection, most modern email server require SSL/TLS by default
        oServer->SSLConnection = true;
        oServer->Port = 993;

        // if your server doesn't support SSL/TLS, please use the following codes
        // oServer->SSLConnection = false;
        // oServer->Port = 143;

        Console::WriteLine("Connecting server ...");

        MailClient ^oClient = gcnew MailClient("TryIt");
        oClient->Connect(oServer);

        // retrieve unread/new email only
        oClient->GetMailInfosParam->Reset();
        oClient->GetMailInfosParam->GetMailInfosOptions = GetMailInfosOptionType::NewOnly;

        array<MailInfo^> ^infos = oClient->GetMailInfos();
        Console::WriteLine("Total {0} unread email(s)\r\n", infos->Length);

        for (int i = 0; i < infos->Length; i++)
        {
            MailInfo ^info = infos[i];
            Console::WriteLine("Index: {0}; Size: {1}; UIDL: {2}",
                info->Index, info->Size, info->UIDL);

            // Generate an unqiue email file name based on date time
            String^ fileName = _generateFileName(i + 1);
            String^ fullPath = String::Format("{0}\\{1}", localInbox, fileName);

            // Receive email from IMAP server
            Mail ^oMail = oClient->GetMail(info);
            Console::WriteLine("From: {0}", oMail->From->ToString());
            Console::WriteLine("Subject: {0}\r\n", oMail->Subject);

            // Save email to local disk
            oMail->SaveAs(fullPath, true);

            // mark unread email as read, next time this email won't be retrieved again
            if (!info->Read)
            {
                oClient->MarkAsRead(info, true);
            }

            // if you don't want to leave a copy on server, please use
            // oClient->Delete(info);
            // instead of MarkAsRead
        }

        // Quit and expunge emails marked as deleted from IMAP server.
        oClient->Quit();
        Console::WriteLine("Completed!");
    }
    catch (Exception ^ep)
    {
        Console::WriteLine(ep->Message);
    }

    return 0;
}