Domino 9 und frühere Versionen > ND8: Entwicklung

Anhang wird per Script nicht im angegeben Ordner gefunden.

<< < (2/3) > >>

m3:
Ein "RunOnServer" involviert?

Lancelot:
Bringt auch nichts.
Hab sogar die Sicherheitsstufe auf 3. mti vollen Adminrechten laufen lassen gesetzt.

m3:
Ok, nochmal langsam.
Der Benutzer hat eine Notes-DB offen (lokal oder am Server?). In dieser drückt er auf einen Button. Was/welcher Code wird dann ausgeführt, um den Agent zu starten?

Lancelot:
OK der User hat das Doc zum bearbeiten offen.
Klickt auf einen Button und in dem Button starten der @Command([ToolsRunMacro]...) den Scriptagenten.

Dieser Agent soll dann aus dem Dok ein PDF machen, dies läuft über einen PDF Druckertreiber ab und soll danach das PDF + alle Anhänge aus dem Dok als neues Email verschicken.

Ich glaube eine Vermutung zu haben.
Notes wird hier zu schnell sein.
Ich sehe zwar das Dokument aber Notes noch nicht, weil die Datei noch nicht im
Indexe von Windows eingetragen ist oder so.

Ich bau jetzt mal eine kleine Warteschleife ein, mal sehen was passiert.

Lancelot:
Yes, ich habe es gelöst.
Die Warteschleife hat geholfen.
Weis zwar nciht warum Windows 7 die Datei zu der Zeit noch nicht hat,
aber nach dem EInbau der Schleife läuft der Agent fehlerfrei durch udn tut sein Arbeit.

Wen es interresiert oder auch das Problem haben sollte,
hier die Schleife.

Das Script ist getestet und funktioiniert durch einfaches reinkopieren udn setzen der Variabelen.

pfad_dir = "Pfad und Dateiname den man sucht"
'Wartezeit bis der Durchlauf neu startet.
timeout = 2 'Typ Long
   
bWarten=True
'Anzahl wie oft der Ordner durchlaufen wir.
lLauf=3
lLaufZahl=0
Do While bWarten=True
   sDirErg = Dir$(pfad_dir, 0)
   Do While sDirErg <> ""
   'Abfrage ob der eingelesen Wert sDirErg der Vorgaben im pfad_Dir entspricht.   
   If UCase(Trim(pfad_dir))=UCase(Trim(sDirErg)) Then
      bWarten=False
      sDirErg=""
   Else
      sDirErg=Dir$()
   End If
   Loop 
   If lLaufZahl>lLauf Then
      bWarten=False
   End If
   If bWarten=True Then
      lLaufZahl=lLaufZahl+1
      startTime! = Timer()
      Do While Timer()<startTime! + timeout
         Yield
      Loop 
   End If   

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete