VB.NET - Retrieve Email from Hotmail/Outlook/Office 365¶

Imports System.IO
Imports EAGetMail 'imports EAGetMail namespace

Module Module1
    Sub Main()
        ' Create a folder named "inbox" under current directory
        ' to save the email retrieved.
        Dim curpath As String = Directory.GetCurrentDirectory()
        Dim mailbox As String = [String].Format("{0}\inbox", curpath)

        ' If the folder is not existed, create it.
        If Not Directory.Exists(mailbox) Then
            Directory.CreateDirectory(mailbox)
        End If

        ' Hotmail/Outlook IMAP4 server is "imap-mail.outlook.com"
        Dim oServer As New MailServer("imap-mail.outlook.com", _
            "hotmailid@hotmail.com", "yourpassword", ServerProtocol.Imap4)

         ' For Office 365 user, please change server to:

        'Dim oServer As New MailServer("outlook.office365.com", _
         '   "user@domain", "yourpassword", ServerProtocol.Imap4)

        Dim oClient As New MailClient("TryIt")

        ' Enable SSL connection
        oServer.SSLConnection = True

        ' Set 993 IMAP SSL port
        oServer.Port = 993

        Try
            oClient.Connect(oServer)
            Dim infos As MailInfo() = oClient.GetMailInfos()
            For i As Integer = 0 To infos.Length - 1
                Dim info As MailInfo = infos(i)
                Console.WriteLine("Index: {0}; Size: {1}; UIDL: {2}", _
                        info.Index, info.Size, info.UIDL)

                ' Receive email from IMAP4 server
                Dim oMail As Mail = oClient.GetMail(info)

                Console.WriteLine("From: {0}", oMail.From.ToString())
                Console.WriteLine("Subject: {0}" & vbCr & vbLf, oMail.Subject)

                ' Generate an email file name based on date time.
                Dim d As System.DateTime = System.DateTime.Now
                Dim cur As New System.Globalization.CultureInfo("en-US")
                Dim sdate As String = d.ToString("yyyyMMddHHmmss", cur)
                Dim fileName As String = [String].Format("{0}\{1}{2}{3}.eml", _
                    mailbox, sdate, d.Millisecond.ToString("d3"), i)

                ' Save email to local disk
                oMail.SaveAs(fileName, True)

                ' Mark email as deleted in Hotmail Account
                oClient.Delete(info)
            Next
            ' Quit and purge emails marked as deleted from Hotmail IMAP4 server.
            oClient.Quit()
        Catch ep As Exception
            Console.WriteLine(ep.Message)
        End Try

    End Sub
End Module