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
VB自动接收邮件
最新推荐文章于 2019-06-20 12:01:16 发布