例: CreateReplyMessage method

次のスクリプトはメールメモの返答を作成して、送信します。返答はメモの元の送信者にだけ送信されます。また、メモには Body アイテムは含まれますが Subject アイテムは含まれません。
```
Dim memo As NotesDocument
Dim reply As NotesDocument
'...set value of memo...
Set reply = memo.CreateReplyMessage( False )
reply.Body = "This reply was generated by a script"
Call reply.Send( False )
```
次のスクリプトはエージェントがメールメモを送信したかどうかを調べます。送信していないときは、それはメールメモの返答を作成して、元のメモの受信者全員に送信します。返答には Body アイテムと Subject アイテムが含まれます。例えば、元のメモに「Building renovations」という Subject アイテムが含まれていた場合、返答には「Re: Building renovations」という Subject アイテムが含まれます。
```
Dim memo As NotesDocument
Dim reply As NotesDocument
'...set value of memo...
If Not ( memo.SentByAgent ) Then
  Set reply = memo.CreateReplyMessage( True )
  reply.Subject = "Re: " & memo.Subject( 0 )
  reply.Body = "This reply was generated by a script"
  Call reply.Send( False )
End If  
```