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 原文链接：https://www.f2er.com/vb/258715.html