IsMessage Property


True, if the attachment holds RFC822-formatted message inside (for example, if the message was forwarded as attachment of another, containing message), False otherwise.

If True, you can create new Message object manually and pass value of Attachment.Content to Message.RawBody to load the message from the attachment.


Value Type: Boolean
Parameters: None 
Remarks: This property is read-only

Usage example:

Dim Mailer, Msg, Attach, AttachedMsg
'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)
    If Not Msg Is Nothing Then
      For Each Attach In Msg.Attachments
        If Attach.IsMessage Then
          ' For ASP: Set AttachedMsg = Server.CreateObject("MailBee.Message")
          Set AttachedMsg = CreateObject("MailBee.Message")
          AttachedMsg.RawBody = Attach.Content
          MsgBox "Subject of attached message: " & AttachedMsg.Subject
        End If
      Next
    End If
  End If
  Mailer.Disconnect
End If

See Also:

Content Property
Message Object


Copyright © 2002-2024, AfterLogic Corporation. All rights reserved.