Downloading headers
Dim objPOP3, objMsg, objMsgs ' Create POP3 object Set objPOP3 = CreateObject("MailBee.POP3") ' Unlock POP3 object objPOP3.LicenseKey = "put your license key here" ' Set POP3 server name objPOP3.ServerName = "mail.server.com" ' Set user credentials objPOP3.UserName = "username" objPOP3.Password = "password" ' Connect to the server and log in the mailbox If objPOP3.Connect Then ' Download headers for all messages Set objMsgs = objPOP3.RetrieveHeaders If Not objPOP3.IsError Then ' Display "From:", "To:", "Subject:" for each message For Each objMsg In objMsgs MsgBox _ "From: " & objMsg.FromAddr & vbCrLf & _ "To: " & objMsg.ToAddr & vbCrLf & _ "Subject: " & objMsg.Subject Next Else ' Display error information MsgBox "Error #" & objPOP3.ErrCode & ", " & objPOP3.ErrDesc End If ' Close the connection objPOP3.Disconnect Else ' Display error information MsgBox "Error #" & objPOP3.ErrCode MsgBox "Server response: " & objPOP3.ServerResponse End If
<% Dim objPOP3, objMsg, objMsgs ' Create POP3 object Set objPOP3 = Server.CreateObject("MailBee.POP3") ' Unlock POP3 object objPOP3.LicenseKey = "put your license key here" ' Set POP3 server name objPOP3.ServerName = "mail.server.com" ' Set user credentials objPOP3.UserName = "username" objPOP3.Password = "password" ' Connect to the server and log in the mailbox If objPOP3.Connect Then ' Download headers for all messages Set objMsgs = objPOP3.RetrieveHeaders If Not objPOP3.IsError Then ' Display "From:", "To:", "Subject:" for each message For Each objMsg In objMsgs MsgBox _ "From: " & Server.HTMLEncode(objMsg.FromAddr) & "<br>" & _ "To: " & Server.HTMLEncode(objMsg.ToAddr) & "<br>" & _ "Subject: " & Server.HTMLEncode(objMsg.Subject) Next Else ' Display error information Response.Write "Error #" & objPOP3.ErrCode & ", " & objPOP3.ErrDesc End If ' Close the connection objPOP3.Disconnect Else ' Display error information Response.Write "Error #" & objPOP3.ErrCode & "<br>" Response.Write "Server response: " & objPOP3.ServerResponse End If %>See Also: