Count Property

Number of attachments in the Attachments collection of the message. If the collection is empty, the value is zero.

Value Type:	Long

Parameters:	None

Remarks:	This property is read-only

Usage example:

Dim Mailer, Msg
'Using visual basic to create object
Set Mailer = CreateObject("MailBee.POP3")
'Using ASP to create object
'Set Mailer = Server.CreateObject("MailBee.POP3")
'In ASP use Response.Write instead of MsgBox
Mailer.LicenseKey = "put your license key here"
Mailer.Connect "mailserver.com", 110, "MyName", "MyPassword"
If Mailer.Connected Then
  If Mailer.MessageCount > 0 Then
    Set Msg = Mailer.RetrieveSingleMessage(1)
    MsgBox "The message has " & Msg.Attachments.Count & " attachments"
  End If
  Mailer.Disconnect
End If