LOTUSSCRIPT/COM/OLE CLASSES

Examples: Encoding property
This agent displays the encoding for a MIME entity.

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

See Also