Finde meinen Fehler nicht

[Darkface]

Hallo zusammen,
ich bekomme bei folgendem Script immer diesen Fehler.
Couldn´t get default View id for Database(Dialogbox.ntf)

Kann mir jemand sagen was daran falsch ist?

Code

Dim Workspace As New NotesUIWorkspace   
   Dim uidSource As NotesUIDocument
   Dim docDialog As NotesDocument
   Dim docMail As NotesDocument   
   Dim rtBody As NotesRichTextItem   
   
   Dim sSendTo As String
   Dim sSubject As String
   Dim sInfo As String
   Dim bDialog As Variant
   
   Set oSession = New NotesSession
   Set dbCurrent = oSession.CurrentDatabase
   Set uidSource = Workspace.CurrentDocument
   Set docDialog = dbCurrent.CreateDocument
   
   bDialog = oWorkspace.Dialogbox("Dialogbox", True, True, False, False, False, False, "Userauswahl", docDialog, True)
   If bDialog Then   
      uidSource.FieldSetText "User", Cstr(docDialog.User(0))
      
      ' Dokument an den User senden
      Set docMail = New NotesDocument( dbCurrent )
      
      ' Inhalte der Mail setzen            
      sInfo = "Inhalt der Mail."
      docMail.SendTo = docDialog.User
      docMail.Subject = "Eine neue Mail"
      
                        ' Fehlerquelle laut Debug
      Set rtBody = New NotesRichTextItem( docMail , "Body" )         
      Call rtBody.AppendText( sInfo )
      Call rtBody.AppendDocLink( docMail, "Link")
      docMail.Send( False )
   End If

Danke schon mal an alle.

Gruß
  Darkface

[joringel]

Hat die Datenbank, auf die der DocLink verweist, eine Default View? Die ist notwendig..

[Darkface]

Wie und wo kann ich die den einrichten?

[joringel]

Im Designer in den Ansichtseigenschaften - Reiter 'i' - 'Vorgabe beim ersten Öffnen der Datenbank'

[Darkface]

Ja danke das funktioniert.

Gruß
  Darkface