RequestInfo (NotesCalendarNotice - LotusScript)

カレンダー通知の情報を要求します。

定義位置

構文

Call notesCalendarNotice.RequestInfo( comments$ )

パラメータ	説明
`comments`	String 型。要求に関するコメント。

可能性のある例外	値	テキスト	説明
`lsERR_NOTES_ERR_UNSUPPORTEDACTION`	4811	サポートされないアクション	メソッドが、エントリに対して無効なアクションを適用しようとしています。
`lsERR_NOTES_ERR_OVERWRITEDISALLOWED`	4813	個人の変更を上書きすることになるため、このアクションは実行できません	アクションを確認した後、上書きフラグを設定して再実行してください。
`lsERR_NOTES_ERR_IDNOTFOUND`	4814	ID が見つかりません	NotesCalendarNotice オブジェクトの識別子がカレンダーの通知を示していません。

例

このエージェントは、招集の情報を要求します。

import lotus.domino.*;

public class JavaAgent extends AgentBase {

    public void NotesMain() {

      try {
          Session session = getSession();
          AgentContext agentContext = session.getAgentContext();

          // (Your code goes here)
          DbDirectory dbdir = session.getDbDirectory("");
          Database maildb = dbdir.openMailDatabase();
          NotesCalendar cal = session.getCalendar(maildb);
          java.util.Calendar jdt = java.util.Calendar.getInstance();
          jdt.set(2012, 1, 1, 1, 1, 1);
          DateTime dt1 = session.createDateTime(jdt);
          DateTime dt2 = session.createDateTime("Yesterday 02");
          java.util.Vector invites = cal.getNewInvitations(dt1, dt2);
          Database db = agentContext.getCurrentDatabase();
          // Create document to post results
          Document doc = db.createDocument();
          doc.appendItemValue("Form", "main");
          doc.appendItemValue("subject", "Requesting info for invitation");
          RichTextItem body = doc.createRichTextItem("body");
          if (invites.size() == 0) body.appendText("No invitation");
          else {
        		NotesCalendarNotice invite = (NotesCalendarNotice)invites.firstElement();
        		body.appendText(invite.read());
        		invite.requestInfo("Need more info");
          }
          doc.save(true, true);
          
      } catch(Exception e) {
          e.printStackTrace();
      }
   }
}

LotusScript® 構文と例

NotesCalendarNotice.RequestInfo(Byval comments As String)

このエージェントは、招集の情報を要求します。

%Include "lsconst.lss"
Sub Initialize
	Dim session As New NotesSession
	Dim maildb As New NotesDatabase("", "")
	Dim cal As NotesCalendar
	Dim dt1 As NotesDateTime
	Dim dt2 As NotesDateTime
	Dim invites As Variant
	Call maildb.Openmail()
	Set cal = session.getCalendar(maildb)
	Set dt1 = session.createdatetime("01/01/2012 00:00 AM")
	Set dt2 = session.createdatetime("Yesterday 00:00 AM")
	invites = cal.Getnewinvitations(dt1, dt2)
	If IsEmpty(invites) Then
		MessageBox "No invitation",, "Nothing"
	Else
		Dim invite As NotesCalendarNotice
		Dim entry As NotesCalendarEntry
		Set invite = invites(0)
		MessageBox invite.Read(),, "Requesting information"
		call invite.Requestinfo("Need more information")
	End If
End Sub