Hallo an alle!
Ich möchte aus den Urlaubsanträgen in unserer Urlaubs-DB automatisch Kalendereinträge in der Mail-DB des Benutzers generieren. Dazu habe ich mir versuchsweise ein Script zusammengebastelt mit dem das schon halbwegs funktioniert. Allerdings wird nur der Termin am Startdatum eingetragen. Ich möchte aber an jedem Tag des Urlaubs einen Eintrag sehen. Was muß ich ändern?
Wär schön, wenn jemand helfen könnte!
Vielen Dank!
kewy
Hier mein Script: (bitte nich lachen, ich hab keine Ahnung von Lotus-Script)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim dateRange As NotesDateRange
Dim dauer As Integer
Dim tmpdate As String
Dim tmpdate2 As String
Dim datum_von As String
Dim datum_bis As String
Dim startDate As NotesDateTime
Dim endDate As NotesDateTime
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = New NotesDocument( db )
doc.Form = "Urlaub"
datum_von = uidoc.FieldGetText( "datum_1" )
Messagebox datum_von ,, "TMP-Date: "
datum_bis = uidoc.FieldGetText( "datum_2" )
dauer = uidoc.FieldGetText( "Urlaubstage" )
Set startDate = New NotesDateTime (datum_von)
Set endDate = New NotesDateTime(datum_bis)
rc = Evaluate (|@MailDbName|)
Set db = session.GetDatabase(rc(0), rc(1))
Set doc = db.CreateDocument
doc.Form = "Appointment"
doc.subject = "Urlaub-Test Date Range"
doc.AppointmentType="2"
Set dateRange = session.CreateDateRange
tmpDate = datum_von + " 00:00:00"
Set doc.CalendarDateTime = New NotesDateTime(tmpDate)
tmpDate = datum_von + " 00:00:01"
tmpDate2 = datum_bis + " 23:59:59"
Set dateRange.StartDateTime = startDate
Set dateRange.EndDateTime = endDate
Set doc.TimeRange = dateRange
doc.Duration = dauer
doc.SequenceNum = 1
doc.OrgTable = "P0"
Set doc.StartDateTime = New NotesDateTime (tmpDate)
Set doc.StartDate = New NotesDateTime (tmpDate)
Set doc.EndDateTime = New NotesDateTime (tmpDate2)
Call doc.ComputeWithForm(False,False)
Call doc.Save(True,False,True)