LOTUSSCRIPT /COM/OLE のクラス

例:Encoding プロパティ
次のエージェントは、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

関連項目