Tag auch,
ich bin heute aus meinem Urlaub wieder gekommen und war schon mächtig genervt, das eines unser NotesSystem abgetürzt ist, nagut kann man nix machen.
Aber danach trat folgender Fehler auf, welchen ich mir nicht erklären kann.
Man klickt den Agenten "PDF ERSTELLEN" an und dieser öffnet dann eine bestimmtes Dokument und druckt es auf den Standard Drucker.
Dre ablauf st wie folgt.
- Suche 1. Dok in Ansicht X
- Schaue in Feld Y, öffnet UniversalID in diesem Feld als UIDoc Z
- Drucke Z aus
- Schliesse Z
So, nun begiegt es sich so, da beim Punkt Drucke Z aus, der Fehler aufpopt: "Document command is not available"
Ich kann mich auf den Kopfstellen oder Samba tanzen, der will einfach nicht... Ich finde leider auch keine Referenzfälle die wirklich passen.
Der Agent wird aktiv von einem User ausgeführt, und am Mittwoch ging auch noch alles Problem los nun geht dies nirgends wo mehr.
Hat wer eine Idee, dann würde ich mich über eine Antwort freuen.
MfG
--Alex
P.S.: Hier kommt der Quellcode, eigentlich macht der Agent noch mehr (das Aufgaben Dokument löschen usw. abre die verkürzte Version (welche auch schonmal ging) geht nicht mehr)
-----AGEND PDF ERSTELLEN ANFANG-----
Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim jview As NotesView
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim todoc As NotesDocument
Set db = session.CurrentDatabase
Set jview = db.GetView("INPDFWANDELN")
For i = 1 To 5
Set doc = jview.GetFirstDocument
If Not doc Is Nothing Then
Set todoc = db.GetDocumentByUNID(doc.uid_fuer_pdf(0))
Set uidoc = workspace.EditDocument( False, todoc )
uidoc.Print(1)
uidoc.Close
End If
Next
End Sub
-----AGEND PDF ERSTELLEN ENDE-----