Mail mit Link auf aktuelles Document

[MKnost]

  Hallo,

Ich hab in einer Maske eine Aktion, die das grade bearbeitete Dokument als Link in einer Mail verschicken soll ... Code sieht so aus:

Code

	
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

[koehlerbv]

Du hast in Deiner DB keine default view (Vorgabeansicht). Wähle einfach eine Ansicht Deiner Wahl aus, in den Ansichtsproperties findest Du "Vorgabe beim ersten Öffnen der Datenbank".

Bernhard

[MKnost]

 

Was bin ich glücklich, dass es Euch gibt!!!! *respekt*

Vielen Dank, hat wunderbar geklappt....