VB自动接收邮件

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