LotusScript: Anwortdokument mit Aktionsbutton erstellen (D6)

Muesly · 23. Januar 2004

Ich möchte gern ein Anwort Dokument per aktion erstellen.

Folgende Source war mein Ansatz:

Code

Sub Click(Source As Button)


 Dim workspace As New NotesUIWorkspace
 Dim doc As NotesDocument
 Dim dochaupt As NotesUIDocument


REM Hauptdokument rausfinden:	
  Set dochaupt = workspace.CurrentDocument


REM Anwortdokument erzeugen:	
   Set doc = dochaupt.Document.CreateReplyMessage(1)

End Sub

Alles anzeigen

Das ganze liefert einen "Object Varialbe not set".

Was mach ich falsch?

Wie erstellt ihr Antwortdokumente?

(Domino 6)

Danke & liebe Grüsse

RockWilder · 23. Januar 2004

Mach mal aus dem NotesUIDocument ein NotesDocument

/edit
Dann darfst du aber nicht mit CurrentDocument arbeiten!

/edit2
wenn du das aber so machen willst/musst, lass dir über CurrentDocument die DocID geben und such dann mit GetDocumentByUNID nach dem Dokument. Dann sollte das hinhauen. Durch die Brust ins Auge, aber was besseres fällt mir grad nicht ein

Muesly · 23. Januar 2004

aber genau das will ich ja...
ein Antwortdokument auf das gerade ausgewählte Dokument.

Ausserdem Warum? Die Eigenschaft "Document" eines "NotesUIDDocument" ist doch vom Typ "NotesDocument"...

RockWilder · 23. Januar 2004

warum nimmst du nicht einfach
@Command([ComposeWithReference]; server : database ; form ; flags) ?

Wenn du als Flag "2" nimmst, hast du den Text des Hauptdokuments in einer section gleich mit drin...

greetz
RW

Muesly · 23. Januar 2004

Danke, aber geht nicht, weil ich das BODY Feld eines anderen Dokumentes übernehmen will (RichtText) - das geht scheinbar mit der Formel sprache nicht, siehe:

http://www.dominoforum.de/modu…php?topic_id=2377&forum=5

Dennoch Danke

Diali · 4. Februar 2004

Das Script ist i.O..

Vermutlich ist das Document nicht geöffnet, denn dann ist das NotesUIDocument dochaupt = Nothing und die Anweisung
Set doc = dochaupt.Document läuft ins Leere.

Über die Ansicht geht es dann mit:

Dim dc as NotesDocumentCollection
Set dc = db.UnprocessedDocuments
if dc.Count <> 1 Then exit sub ' nicht genau ein Dokument ausgewählt
Set doc = dc.GetFirstDocument.CreateReplyMessage(1)

Gruß
Dirk

Teilen