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

Dig Deeper on Domino Resources - Part 3

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close