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? ???
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