Troubleshooting
Dim objPOP3, objMsg ' Create POP3 object Set objPOP3 = CreateObject("MailBee.POP3") ' Enable logging POP3 session into a file objPOP3.EnableLogging = True objPOP3.LogFilePath = "C:\Temp\pop3_log.txt" ' 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 first message completely Set objMsg = objPOP3.RetrieveSingleMessage(1) If Not objPOP3.IsError Then ' Display message body MsgBox objMsg.BodyText 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 ' Create POP3 object Set objPOP3 = Server.CreateObject("MailBee.POP3") ' Enable logging POP3 session into a file objPOP3.EnableLogging = True objPOP3.LogFilePath = "C:\Temp\pop3_log.txt" ' 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 first message completely Set objMsg = objPOP3.RetrieveSingleMessage(1) If Not objPOP3.IsError Then ' Display message body Response.Write objMsg.BodyText 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: