AutoSendNotices (NotesCalendar - LotusScript®)

読み書き可能。会議を作成または更新したときに、参加者に情報を自動的に送信するかどうかを指定します。

定義位置

データ型

Boolean 型

構文

取得する場合: flag = notesCalendar.AutoSendNotices

設定する場合: notesCalendar.AutoSendNotices = flag

適正値	説明
`true`	(デフォルト) 招集や再スケジュールなどの情報を参加者に自動的に送信します。
`false`	情報を参加者に自動的に送信しません。

例

このエージェントは、UTC の今日 16 時に対し会議のカレンダーエントリを作成し、通知は送信せず、UID を環境変数に書き込みます。

Sub Initialize
	Dim session As New NotesSession
	Dim maildb As New NotesDatabase("", "")
	Dim cal As NotesCalendar
	Dim calentry As NotesCalendarEntry
	Dim icale As String
	Dim tday As String
	REM Get calendar for current user and create entry
	Call maildb.Openmail()
	Set cal = session.getCalendar(maildb)
	tday = Format(Today, "yyyymmdd")
	icale = |BEGIN:VCALENDAR
BEGIN:VEVENT
DTSTART:| & tday & |T160000Z
DTEND:| & tday & |T170000Z
ATTENDEE;ROLE=CHAIR;PARTSTAT=ACCEPTED;CN="Roberta Person/Westford/IBM";
 RSVP=FALSE:mailto:roberta_person@us.ibm.com
ATTENDEE;ROLE=REQ-PARTICIPANT
 ;CN="Doc Test/Bedford/IBM";RSVP=TRUE:mailto:doctest@us.ibm.com
SUMMARY:Sample Meeting
ORGANIZER;CN="Roberta Person/Westford/IBM"
 :mailto:roberta_person@us.ibm.com
END:VEVENT
END:VCALENDAR|
	cal.Autosendnotices = false
	Set calentry = cal.Createentry(icale)
	Call session.Setenvironmentvar("currentuid", calentry.Uid)
	MessageBox "UID = " & calentry.Uid,, "Created calendar entry"
End Sub

クロスリファレンス

Java™ NotesCalendar クラスの AutoSendNotices プロパティ