EAGetMail POP3 & IMAP4 Component > Developer Center > Example Codes > VB6 > Retrieve Email from Hotmail/MSN Live Account

VB6 - Retrieve Email from Hotmail/MSN Live Account

Hotmail/MSN Live POP3 server address is "pop3.live.com". It requires SSL connection on 995 port, and you should use your Hotmail/MSN email address as the user name for user authentication. For example: your email is "liveid@hotmail.com", and then the user name should be "liveid@hotmail.com".

The following example codes demonstrate how to retrieve email from Hotmail/MSN Live POP3 server.

Installation

Before you can use the following sample codes, you should download the EAGetMail Installer and install it on your machine at first.

Add Reference of EAGetMail to Visual Basic 6.0 Project

To use EAGetMail POP3 & IMAP4 ActiveX Object in your project, the first step is "Add reference of EAGetMail to your project". Please choose menu->"Project" -> "References"- > and choose the "EAGetMailObj ActiveX Object", click "OK", the reference of EAGetMail ActiveX Object will be added to your project, and you can start to use EAGetMail to retrieve email and parse email in your project.

add reference in VB6

' The following example codes demonstrate retrieving email from Hotmail/MSN Live POP3 server
' To get full sample projects, please download and install EAGetMail on your machine.
' To run it correctly, please change email server, user, password, folder, file name value to yours

Option Explicit

Const MailServerPop3 = 0
Const MailServerImap4 = 1

Private Sub Command1_Click()
    Dim curpath As String
    Dim mailbox As String
    Dim oTools As New EAGetMailObjLib.Tools

    ' Create a folder named "inbox" under current directory
    ' to save the email retrieved.
    curpath = App.Path
    mailbox = curpath & "\inbox"
    oTools.CreateFolder mailbox

    Dim oServer As New EAGetMailObjLib.MailServer
    ' Hotmail/MSN Live POP3 server address is "pop3.live.com"
    oServer.Server = "pop3.live.com"
    oServer.User = "hotmailid@hotmail.com"
    oServer.Password = "testpassword"
    oServer.Protocol = MailServerPop3

    ' Enable SSL Connection
    oServer.SSLConnection = True

    ' Set 995 SSL Port
    oServer.Port = 995

    On Error GoTo ErrorHandle:
    Dim oClient As New EAGetMailObjLib.MailClient
    oClient.LicenseCode = "TryIt"

    oClient.Connect oServer
    MsgBox "Connected"

    Dim infos
    infos = oClient.GetMailInfos()
    MsgBox UBound(infos) + 1 & " emails"

    Dim i As Integer
    For i = LBound(infos) To UBound(infos)
        Dim info As EAGetMailObjLib.MailInfo
        Set info = infos(i)
        MsgBox "Index: " & info.Index & "; Size: " & info.Size & _
        "; UIDL: " & info.UIDL

        ' Receive email from Hotmail/MSN Live POP3 server
        Dim oMail As EAGetMailObjLib.Mail
        Set oMail = oClient.GetMail(info)

        MsgBox "From: " & oMail.From.Address & _
            vbCrLf & "Subject: " & oMail.Subject

        Dim fileName As String
        ' Generate a random file name by current local datetime,
        ' You can use your method to generate the filename if you do not like it
        fileName = mailbox & "\" & oTools.GenFileName(i) & ".eml

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

        ' Mark email as deleted from Hotmail/MSN Live server.
        oClient.Delete info
    Next

    ' Quit and pure emails marked as deleted from Hotmail/MSN Live POP3 server.
    oClient.Quit
    Exit Sub

ErrorHandle:
    MsgBox Err.Description
End Sub

Comments

If you have any comments or questions about above example codes, please click here to add your comments.

Free Email Support

Not enough? Please contact our technical support team.

Support@EmailArchitect.NET

Remarks
We usually reply emails in 24hours. The reason for getting no response is likely that your smtp server bounced our reply. In this case, please try to use another email address to contact us. Your Gmail, Hotmail or Yahoo email account is recommended.

VB6 - Retrieve Email from Hotmail/MSN Live Account

VB6 Email Examples

Related Links