This is a library for accessing a pop3 email box.

• Access any pop3 email box (if your network allows it)
• See what is in that mailbox (number of emails and sizes, etc.).
• Read the emails and delete them if you want to.
• Read all properties of an email.
• Handele Attachments

The WebMail application also makes use of the pop3 library

Click here to download the complete source code, the compiled DLL and the demo.

Public WithEvents POP3 As EVICT_POP3.POP3
Private Sub cmdLogin_Click()
Dim intloop As Integer, id As Integer
    Set POP3 = New EVICT_POP3.POP3
    POP3.POPHost = "pop3.myprovider.com"
    POP3.POPPort = 110
    POP3.UserName = "MyUserName"
    POP3.Password = "MyPassWord"
    POP3.Connect
    MsgBox POP3.MessageCount & " berichten, " & _
        POP3.TotalMessageSize & " bytes."
    For intloop = 1 To POP3.MessageCount
        Debug.Print intloop & ", " & _
        POP3.MessageSize(intloop) & ", " & _
        POP3.UniqueMessageID(intloop) & ", " & _
        POP3.Subject(intloop)
    Next
    Debug.Print "+ From : " & POP3.From(id) & vbCrLf & _
    "+ From : " & POP3.From(id) & vbCrLf & _
    "+ To : " & POP3.Recipient(id) & vbCrLf & _
    "+ CC : " & POP3.CC(id) & vbCrLf & _
    "+ Subject : " & POP3.Subject(id) & vbCrLf & _
    "+ Email body :" & POP3.Body(id) & vbCrLf
End Sub
Private Sub POP3_Status(Status As String)
    Debug.Print Status
End Sub