例: Charset property (NotesStream - LotusScript®)

次のエージェントは、「CHARACTERS.TRK」ファイルを使用します。このファイルでは、トルコ語 (ISO-8859-4) の文字を使用してメッセージを作成します。メッセージを正しく表示するには、マシンが 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