VB自动接收邮件

原创于 2013-07-18 11:23:26 发布 · 4.7k 阅读

1 ·

CC 4.0 BY-SA版权

VB 专栏收录该内容

43 篇文章

订阅专栏

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