Ich habe damit ein Problem. Ich habe folgende Funktion zu entwickeln: in einem geöffneten Dokument (uiDocA), beim Klick auf ein Button, soll Ansicht ($All) aus dem Mail-Db des users im Dialogfeld geöffnet werden.Wenn der user ein Dokument auswählt (docM), soll in dem Dokument (uiDocA)im Rich Text Feld (DocLink) eine Verknüpfung zum ausgewählten Dokument (docM) erstellt werden. (Sehe unten den Code, der dies erledigen soll). Mit dem Debug LotusScript habe ich jeder Schritt kontrollier. Es läuft alles OK bis zur Zeile
Call rtitem.AppendDocLink(docM, tmpSubject)
Dann bekomme ich Fehlermeldung: "Couldn't get default View ID for database (Mail-Dateiname.nsf)". Was bedeutet das? Beim Debug sieht man, dass docM wurde richtig gefunden und initialisiert und tmpSubject auch.
Ich danke für Hilfe im Voraus.
sja
Sub Click(Source As Button)
Dim ws As NotesUIWorkspace
Dim s As NotesSession
Dim db As NotesDatabase
Dim uidb As NotesDatabase
Dim uiDocA As NotesUIDocument
Dim docA As NotesDocument
Dim docM As NotesDocument
Dim rtitem As NotesRichTextItem
Dim tmpSRV As String
Dim tmpMAIL As String
Dim tmpSubject As String
Dim collection As NotesDocumentCollection
Set s = New NotesSession
Set ws = New NotesUIWorkspace
Set uidb = s.CurrentDatabase
Set uiDocA = ws.CurrentDocument
Set docA = uiDocA.Document
tmpSRV = uiDocA.FieldGetText("UserMailSrv")
tmpMAIL = uiDocA.FieldGetText("UserMailPfad")
tmpVon = "Email-Datei von: " + uiDocA.FieldGetText("AutorDisplay")
Set db = New NotesDatabase( tmpSRV, tmpMAIL )
Set collection = ws.PickListCollection( 3 , False , tmpSRV , tmpMAIL, "($All)", tmpVon, "Wählin Sie eine Email aus" )
Set docM = collection.GetFirstDocument
Set rtitem = New NotesRichTextItem( docA, "DocLink" )
tmpSubject = docM.Subject(0)
Call rtitem.AppendDocLink(docM, tmpSubject)
End Sub
