例: Encoding property (NotesMIMEEntity - LotusScript)

次のエージェントは、MIME エンティティのエンコードを表示します。

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
      Select Case mime.Encoding
      Case ENC_BASE64 : m = "base64"
      Case ENC_EXTENSION : m = "Extension"
      Case ENC_IDENTITY_7BIT : m = "7bit"
      Case ENC_IDENTITY_8BIT : m = "8bit"
      Case ENC_IDENTITY_BINARY : m = "binary"
      Case ENC_NONE : m = "None"
      Case ENC_QUOTED_PRINTABLE : m = "quoted-printable"
      End Select
      Messagebox m,, "Encoding"
    Else
      Messagebox "No encoding",, "Not MIME"
    End If
    Set doc = dc.GetNextDocument(doc)
  Wend
  s.ConvertMIME = True ' Restore conversion
End Sub