Downloading headers

The sample downloads headers for all the messages in the mailbox without downloading entire messages.

"From:", "To:" and "Subject:" fields are displayed for each downloaded message headers.

In ASP code, Server.HTMLEncode is used for encoding "<" and ">" characters (which often appear in e-mail addresses but not allowed in HTML) into their safe HTML equivalents. Visual Basic code does not require such encoding.

RetrieveHeaders is a key method of this sample.

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:

POP3.RetrieveHeaders Method

Messages Collection