WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Lotus Notes

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Create New Calendar Entry in Lotus Notes

 Keywords:  

; Create New Calendar Entry in Lotus Notes
NewCalMeetingBody="The Body"
NewCalMeetingSubject="The Subject"
NewCalLocation="the Location"
TheAppRequestorEmail="email"

Session = ObjectCreate("Notes.NotesSession")
Notesdb = Session.GetDatabase("", "")
If Notesdb.IsOpen == @FALSE Then Notesdb.OpenMail
Doc = Notesdb.CreateDocument
Doc.Form = "_Calendar Entry" ; Runs defaults as set in notes prefs
Doc.Subject = NewCalMeetingSubject
Doc.Body = NewCalMeetingBody
Doc.Location = NewCalLocation
Doc.MeetingType = "1"
doc.sendto = TheAppRequestorEmail

Doc.STARTDATETIME = ObjectType("DATE", "05/22/08 3:18:40 AM")
Doc.CALENDARDATETIME = ObjectType("DATE", "05/22/08 3:18:40 AM")
Doc.EndDateTime = ObjectType("DATE", "05/22/08 3:18:40 AM")

ws = ObjectCreate("Notes.NotesUIWorkspace")

ws.EDITDOCUMENT( "True", doc, "false" )

doc =
Notesdb = 0
Session =

Article ID:   W18088
Filename:   Create New Calendar Entry in Lotus Notes.txt
File Created: 2008:04:16:13:08:12
Last Updated: 2008:04:16:13:08:12