:( Hallo,
Ich hab in einer Maske eine Aktion, die das grade bearbeitete Dokument als Link in einer Mail verschicken soll ... Code sieht so aus:
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim memo As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set memo = New NotesDocument( db )
memo.Form = "Memo"
memo.SendTo = doc.SendTo(0)
memo.Subject = "hier kommt ein link"
Set rtitem = New NotesRichTextItem( memo, "Body" )
Call rtitem.AppendDocLink( doc, "" )
Call memo.Send( False)
Nur leider klappt das nicht, es kommt immer die Fehlermeldung "Couldn't get default View id for database"...
Was mach ich da verkehrt???
Grüsse Micha