Calendar Code

HCL Domino Domino Forum
1

Does anyone know where I can find the code for the personal calendar which adds and saves appointments?

2

Subject: Calendar Code

You want to create a reminder with script? Search in this forum or look in the Sandbox, there is a working example,

JYR

For faster answers, be C R I S P Y

3

Subject: Calendar Code

Make a copy of your mailbox and see if you can find it? The Type of view when selected as Calender displays the calender that way.

4

Subject: Calendar Code

Sub createReminder( dateTime As notesDateTime,popUpStr As String, subjectStr As String )

Dim sess As New NotesSession

Dim userMailDb As New NotesDatabase( "", "" )

Call userMailDb.OpenMail



Dim reminderDoc As New NotesDocument( userMailDb )



Dim DTItem As NotesItem



With reminderDoc

	

	.Form = "Appointment"

	.ReplaceItemValue "$Alarm", 1

	.ReplaceItemValue "$AlarmDescription",  "Tech.

Support Request " & popUpStr

	.ReplaceItemValue "$AlarmMemoOptions", ""

	.ReplaceItemValue "$AlarmOffset", 0

	.ReplaceItemValue "$AlarmUnit", "M"

	.ReplaceItemValue "tmpEventLabel", "Reminder"

	.ReplaceItemValue "_ViewIcon", 10

	

	.Subject = subjectStr

	.Alarms = "1"

	.Body = "Tech. Support Request" & Chr(13) &  Chr(13)

& popUpStr

	.CalendarDateTime = dateTime.lsLocalTime

	.StartDate = dateTime.lsLocaltime

	.StartTime = dateTime.lsLocaltime

	.StartDateTime = dateTime.lsLocaltime

	

	.EndDate = dateTime.lsLocaltime

	.EndTime = dateTime.lsLocaltime

	.EndDateTime = dateTime.lsLocaltime

	

	.AppointmentType = "4"

	

	

	

	.ComputeWithForm False, False

	.Save True, False

	.PutInFolder( "$Alarms" )		

	

End With

End Sub

Something like this. It’s for Reminder.