Mail löschen via script

[Errormaker]

Hallo,
ich habe eine tolle Schaltfläche mit einem Script gebastelt (basteln lassen ;-)) und diese in ein Mail gepflanzt. Nun hätte ich gerne, dass das Mail nach ausführen der Schaltfläche gelöscht wird, damit der User nicht in die Versuchung kommt, noch einmal auf den Button zu drücken.
Kann mir jemand helfen? Bin leider kein Entwickler und in der Hilfe finde ich nur @-Befehle, die wohl nicht zu Script passen.
Gruß
Markus

[Driri]

Hi,

das würde mit folgendem Script funktionieren :

Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = uiws.CurrentDocument
Call uidoc.DeleteDocument

Allerdings wird das Dokument dann in der Inbox nur als gelöscht markiert, ist also nach wie vor vorhanden.

[ata]

... das aktuelle Dokument zu löschen dürfte fehlschlagen. Es bleibt aber die Möglichkeit das Dokument mit einer Flag zum Löschen zu markieren. Ein nächtlicher Agent sucht dann die Dokumente mit dieser Flag und löscht sie...

... um zu  verhindern, daß die Schaltfläche mehrfach verwendet wird, solltest du der Schaltfläche eine Hide-When-Formel verpassen, die dann zum Beispiel auf die Flag reagiert...

ata

[Glombi]

"Diese Mail zerstört sich in 10 Sekunden von selbst"
sowas in der Art?

[Errormaker]

Die Selbstzerstörung wäre im Prinzip nicht schlecht, aber mir reicht auch eine Löschmarkierung. Hauptsache, der Mitarbeiter wird auf die Idee gebracht, dass man das Mail ja auch löschen könnte und nicht im Archiv verrotten lässt.

[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

[Errormaker]

Hi Andreas,
leider bekomme ich die Fehlermeldung auch unter 5.10. Da kann man wohl machen nix...
Gibt es sonst noch eine Idee? Ansonsten werde ich einfach eine Messagebox mit dem Löschhinweis einrichten.
Markus

[Driri]

Hi,

also ich hab das Löschen des UIDocs ausprobiert, das funktioniert insofern, daß dann das Dokument im Papierkorb landet. Es wird eben nicht sofort gelöscht.

Probiers vielleicht einfach mal aus.

[ata]

... wenn man die Version der User festschreiben kann, dann kann man es auf dem Weg versuchen - ich würde den Weg wählen, der auf jeder Version funktioniert - Beschreibung siehe oben...

ata