LOTUSSCRIPT /COM/OLE のクラス

例:Charset プロパティ
次のエージェントは、「CHARACTERS.TRK」ファイルを使います。このファイルでは、トルコ語 (ISO-8859-4) の文字を使ってメッセージを作成します。メッセージを正確に表示するには、Lotus Notes で Unicode を表示できるようにマシンを設定する必要があります。

Sub Initialize
Dim session As New NotesSession
Dim docT As NotesDocument
Dim db As NotesDatabase
Dim mimeT As NotesMIMEEntity
Dim ss As NotesStream
Dim mhdrT As NotesMIMEHeader
fileName$ = "C:\StreamFiles\characters.TRK"
chrset$ = "ISO-8859-4"

session.ConvertMime = False
Set ss = session.CreateStream
Set db = session.CurrentDatabase
Set docT = db.CreateDocument
Call ss.Open( fileName$, chrset$ )
Set mimeT = docT.CreateMIMEEntity
If Not (mimeT Is Nothing) Then
Call mimeT.SetContentFromText( ss, _
"text/plain; charset="+chrset$, ENC_NONE )
Call mimeT.EncodeContent( ENC_QUOTED_PRINTABLE )
Set mhdrT = mimeT.CreateHeader("Subject")
Call mhdrT.SetHeaderVal("Turkish Message")
Call docT.ReplaceItemValue("From", "Main Topic")
Messagebox mimeT.Charset,, "Charset"
Call docT.Save( True, False )
End If
Call ss.Close
session.ConvertMime = True
End Sub

関連項目