- Private Sub Command1_Click()
- '
- Dim pop3 As Object
- Dim EmailMsg As Object
- Set pop3 = CreateObject("JMail.POP3")
- pop3.Connect "username","password","mail.mydomain.com"
- Debug.Print CStr(pop3.Count) + " || " + CStr(Now)
- Me.Label1.Caption = CStr(pop3.Count) + " || " + CStr(Now)
- pop3.Disconnect
- Set pop3 = Nothing
- End Sub