例: SignOnSend property

  1. 次のスクリプトは、NotesDatabase オブジェクト doc の SaveMessageOnSend プロパティを True に設定します。
    Dim doc As NotesDocument
    '...set value of doc...
    doc.SignOnSend = True
  2. 次のスクリプトはメールメモを新規作成して署名し、メールで送信します。
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Set db = session.CurrentDatabase
    Set doc = New NotesDocument( db )
    doc.SignOnSend = True
    doc.Form = "Memo"
    doc.Subject = "Here's a signed mail memo."
    Call doc.Send( False, "Carl Pycha" )