Managed C++/CLI - Retrieve email over STLS from POP3 server¶

#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("pop3.emailarchitect.net",
            "test@emailarchitect.net",
            "testpassword",
            ServerProtocol::Pop3);

        // Enable SSL Connection
        oServer->SSLConnection = true;

        // Set 110 POP3 Port
        oServer->Port = 110;

        // Set TLS connection type
        oServer->SSLType = SSLConnectType::ConnectTLS;

        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);

        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 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);

            // Mark email as deleted from POP3 server.
            oClient->Delete(info);
        }

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

    return 0;
}