Hallo zusammen,
ich verweis als erstes auf mein letzten Beitrag: http://atnotes.de/index.php?topic=37973.0 (http://atnotes.de/index.php?topic=37973.0).
Der Agent läuft soweit auch ohne Probleme. Bei einigen Test ist mir allerdings aufgefallen, dass der Agent bei verschlüsselten Dokumenten immer mit der Meldung "Object Varaible not set" abbricht, da userdoc nicht gefüllt ist.
Das ist mir soweit auch klar, da die Dokumente verschlüsselt sind und ich daher kein Zugriff darauf erhalte. Ist es möglich dies zu umgehen, dass verschlüsselte Dokumente nicht abgefragt werden?
userdbName = "mail\testmaildb.nsf"
Set userdb = session.GetDatabase( "", userdbName )
Set userview = userdb.GetView("($All)")
Set userdoc = userview.GetFirstDocument
Allerdings habe ich hier keinen Ansatz, da ich ja userdoc mit GetFirstDocument und später mit GetNextDocument fülle.
Gruss two7
Hilft dir das Beispiel aus de Hilfe weiter ?
Sub Initialize
Dim session As New Notessession
Dim db As Notesdatabase
Set db = session.Currentdatabase
Dim dc As Notesdocumentcollection
Set dc = db.Unprocesseddocuments
Dim doc As notesdocument
Set doc = dc.Getfirstdocument
If doc.IsEncrypted Then
Messagebox "Encrypted",, doc.Subject(0)
Else
Messagebox "Not encrypted",, doc.Subject(0)
End If
End Sub
mein code
Dim tmp As Integer
tmp = userdoc.hasitem("$Seal")
If tmp = 0 Then
While Not (userdoc Is Nothing)
....
interessant ist dabei, dass wenn ich mir tmp als MsgBox oder via Print ausgeben lasse, er bei manchen verschlüsselten Dokumenten "-1" ausgibt und bei dem Rest "0". Allerdings steigt das Script immer noch mit o.g. Fehlermeldung aus. Habe dann mal das Dokumente bei dem es aussteigt und die anderen Dokumente, die verschlüsselt sind, es aber funktioniert, miteinander verglichen und bei allen existiert das $Seal-Feld und ist gefüllt.
Versteh einfach nicht, warum es einmal funktioniert und einmal nicht.
Kann auch Gerne mal die DB jm. zukommen lassen, wenn er das gerne mal näher betrachen will, denn nur vom schreiben ist wohl das Problem schwer zu lösen.
two7