OpenNTF Mail Experience - Feature Request: DetachAll
Some our users use the agent below (they have button in Inbox) to save attachments of selecteted messages to selected location. Maybe it will be usefull for some-body else.
Sub Initialize
Dim s As New notessession
Dim w As New NotesUIWorkspace
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
Dim prof As NotesDocument
Dim path As String
Set db = s.CurrentDatabase
Set col = db.UnprocessedDocuments
If col.Count <> 0 Then
Set prof = db.GetProfileDocument("Interest Profile",s.UserName)
If prof.hasitem("path") Then
If prof.path(0) <> "" Then
path = prof.path(0)
Else
path = ""
End If
Else
path = ""
End If
stringArray = w.SaveFileDialog( True , "Save to...", , path )
If Isempty(stringArray) Then Exit Sub
prof.path = stringArray(0)
Call prof.Save(True , True)
For i = 1 To col.Count
Set doc = col.GetNthDocument(i)
If doc.isvalid Then
Set rtitem = doc.GetFirstItem("body")
notesEmbeddedObjectArray = rtitem.EmbeddedObjects
For j = 0 To Ubound(notesEmbeddedObjectArray)
Set ee = notesEmbeddedObjectArray(j)
Call ee.ExtractFile( stringArray(0) &"\" & ee.name )
Next
End If
Next
End If
End Sub