Hallo zusammen,
folgendes Problem:
Wir haben eine Datenbank erstellt in der Meetingprotokolle abgelegt werden sollen. Dafür wurde im Kalenderdokument ein Button hinzugefügt, der die Datenbank öffnet und dort ein neues Dokument erstellt. Das Kalenderdokument bleibt weiterhin geöffnet um in beiden Dokumenten weiterhin Daten eingeben zu können.
In diesem neu erstellten Dokument sollen wenn möglich die eingeladenen Personen aus dem Kalenderdokument übernommen werden, sprich aus einem nicht gespeicherten Frontend Dokument in ein neues. Folgenden Code habe ich schon mit dem das Dokument schon geöffnet wird und diverse Felder auch schon erfolgreich gefüllt werden.
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim aktdoc As NotesDocument
Dim newdoc As NotesDocument
Dim newuidoc As NotesUIDocument
Dim item As notesitem
server = "UNSERSERVER"
file = "it\protokoll.nsf"
Call ws.OpenDatabase(server,file,"","",True,False)
'Neues Dokument anlegen
Set db = session.CurrentDatabase 'Aktuelle Datenbank
Set newdoc = New NotesDocument(db)
newdoc.Form = "fm_minutes" 'Zuweisung mit welcher Maske das Dokument erstellt werden soll
newdoc.mailadress = session.UserName
newdoc.creator = session.Username
Set newuidoc = workspace.EditDocument(True, newdoc) 'Neues Dokument anzeigen
Call newuidoc.Save
Damit aber nicht 2x die betreffenden Personen eingetippt werden, wäre es praktisch aus der geöffneten Einladung zu übernehmen. Lt. Template "Appoinment" gibt es diese Feld "tmpRequiredAttendees" Typ berrechnet zur Anzeige. Welche Deklarationen brauche ich um diese Felder anzapfen zu können?
Besser gesagt, geht das überhaupt ohne das ich das Kalenderdokument gespeichert habe?
Hallo Peter,
vielen Dank für die Info,
klappt bestens.... musste noch ein bischen im Debugger suchen bis ich das richtige Feld gefunden hatte in der die Einträge dann auch wirklich drin stehen, aber dann hat's gepasst.
@Andreas
das Feld tmpRequiredAttendees ist im Template "Kalendereintrag".
Befüllt wird aber das Feld EnterSendTo im Kalender.
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim newdoc As NotesDocument
Dim newuidoc As NotesUIDocument
Dim item As notesitem
Set uidoc = ws.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
server = "UNSERSERVER"
file = "it\protokoll.nsf"
Call ws.OpenDatabase(server,file,"","",True,False)
'Neues Dokument anlegen
Set db = session.CurrentDatabase 'Aktuelle Datenbank
Set newdoc = New NotesDocument(db)
newdoc.Form = "fm_minutes" 'Zuweisung mit welcher Maske das Dokument erstellt werden soll
newdoc.mailadress = session.UserName
newdoc.creator = session.Username
newdoc.participant = doc.EnterSendTo
Set newuidoc = ws.EditDocument(True, newdoc) 'Neues Dokument anzeigen
Call newuidoc.Save
End Sub
.... atnotes ist einfach immer wieder hilfreich , danke!