Manage Learn to apply best practices and optimize your operations.

Creating A Calendar Entry

I came across a situation where I needed to create a calendar entry in a user's
mail box. I wrote an agent to perform this task by pulling the data from HP
3000(ODBC). Unfortunately, the agent took more time to complete the operation.
I was working out to simplify this process and came out with the following

Compose a document (calendar entry form) with the required information in the
current database and send it to the user as an e-mail. This will act as a
notice and also creates a calendar entry in the user's mail box. This saves the
time of extracting the person's document and information, such as server name,
mail file name, etc. Paste the code given below in an action button and check
out the results.

Note: Calendar Entry form is not needed in the Current database.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As notesdatabase
Dim doc As NotesDocument
Dim user As String
Dim DateTime As NotesDateTime

Set DateTime = New NotesDateTime(Now())
user = session.UserName
Set db = Session.CurrentDatabase
Set Doc = New NotesDocument(Db)
Doc.Form = "Appointment"
Doc.AppointmentType = "4"
Doc.Subject = "Test"
Doc.StartDateTime = DateTime.LSLocalTime
doc.StartTime = DateTime.LSLocalTime
doc.CalendarDateTime = DateTime.LSLocalTime
doc.Principal = user
doc.Body = "Test for Calendar Entry "
Call Doc.Send( False, User )
end sub

Dig Deeper on Domino Resources - Part 3



  • Favorite iSeries cheat sheets

    Here you'll find a collection of valuable cheat sheets gathered from across the iSeries/ community. These cheat ...

  • HTML cheat sheet

    This is a really cool cheat sheet if you're looking to learn more about HTML. You'll find just about everything you every wanted ...

  • Carol Woodbury: Security

    Carol Woodbury