Dokument speichern bevor Agent ausgefuert wird.

[mh70220]

Hallo alle zusammen,

hier ist mein Agent:

Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   Dim object As NotesEmbeddedObject
   Dim heute As New notesdatetime ("heute")
   Dim word As Variant
   Dim wordoc As Variant
   Dim Person As String
   
   'Zusammensetzung von Dienstgrad, Vorname, Name
   Person = uidoc.FieldGetText("Dienstgrad") + " " + uidoc.FieldGetText("Vorname") + " " + uidoc.FieldGetText("Name")
   
   'Starten von Word und Auswahl von Dokumentenvorlage
   Set word = CreateObject("Word.Application")
   Call word.documents.add("E:\Datenbanken\Entwicklung\Vorlagen\LetterSoldat.dot")
   Set worddoc = word.activedocument
   
   'Befuellen der Felder vom ausgewaehlten Dokument
   worddoc.FormFields("TXTANREDE").result = uidoc.FieldGetText("Anrede")
   worddoc.FormFields("TXTPERSON").result = Person
   worddoc.FormFields("TXTDIENSTSTELLE").result = uidoc.FieldGetText("Dienststelle")
   
   
   'Word sichtbar machen
   word.visible = True
   
End Sub

Wenn ich diesen Agenten ausfuehre, dann bekomme ich die Meldung, das das Dokument nicht gespeichert ist. Gibt es eine Moeglichkeit am Anfang einen Speicherbefehl einzubauen?

[animate]

kommt die Meldung von Word oder von Notes?
Wenn sie von Notes kommt -> welche Zeile deines Scripts verursacht die Meldung?

[mh70220]

kommt von Notes. Welche Zeile.... keine Ahnung. ich weis nur, wenn ich vorher auf den Seicherbutton druecke und dann auf den, der den Agenten startet, dann geht es ohne Probleme

[mh70220]

Problem geloest. habe das gesamte script direkt in den Button gesetzt. nun geht es.

[koehlerbv]

Call uidoc.Save
speichert Dein Dokument. Aber wie es ausschaut, greifst Du auf ein existierendes Dokument zu ... Vielleicht geht uns hier noch ein bisschen von den Rahmenbedingungen ab ? Sag mal an ;-)

Und irgendwie habe ich das Gefühl, das Forum entwickelt sich gerade zur "Heimatfront" - immer wieder Anfragen vom Bund ... Aber ich hab' nix dagegen !  

Bernhard (Leutnant d.R.)  

[animate]

mach mal im Menü File->Tools->Debug LotusScript (weiß nicht, wie das auf deutsch heißt. irgendwas im Datei Menü) und schau nach, wo der Fehler auftritt.

[koehlerbv]

Welche Zeile.... keine Ahnung

Hierzu bitte den Debugger bemühen - der sagt Dir genau an, wo es "kracht". Oder einen ErrorHandler einbauen. Die Suche in diesem Forum zum Thema "ErrorHandler" oder "ErrorRoutine" führt Dich zu Beispielen.

HTH,
Bernhard

[koehlerbv]

Auf Deutsch: Datei - Extras - Debug LotusScript. Wer ernsthaft programmiert (mit deutschem Designer): Alt-D-X-D  

Bernhard

[TMC]

Und irgendwie habe ich das Gefühl, das Forum entwickelt sich gerade zur "Heimatfront" - immer wieder Anfragen vom Bund ... Aber ich hab' nix dagegen !  

Bernhard (Leutnant d.R.)  

 

Ich helfe den Jungs gerne (die Mädels werden ja leider meist nur für den Sani-Bereich eingeteilt).

gez. OG Matthias

[koehlerbv]

OK, Sie können rühren, Obergefreiter  

[Heiggo]

Das liegt vermutlich daran, wie man in einem anderen Thread gesehen hat (Bereich R5-Entwicklung) das es dort so viele Nutzer gibt, die schön verteilt auf verdammt vielen Servern liegen. Und damit ist (logische Entwicklung) auch die Zahl der "Eigenentwickler" stark vertreten.

Und irgendwie habe ich das Gefühl, das Forum entwickelt sich gerade zur "Heimatfront" - immer wieder Anfragen vom Bund ... Aber ich hab' nix dagegen !  

Bernhard (Leutnant d.R.)