Nach löschen der Anhänge bleiben die Mails gross...

[MartinG]

Hallo,

ich habe hier einen User welcher 2001 viele Mails empfangen mit Dateianhängen mit ca. 10MB. Unter R5 noch hat er diese Dateianhänge aus den Mails herausgelöscht. Leider sind die Mails dadurch aber nicht kleiner geworden. Was mir nicht ganz klar ist wie ich diese Mails jetzt kleiner bekomme. Der User kotzt halt weil ich ständig mit Ihm über seine MailQuota diskuttiere und er ehrlichweise mächtig gelöscht hat....

Habe mir ein paar dieser Mails in meine Mail-DB kopiert. Wenn ich das richtig sehe dann steht der Anhang im Feld $File drin? Zumindest in den Dokumenteneigenschaften steht im Feld $File folgendes drin:

Feldname: $FILE
Datentyp: Angehängtes Objekt
Datenlänge: 48 Byte
Seq.-Num.: 1
Doppeleintrags-ID: 0
Feld-Flags: ATTACH SIGN SEAL SUMMARY

Objekttyp: Datei
Objekt-ID: 0004B2F6
Objektlänge: 9998657
Dateiname: MH1199-H.zip
Flags:
Host: 2304
Komprimierungstyp: NONE
Kodierungstyp:
Dateiattribute: RW PUBLIC
Dateigröße: 9998657
Datei erstellt: 19.11.2001 10:44:13
Datei geändert: 19.11.2001 10:44:13

Gibt es eine einfache Möglichkeit dieses Feld jetzt zu löschen? Nach Möglichkeit für den User....

Danke und Gruss
Martin

[Glombi]

Du kannst die Datenbankgröße mit dem Compact Task und der Option -B verkleinern.

Andreas

[MartinG]

Hallo Andreas,

das ist mir schon bekannt... - das Problem ist ja das das Dokument weiterhin 10MB gross ist und das bekomme ich ja nicht durch einen compact in den Griff...

Gruss
Martin

[LotusBleifrei]

probier doch mal eine replik der DB...meisstens werden solche probleme dadurch gelöst...

gruss deny

[MartinG]

Nein - Ihr habt mich falsch verstanden. Das Dokument selber bleibt ja weiterhin so gross. Ich vermute das war ein Fehler in der 5.04 Version - mit dieser wurde nämlich damals der Anhang gelöscht.

Replik bringt nichts - auch wenn ich das Dokument über die Zwischenablage bei mir reinkopiere bleibt es weiterhin so gross...

Gruss
Martin

[TMC]

Hi Martin,

evtl. hilft es, alle Items "$FILE" rauszuwerfen.

Den Agenten kannst Du Dir hierzu easy zusammenkopieren, siehe BP "Agenten in Notes/Domino", Kap. 9.3. Theoretisch kann den Agenten dann auch ein DAU bedienen: Einfach Doks in der View markieren und ab geht's.

Wenn das nicht hilft, fällt mir als Lösung nur noch ein, per Script ein neues Doc zu erstellen und alle benötigten Items rüberzuschaufeln, dann Doc speichern. Danach altes Doc löschen. Kann Dir da gerne dabei helfen.

[MartinG]

Hallo Matthias,

vielen Dank für Deine Hilfe. Mit einfachen Agenten (Formel und Simple Actions) habe ich es schon versucht, was aber nicht funktioniert hat.

Habe nun mal mit Deiner ausgezeichneten Anleitung einen Script Agent zusammenkopiert welcher aber leider auch nicht funktioniert. Kann das sein das dies nicht auf interne Feldnamen wie $File reagiert? Oder habe ich da einen grundsätzlichen Denkfehler?

Gruss
Martin

PS: @Matthias - ich kann Dir auch gerne mal ein solches Mail in einer leeren DB mailen....

[MartinG]

Mit dem Agenten hat es nicht geklappt - habs jetzt aber hinbekommen $File zu löschen mit FieldControl....

Ist ein ganz praktisches Tool: http://fieldcontrol.commed.ru/ - ich weiss nicht ob es allen hier bekannt ist...

Gruss
Martin

PS: Eine praktikable userfreundliche Lösung ist das allerdings nicht...

[TMC]

Hab erst jetzt Deine Antworten gesehen.

PS: Eine praktikable userfreundliche Lösung ist das allerdings nicht...

OK, here you go  

Code

Sub Initialize
   
   On Error Goto ERRORHANDLER
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim item As NotesItem
   Dim vDeleteItems As Variant
   Dim strMsg As String   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   
   If collection.Count <1 Then
      Msgbox "Um diese Aktion auszuführen, muss mind. 1 Dokument ausgewählt sein.", 48, "Kein Dokument ausgewählt"
      Exit Sub
   End If
   
   'Are you sure???
   strMsg = "Du hast " & collection.Count & " Dokument(e) ausgewählt." & Chr(10) _
   & "Möchtest Du wirklich diese Dokument(e) bereinigen?"
   If Not Messagebox (strMsg,1 + 32,db.title) = 1 Then Exit Sub
   
   Set doc = collection.GetFirstDocument
   
   '-----> Items to remove
   Redim vDeleteItems(20)
   vDeleteItems(0) = "$FILE"
   '........and so on.........
   '<-----
   
   While Not(doc Is Nothing)
      Forall i In vDeleteItems
         While (doc.HasItem(i))
            Set item = doc.GetFirstItem(i)
            Call item.Remove
            Call doc.Save(True, True)
         Wend
      End Forall      
      Set doc = collection.GetNextDocument(doc)
   Wend
   
   Msgbox collection.Count & " E-Mails wurden bereinigt.", 64, db.Title
   
   
EXIT_SCRIPT:
   Exit Sub
   
ERRORHANDLER:
   Msgbox "Error: " & Err & " - " & Error$ & Chr(10) & Chr(10)_
   & "Procedure: Agent 'Bereinige E-Mails'"& Chr(10) & Chr(10)_
   & "Line: " & Erl & Chr(10), _
   48, "An error occured"
   Resume EXIT_SCRIPT
   
   
End Sub

Kopiere den Code in einen Agenten (Trigger: On Event, Target: All selected docs).

Habs gerade in einer Mail-DB getestet: Klappt wunderbar, löscht gnadenlos alle $FILE - Items der ausgewählten Dokumente.

Macht dann 1 Bier, bitte  

Y Y

Prost,
Matthias

[MartinG]

Genial - dafür gebe ich auch zwei Bier aus  

[byte]

Hab erst jetzt Deine Antworten gesehen.

PS: Eine praktikable userfreundliche Lösung ist das allerdings nicht...

OK, here you go  

Code

Sub Initialize

& "Möchtest Du wirklich diese Dokument(e) bereinigen?"

Da ist ein Fehler drin *eg*

das sollte heissen :

& "Das Bier ist kalt gestellt ? -  Gut !! - mach weiter  - Möchtest Du wirklich diese Dokument(e) bereinigen?"


Dankefööön -  werde es mir in die Ablage legen !! -  Helden sind bei  ATNOTES  zu finden *eg*

[KoshNaranek]

Na sehr schön... der Agent ist ja goldig...

Irgendwo hier hatte ich einen änhnlichen Fred eröffnet, wegen des gleichen Problems...
Das hat sich hiermit (siehe oben) erledigt.

*verneig* Bedankt...