Hy Leute es besteht immer noch mein Probelm das ein Agent
in einem Laufwerk keinen Ordner anlegen darf.
Ja ich weiß das sind Zugriffsprobleme.
Folgendes passiert bei uns.
Ich starte einen Agent der ein paar Ordner anlegen soll und dort dann
die Anhänge des Dokuemntes einfügen soll.
Danach wird im Doc der Anhang gelöscht und dafür ein Link auf das Verzeichnis erstellt.
Der Agent läuft in meinen Augen nicht an, denn es kommt weder an der Konsole noch im Log eine Meldung.
Zugriff auf das Laufwerk ist "Jeder" hat Vollzugriff, also die Türe steht komplett offen.
Trigger ich den Agent über einen Button klappt alles prima.
Da ich keinen Beweis dafür habe das es am Zugriff liegt, lacht mich unsere EDV natürlich aus.
Wie kann ich feststellen ob mein Agent anläuft oder nicht?
Hier mein Code.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView
Dim rtitem As NotesRichTextItem
Dim i As Integer
Dim pathdatumvar As String
Dim pathvar2 As String
Dim pathvar1 As String
Dim pathvar As String
Dim praefix As String
Dim var_attach As String
Dim datumvar0 As Variant
Dim datumvar1 As String
Dim datumvar2 As Variant
Dim datumvar3 As String
Set db = session.CurrentDatabase
Set view = db.GetView("($alte)")
Set doc = view.getfirstdocument
'Schleife solange Dokument in der Ansicht vorhanden sind!
i = 1
datumvar0 = Today()
datumvar1 = Trim(Str$(Year(Today()))) & Trim("_") & Trim(Str$(Month(Today()))) & Trim("_") & Trim(Str$(Day(Today())))
datumvar2 = datumvar1
pathdatumvar = datumvar2 & "\"
'Pfadangabe für den neuen Ordner
pathvar = "\\segfil02\allgemein\DTP_Handbuecher_Alt\"& Trim(pathdatumvar)
'Verzeichnis anlegen der Name wäre "DTP_Handbuecher_Alt\2007_11_08"
Mkdir Trim(pathvar)
Do Until doc Is Nothing
Set rtitem =doc.GetFirstItem("handbuch")
'Wird nur ausgeführt wenn das Dokument schon abgelaufen ist
If doc.abgelaufen(0) = "x" Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
oldfilename = o.Source
pathvar1= pathvar & Trim(Str$(i))
praefix = o.name
Mkdir Trim(pathvar1)
Call o.ExtractFile _
(pathvar1 & "\" & praefix)
End If
Call rtitem.AddNewLine( 1 )
var_attach = "Der Handbuchanhang: " & "''" & praefix & "''" & " wurde abgelegt in den Ordner: "
Call rtitem.AppendText(var_attach)
pathvar2 = Trim(pathvar) & Trim(Str(i)) & "\"
Call rtitem.AppendText( "file:\\" & Trim(pathvar2))
Call o.Remove
doc.pfaction = "ALT"
i = i+1
End Forall
Call doc.save(True, True)
End If
Set doc = view.GetNextDocument( doc )
Loop
'Shell_result = Shell("DTP_Handbuecher_verschieben.cmd", 6)
End Sub
Danke Euch schon mal im vorraus.
