次のスクリプトは、ログの保存先にするメールメッセージを開き、そのメッセージを Jimmy Ho にメール送信します。
Dim session As New NotesSession
Dim currentLog As NotesLog
Set currentLog = session.CreateLog( "Checkup Agent" )
Call currentLog.OpenMailLog _
( "Jimmy Ho", "Log for Checkup Agent" )
Call currentLog.Close