Requests information for a calendar notice.
Syntax
Call notesCalendarNotice.RequestInfo( comments$ )
Parameter |
Description |
comments |
String. Comments regarding a request. |
Possible exception |
Value |
Text |
Description |
lsERR_NOTES_ERR_UNSUPPORTEDACTION |
4811 |
Unsupported action |
The method is attempting to apply an action
that is not valid for the entry. |
lsERR_NOTES_ERR_OVERWRITEDISALLOWED |
4813 |
This action is not allowed since it would
overwrite personal changes |
The action should be verified then reissued
with the overwrite flag set. |
lsERR_NOTES_ERR_IDNOTFOUND |
4814 |
Identifier not found |
The identifier for the NotesCalendarNotice object
does not identify a notice in the calendar. |
Examples
This agent requests information for
an invitation.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® syntax
and examples
NotesCalendarNotice.RequestInfo(Byval comments As String)
This
agent requests information for an invitation.%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