Domino 9 und frühere Versionen > ND6: Entwicklung

Kalendereintrag mit Skript

(1/2) > >>

Thorsten Kalweit:
Hallo zusammen,

gibt es die Möglichkeit einen Kalendereintrag (Termin) für jemand anderes zu erstellen?

Das Problem:
In einer Datenbank werden Termine erstellt und mit einer Schaltfläche werden diese in die Kalender übertragen. Die Datenbank dient zur Hilfestellung der Raumauswahl.
Es kommt allerdings auch häufig vor, dass Personen auch für andere einen Termin eintragen.

Lässt sich das Problem mit Skript umgehen?
Ich hätte mir ein Auswahlfeld vorgestellt: "Eintrag für: ".

Vielen Dank für die Hilfestellung im Voraus.

Viele Grüße
Thorsten

Hier ersteinmal, das Skript, was jetzt schon - bis auf das Problem - erfolgreich im Einsatz ist.
Sub Click(Source As Button)
   Dim session As New NotesSession   
   Dim db As New NotesDatabase ("","")
   Dim UiWs As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As notesdocument
   Dim startdatum As String
   Dim startzeit As String
   Dim enddatum As String
   Dim endzeit As String
   Dim thema As String
   Dim personen As String
   Dim optpersonen As String
   Dim infopersonen As String
   Dim raum As String
   
   Dim userName As New notesname(session.username)
   Dim dbfilename As String
   Dim dbserver As String
   Dim value As Integer
   
   Set uidoc = UiWs.CurrentDocument
   Set doc = uidoc.Document
   
   startdatum = uidoc.FieldGetText("StartDate")
   startzeit = uidoc.FieldGetText("StartTime")
   enddatum = uidoc.FieldGetText("EndDate")
   endzeit = uidoc.FieldGetText("EndTime")
   thema = uidoc.FieldGetText("thema")
   raum = uidoc.FieldGetText("auswahlraum")
   personen = uidoc.FieldGetText("tmpPersonen_1")
   optpersonen = uidoc.FieldGetText("optpersonen")
   infopersonen = uidoc.FieldGetText("infopersonen")
   
   Call db.OpenMail   
   dbfilename=db.filepath   
   dbserver = db.server
'*****************Do this chunk of code for each holiday in the year**************************     
   Set uidoc = UiWs.ComposeDocument (dbserver,dbfilename,"Appointment")
   Call uidoc.FieldSetText("AppointmentType","3")
   Call uidoc.Refresh
   Call uidoc.FieldSetText("Subject", thema)
      'Datumswerte
   Call uidoc.FieldSetText("StartDate",startdatum)
   Call uidoc.FieldSetText("EndDate",enddatum)
   Call uidoc.FieldSetText("StartTime",startzeit)
   Call uidoc.FieldSetText("EndTime",endzeit)
   Call uidoc.FieldSetText("Location",raum)
      'Raum
   Call uidoc.FieldSetText("RoomToReserve",raum)
   'Personen
   Call uidoc.FieldSetText("EnterSendTo",personen)
   Call uidoc.FieldSetText("EnterCopyTo",optpersonen)
   Call uidoc.FieldSetText("EnterBlindCopyTo",infopersonen)
   
   
   Call uidoc.Refresh
      'Call uidoc.Save()
      'Call uidoc.Close()
'****************************************************************************************************   
End Sub

eknori:
Das hier (http://atnotes.de/index.php?topic=41883.msg268602#msg268602) könnte hilfreich sein.

Thorsten Kalweit:
Hi eknori,

ich möchte das Skript gerne ausführen, aber leider meckert der Debugger immer, dass die Klasse an der Stelle
Dim notesdir As NotesDirectory
Set notesdir  = s.getDirectory(DD_SERVER)

nicht gefunden wurde.

Das hat sich schon erledigt ;-)

Ich werde erstmal etwas basteln und melde mich später wieder. Trtzdem danke  :)

Ich muss gestehen, dass ich kein Scriptexperte bin  ;)

Viele Grüße
Thorsten

Thorsten Kalweit:
Eine Frage habe ich doch noch:

Wo bringe ich in eknori's Skript den RoomToReserve unter?

Viele Grüße
Thorsten

klaussal:
Steht doch schon drin...


--- Code: --- 'Raum
   Call uidoc.FieldSetText("RoomToReserve",raum)

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite