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

関連項目