VB自动接收邮件

发布时间：2020-12-17 08:10:45 所属栏目：百科来源：网络整理

导读：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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!