次のエージェントは MIME ヘッダーを変更して、MIME 処理を終了し、関連する Body アイテムを削除します。save オプションを指定して MIME 処理を終了すると、ヘッダーの変更が Subject アイテムに送られます。
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim mime As NotesMIMEEntity
Dim header As NotesMIMEHeader
Set db = s.CurrentDatabase
s.ConvertMIME = False ' Do not convert MIME to rich text
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
If Not(doc Is Nothing) Then
Set mime = doc.GetMIMEEntity
If Not(mime Is Nothing) Then
Set header = mime.GetNthHeader("Subject")
Call header.SetHeaderVal(header.GetHeaderVal() & _
" - Body removed")
If doc.CloseMIMEEntities(True, "Body") Then
Call doc.RemoveItem("Body")
End If
Call doc.Save(True, True)
Else
Messagebox "Not MIME",, doc.GetItemValue("Subject")(0)
End If
End If
s.ConvertMIME = True ' Restore MIME conversion
End Sub