Das Notes Forum
Lotus Notes / Domino Sonstiges => Tools & Downloads => Thema gestartet von: Josha am 25.10.03 - 09:02:39
-
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
-
Warum sollte das gehen? Das ist zumindest vom Arbeitsablauf her völlig unlogisch
-
ein User behauptet es geht, sogar ging es immer, ist mir auch nicht bekant (bin in LN support) ::)
-
"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
-
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 ...."
-
("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
-
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.
-
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
-
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.
-
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 (http://www.sherpasoftware.de)