Domino 9 und frühere Versionen > Entwicklung

Mail löschen via script

<< < (2/3) > >>

Glombi:
Also der Button muss wie folgt erweitert werden:
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc as NotesDocument

Set uidoc = uiws.CurrentDocument
set doc = uidoc.Document
call uidoc.Save
call uidoc.Close

call doc.Remove(true)

Das Remove  entfernt das Dokument ohne es in den Papierkorb zu verschieben.
Andreas

Errormaker:
Danke für den Tip, aber irgendwie läufts noch nicht so richtig.
Habe ich irgendetwas falsch eingesetzt?

Sub Click(Source As Button)

Dim s As New notessession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim person As NotesAclEntry
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
   
Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document   
Set db=s.currentdatabase
Set acl = db.ACL
Set Person = acl.GetEntry("User Qualitätssicherung/Quality")

If ( Person Is Nothing ) Then
Set person=acl.createaclentry("User Qualitätssicherung/Quality",ACLLEVEL_MANAGER)
Else
person.level= ACLLEVEL_MANAGER
End If

person.candeletedocuments=True
person.usertype=ACLTYPE_Person
Call acl.save
Call uidoc.Save
Call uidoc.Close
Call doc.Remove(True)
   
End Sub

Sinn des Scripts ist es, einen vorgegebenen User in die ACL des Mitarbeiters mit Managerrecht einzutragen.

Glombi:
Hi,
was läuft denn nicht? Wird der User eingetragen ? Mit Managerrecht?

Versuch mal:
Set Person = acl.GetEntry("CN=User Qualitätssicherung/O=Quality")


Andreas

Errormaker:
Vorher lief alles wunderbar (Eintrag in die ACL mit Managerrechten). Jetzt habe ich wie empfohlen die Eingaben für die Löschung getätigt und nun bekomme ich die Meldung "Document command is not available".

Glombi:
Hi Errormaker,
die Meldung kommt durch das uidoc.Save, was im Lesemodus nicht geht. Lösche einfach die Zeile.

Aber leider funktioniert das doc.Remove nicht! Ich bekomme eine Fehlermeldung "Cannot remove NotesDocument when instantiated by NotesUIDocument".
laut KBase kann es aber ab Version 5.0.7 funktionieren, ich habe das mit 5.0.6a getestet, da geht es nicht.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete