This is a library for accessing a pop3 email box.

With this library you will be able to:

  • 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

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

Here is some sample code:

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
Share