Attachment löschen

[Josha]

Wie kann man attachment aus mails löschen, aber die mail möchte ich nur anklicken nicht öffnen, es sollte gehen aber es geht nicht bei mir   , habe sehr viele mails keine zeit zum öffnen, kein platz auf HD (archiv).
Danke in vorraus

[Semeaphoros]

Warum sollte das gehen? Das ist zumindest vom Arbeitsablauf her völlig unlogisch

[Josha]

ein User behauptet es geht, sogar ging es immer, ist mir auch nicht bekant (bin in LN support)  

[koehlerbv]

"Ein User behauptet ..." - der war guuuut !

Bei geöffnetem Mail kannst Du nach Klick auf ein Attachment nach Rechtsklick auch alle Attachments löschen, aber ohne Öffnen ?
Warum fragst Du nicht einfach den User und teilst uns dann allen die neuen Erkenntnisse mit ?

Ich befürchte aber, daß Du Dir einen Agent oder eine Aktion schreiben mußt, um bei markierten Docs die Attachments zu entfernen. Das wäre ja kein Aufwand.

Bernhard

[Semeaphoros]

Josha:
"Ein User behauptet ......" das muss wohl derselbe User sein, der immer wieder sagt: "Ich habe ganz bestimmt nichts gemacht !! "

Würde auch meinen, frag ihn mal.

Bernhard:
Stimmt, mit einem Agenten liesse sich das wirklich rasch machen, mein Einwand, dass das vom Arbeitsablauf her keinen Sinn macht, bleibt aber bestehen, was zusätzlich darauf hinweist, dass es sich hier um einen User handelt, der "nie auch nur irgendetwas [falsch] gemacht hat ...."

[MrMagoo]

("ein user behauptet...") ehrlich gesagt, kein Kommentar.
mit folgendem Agenten funktioniert es und Sinn macht es z.B. das man bei  den gesendeten Mails die Attachments wieder löscht um Platz zu sparen. sonst weiß ich aber auch keinen Grund.

Sub Initialize
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim rtitem As Variant
   Dim object As NotesEmbeddedObject
   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   
   If collection.Count = 0 Then  
      Msgbox "Kein Dokument ausgewählt"   
   Else
      
      Set doc = collection.GetFirstDocument
      While Not (doc Is Nothing)
         Set rtitem = doc.GetFirstItem( "Body" )
         If ( rtitem.Type = RICHTEXT ) Then   
            If Isarray( rtitem.embeddedObjects) Then
               Forall o In rtitem.EmbeddedObjects
                  Call rtitem.AppendText( "Anhang [" & o.Name & "] am " & Date   & " von " & session.CommonUserName & " gelöscht")
                  Call o.Remove
                  Call doc.Save( False, True )
               End Forall   
            Else
               Msgbox "Kein Anhang vorhanden"
            End If
         End If
         Set doc = collection.GetNextDocument(doc)
      Wend
      Msgbox "Anhang / Anhänge gelöscht"
   End If
End Sub

[Semeaphoros]

Wie willst Du mit gutem Gewissen bei einem empfangenen Mail das Attachement löschen, ohne die Message angesehen zu haben? Dann kann man auch gleich die ganze Message löschen, das wäre wenigstens ehrlich.

[MrMagoo]

meine nicht bei einer empfangenen sonder bei gesendeten. Den Anhang hat man ja immer noch auf der Platte und dieser Agent schreibt den Namen des Anhangs und das Löschdatum rein

[Semeaphoros]

Ok, bei Gesendeten kann das Sinn machen. Ich mach das in der Regel so, dass ich ein Mail mit einem grösseren Attachement mit der Fluchttaste verlasse und in der aufgehenden Dialogbox "send only" auswähle, dann wird das Mail gar nicht erst abgespeichert. Natürlich muss man sich dann etwas organisieren, dass man gleichzeitig nix schreibt, das man behalten sollte, das ist aber Gewohnheitssache.

[savage]

kann man z.B. automatisch über alle Datenbanken machen. Da gibt es serverseitige Tools, die das über Agenten lösen. Aber die kann man notfalls auch selber programmieren. Schau Dir mal den MailAttender an. www.sherpasoftware.de