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
solution.

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