Examples: ContentSubType property

Sub Initialize
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim mime As NotesMIMEEntity
  Set db = s.CurrentDatabase
  s.ConvertMIME = False ' Do not convert MIME to rich text
  Set dc = db.UnprocessedDocuments
  Set doc = dc.GetFirstDocument
  While Not(doc Is Nothing)
    Set mime = doc.GetMIMEEntity
    If Not(mime Is Nothing) Then
      Messagebox mime.ContentType & "/" & _
      mime.ContentSubType,, _
      "Content-Type"
    Else
      Messagebox "No content type",, "Not MIME"
    End If
    Set doc = dc.GetNextDocument(doc)
  Wend
  s.ConvertMIME = True ' Restore conversion
End Sub