Dokument in Kalendereintrag kopieren

[cyberguy]

Hallo,

ich bin Neuling was Notes betrifft, und habe eine Frage.

Ich habe in einer Datenbank ein Dokument erstellt, welches ich über eine Aktion in einen
Kalendereintrag kopieren möchte.

Wie muss eine Formel aussehen, die das macht ?

Ich hab mir das aus der Mail-DB kopiert, aber leider funktioniert es nicht, und bringt immer
wieder einen Fehler.

Client Notes 7, Server 7.

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim note As NotesDocument
   
   Set db = s.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   Dim uiWksp As New NotesUIWorkspace
   
   If collection.count > 0 Then
      Set note = collection.GetFirstDocument
      Call note.ReplaceItemValue("StartDate", uiWksp.CurrentCalendarDateTime)
      Call note.ReplaceItemValue("EndDate", uiWksp.CurrentCalendarDateTime)
   Elseif collection.count = 0 And uiWksp.currentdocument Is Nothing Then
      Msgbox "Es ist kein Dokument ausgewählt. Bitte wählen Sie ein Dokument, das in einen neuen Kalendereintrag kopiert werden soll.", 16, "Fehler"
      Exit Sub   
   End If
   
   
   'Make sure we copy all the correct info
   Dim IntoForm As Variant
   IntoForm = "CalendarFS"
   If  PrepareNoteToCopyDrag(note , IntoForm ) = 0 Then
      Exit Sub
   Else
      Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
   End If   
End Sub

Da erscheint dann immer der Fehler für die Zeile UICOPYINTONEWDOCUMENT.

Was muss ich abändern, damit es funktioniert ?

Danke für eure Hilfe !

Greetz

Cyber

[gossifu]

Hallo cyberguy,

du rufts eine Funktion auf, die bestimmt in einer Scriptbibliothek hinterlegt ist.
Diese Bibliothek mußt Du in Deine Aktion unter Options mit einem Use 'Bibliothekenname' einbinden.

mfg

Kjeld