Comments on: LotusNotesHelpMeFilter

Question: LotusNotesHelpMeFilter

mockjovial — Wed, 25 Jul 2007 14:07:49 -0800

Please help me figure out how to bulk-detach multiple files from thousands of emails in Lotus Notes 6.5.

I am currently using Lotus Notes 6.5. The email box I have just 'inherited' contains over 1600 emails with attached Word documents.

Please, please tell me that there is a way to download all of these files into one location besides individually opening each message and saving its respective attachment.

By: sanko

sanko — Wed, 25 Jul 2007 14:53:29 -0800

I'm not aware of any way to do it in the mail client directly, but you can do it with LotusScript. Some info here.

Sorry I can't help more, but it's been years since I have had the displeasure of working with that stuff.

By: ml98tu

ml98tu — Wed, 25 Jul 2007 15:31:36 -0800

I've encountered this before with LN. The IT department did it and saved everything on a network drive. Can you ask the IT department to do it? I'm sure you're not the first there to have dealt with this.

By: bedhead

bedhead — Wed, 25 Jul 2007 17:09:06 -0800

That script in the article that sanko linked to should work, but it's not a complete bit of code. It just does something to a document, but you have to get a handle on it first.

I'm sure someone has written a script to do this before. I'll see what I can find. As it stands, I am unaware of any way to do this out of the box without writing a script to do it.

By: Eddie Mars

Eddie Mars — Wed, 25 Jul 2007 17:23:57 -0800

Here's some old script from the forums on Notes.Net.

To use this, go to your Inbox and click Create...Agent.
Set the agent to run against selected documents and give it a name like Detach Files.
Change the type of agent from Simple Actions to LotusScript, then paste the code below, overwriting what's there.

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim object As NotesEmbeddedObject
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim downloadfolder As String
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments

downloadfolder = "c:\Mail\users\"
If Dir("c:\mail",16)="" Then Mkdir "c:\mail"
If Dir("c:\mail\users",16)="" Then Mkdir "c:\mail\users"

Print "************************************************************************"
For i = 1 To collection.Count
Set doc = collection.GetNthDocument( i )
filen=Evaluate("@AttachmentNames",doc)
antalfiler=Evaluate("@Attachments", doc)
UserName=db.FileName
If Dir("c:\mail\users\"+username,16)="" Then Mkdir "c:\mail\users\"+username

Print Str(i)+" ("+Str(collection.count)+")"

If antalfiler(0)>0 Then
For filecounter=0 To antalfiler(0)-1
x=x+1
Print ( filen(filecounter))
Set Object = doc.GetAttachment( filen(filecounter) )
If ( object.Type = EMBED_ATTACHMENT ) Then
fileCount = fileCount + 1
If Dir(downloadfolder+username+"\"+ filen(filecounter))="" Then
extrachar=""
Else
extrachar=Left(doc.universalid,4)+"---" 'in case attachmnet with same name exists in several documents
End If
Call object.ExtractFile (downloadfolder+"\"+username+"\"+extrachar+ filen(filecounter) )
' Call object.Remove 'delete the attachment from document
' Call doc.Save( True, False )
End If
Next filecounter
End If

Next

Msgbox"Attachments: "+Str(fileCount )

End Sub

By: Eddie Mars

Eddie Mars — Wed, 25 Jul 2007 17:31:15 -0800

I should have read through this code more closely before posting it. It ought to work just fine, but it's hard coded to put the files into c:\mail\users\$yourname.

By: bedhead

bedhead — Wed, 25 Jul 2007 20:59:10 -0800

If you want to test this without the fear of b0rking your mail file, though the code looks good to me, do the following first:

While in your inbox, go to File-Database-New Copy*. Specify where to put the copy, then after the copying is done open the copy and do what Eddie Mars says above, in the copied mail file.

Oh, and you can modify where the attachments are stored by changing the "username" keyword to something you prefer instead, throughout the code.

*For those familiar with Notes, I recommend creating a copy instead of a replica because deletions in a local replica will eventually synch up with the server, so if something goes wrong, you could lose the whole thing. I prefer to test in a copy just in case. YMMV.

By: drfu

drfu — Thu, 26 Jul 2007 01:32:11 -0800

Funny you should ask this, I was just researching a product called EmailXtender today.

Apparently it can do exactly what you are after for both Notes and Exchange mail stores. I don't know much about it yet (other than the corporate site rah-rah), but a client is threatening to send us mail in this format, and I haven't even see a nybble of the functionality.

Pricing may be of the "If you have to ask..." variety (former Legato product, now merged with EMC), but if you need it, you need it.

If you do go with this, drop me a line and tell me all about it -- I'm a really lazy researcher.