Hallo!
Gerade stehe ich vor dem Problem, einen Kalendereintrag (Erinnerung) aus einem Dokument heraus durch den Benutzer per Button erzeugen zu lassen. Der Betreff, die Uhrzeit und das Datum wird korrekt übernommen.
Was ich nur noch gerne hätte, wäre ein Link auf das ursprüngliche Dokument in diesem Kalendereintrag (egal wo), damit bei der Wiedervorlage-Erinnerung der Betroffene direkt in der relevanten Datenbank nachschauen kann, um was genau es geht.
Ich schaffe es leider nicht, diesen Link in irgendeiner Form dorthin zu bekommen.
Habt ihr eine Idee?
Zur Zeit nutze ich folgendes Script:
Sub Click(Source As Button)
Dim db As New NotesDatabase( "", "" )
Call db.OpenMail
server = db.Server
filepath = db.FilePath
filename = db.FileName
Dim session As New NotesSession
Set db1 = session.CurrentDatabase
dbfilename = db1.FileName
If dbfilename = filename Then
Exit Sub
End If
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
subject = uidoc.FieldGetText("Bezeichnung")
startdate = uidoc.FieldGetText("WV")
Set uidoc = workspace.ComposeDocument (server, filepath, "Appointment" )
Call uidoc.FieldSetText("subject",subject)
Call uidoc.FieldSetText("AppointmentType","4")
Call uidoc.FieldSetText("StartDate",startdate)
Call uidoc.FieldSetText("StartTime","08:00")
Call uidoc.FieldSetText("OrgConfidential","")
Call uidoc.Refresh
End Sub
Gruß
Ceilling