LineCount Property


Contains the number of text lines in the MIME part.

This property is only valid on parts of text type (whose ContentCommonType property value is "text").


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

Usage example:

' This sample displays number of lines in text parts of the first email in Inbox.

' This subroutine is recursive
Sub DisplayLineCount(BodyPart)
  Dim Part
  If BodyPart.IsMultipart Then
    For Each Part In BodyPart.SubParts
      DisplayLineCount Part
    Next
  ElseIf BodyPart.ContentCommonType = "text" Then
    MsgBox BodyPart.LineCount & " lines"
  End If
End Sub

' Main code
Sub Main
  Dim Mailer, Envelopes, Envelope
  'Using visual basic to create object
  Set Mailer = CreateObject("MailBee.IMAP4")
  'Using ASP to create object
  'Set Mailer = Server.CreateObject("MailBee.IMAP4")
  'In ASP use Response.Write instead of MsgBox
  Mailer.EnableLogging = True
  Mailer.LogFilePath = "C:\Temp\imap4_log.txt"
  Mailer.ClearLog
  Mailer.LicenseKey = "put your license key here"
  If Mailer.Connect("mailserver.com", 143, "MyName", "MyPassword") Then
    If Mailer.SelectMailbox("Inbox") Then
      Set Envelopes = Mailer.RetrieveEnvelopesEx(1, 1, False, True)
      If Not Envelopes Is Nothing Then
        For Each Envelope In Envelopes
          DisplayLineCount Envelope.BodyStructure
        Next
      End If
    End If
    Mailer.Disconnect
  End If
End Sub

See Also:

ContentCommonType Property
Size Property
SubParts Property

BodyPartStructure Object
Envelope Object


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