I cannot find the option to remove attachments from multiple messages. In notes 6 before my upgrade it was available by selecting messages with attachments and then >tools>remove attachments. I no longer see this as an option in 8. I now have to go into the message and select from the “Attachments” option. I would certainly hope this is not the process that I have to do one by one, surely this would be a huge step backwards!!
Subject: RE: Remove Attachments for Multiple Messages NOTES 8
It does appear that this has not existed as a function for some time.
There is a technote about the issue:
http://www-01.ibm.com/support/docview.wss?uid=swg21206518
There was also an enhancement request for this function (SPR # MMAY6CAMZX; opened under 6.0.x version).
The workaround would definitely be to write an action to perform this.
Subject: We have this agent, give it a try
Dim s As New NotesSession Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim Doc2 As NotesDocument
Dim uidoc As NotesUIDocument
Dim Item As Notesrichtextitem
Dim agent As NotesAgent
Set db=s.CurrentDatabase
Set agent=db.GetAgent("(RMPQOD)")
Set dc=db.UnprocessedDocuments
If dc.Count=0 Then
Msgbox("No document selected.")
Exit Sub
End If
result=Messagebox("Are you sure you want to remove all attachements from those "+Cstr(dc.Count)+" documents ?",4,"Warning")
If result<>6 Then Exit Sub
s.ConvertMime=True
'' first loop expand all stubs
Set doc=dc.GetFirstDocument
Do Until doc Is Nothing
If doc.HasItem("RMP") Then
agent.Run(doc.NoteID)
End If
Set doc=dc.GetNextDocument(doc)
Loop
''second loop removes attachement
Set doc=dc.GetFirstDocument
Do Until doc Is Nothing
Set Item = Doc.GetFirstItem("Body")
If Isarray(item.EmbeddedObjects) Then
Forall Object In item.EmbeddedObjects
If (Object.Type=EMBED_ATTACHMENT) Or Object.Type = ATTACHMENT Then
Call Object.remove
End If
End Forall
End If
Forall item2 In Doc.Items
If item2.Name="$FILE" Then
Call Doc.RemoveItem("$FILE")
End If
If item2.Type = ATTACHMENT Then
If Isarray(item2.Values) Then
Call item2.remove
End If
End If
End Forall
Call doc.save(True,False)
Set doc=dc.GetNextDocument(doc)
Loop
Subject: re: Remove Attachments for Multiple Messages NOTES 8
Try this one:
Subject: That agent would most likely still work (did not look at code - ask your devleopers to move it over).
I guess since you reply without attachments by default, there is less and less use cases for this, anyhow