Detecting attachments
The sample detects whether any attachments are present for each message in the mailbox.
To get attachments status, only message headers are retrieved.
HasAttachments property of Message object is a key property of this sample.
Note: Seldom, message headers say that attachments are present but there are really no any attachments. Download of entire message (not just headers) makes HasAttachments property to be 100%-accurate.
Dim objPOP3, objMsg, objMsgs, I
' 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 notification for messages with attachments
For I = 1 To objMsgs.Count
If objMsgs(I).HasAttachments Then
MsgBox "Message #" & I & " has attachments"
End If
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 notification for messages with attachments
For I = 1 To objMsgs.Count
If objMsgs(I).HasAttachments Then
Response.Write "Message #" & I & " has attachments<br>"
End If
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:
Message.HasAttachments Property