title image


Smiley Re: Kalendereinträge mittels Script über mehrere Tage generieren?
Vielleicht hilft Dir dieses Script weiter - habe ich mal aus der Sandbox geholt. Diese Felder reichen auf jeden Fall zum Setzen aus...





REM Quick and dirty code to add business holidays to the user's calendar

REM This code will add your business holidays to the user's calendar by using front end classes and allowing the form's built in funtionality to handle the validation

Sub Click(Source As Button)

Dim session As New NotesSession

Dim db As New NotesDatabase ("","")

Dim ws As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim doc As NotesDocument

Dim userName As New notesname(session.username)

Dim dbfilename As String

Dim dbserver As String

Dim value As Integer



Call db.OpenMail

dbfilename=db.filepath

dbserver = db.server



value = Messagebox ("Möchten Sie diesen Termin in Ihren Kalender eintragen", (4+32+0+0), "Termin eintragen")



If (value = 6) Then

'*****************Do this chunk of code for each holiday in the year**************************

Set uidoc = ws.ComposeDocument (dbserver,dbfilename,"Appointment")

Call uidoc.FieldSetText("Subject","Mitarbeiterweiterbildung - 1.1. Die neue ESD-Norm ")

Call uidoc.FieldSetText("StartDate","22/10/2002")

Call uidoc.FieldSetText("AppointmentType","0")

Call uidoc.FieldSetText("StartTime","16:30")

Call uidoc.FieldSetText("EndTime","18:00")

Call uidoc.Save()

Call uidoc.Close()

'****************************************************************************************************



Messagebox ("Termin wurde im Kalender eingetragen.")

Else

Messagebox ("Es wurde kein Eintrag im Kalender erzeugt....")

End If



End Sub
Der schlimmste aller Fehler ist, sich keines solchen bewusst zu sein. THOMAS CARLYLE

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: