Before replacing my  old Motorola RAZR with an iPhone I needed to backup up all of my photos.  Unfortunately Motorola’s naming convention for images is terrible:  DD_MM_YY-hhmm.jpg, if you try sorting that you get all the photos taken on the first of any month grouped together, followed by all those taken the first of the second month, etc.  That’s terrible.

So I wrote a little perl script that renames all RAZR pictures to YYMMDDhhmm.jpg so that they can be easily sorted in chronological order by any file browser.  You’d think a big international company like Motorola would be able to respect the ISO 8601 standard by now.

This Lotus Notes script strips email attchements using an Agent instead of Rules.

Lets say you want to forward mail from your Lotus Notes account but want to strip attachments, you’ll definitely want to try the following script. It’s perfect for sending your mail to your sexy new iPhone without racking up ridiculous bandwidth charges.

This works in Notes 8, but has not been tested in earlier versions. Also be sure to replace YOUREMAIL@MAIL.COM with an external email address. Credit should go to Simon Lacasse who did the nitty gritty work, I’m just making sure others can benefit from it.

Sub Initialize

Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim memo As NotesDocument
Dim doc As NotesDocument
Dim j As Integer
Set db = session.CurrentDatabase

Set collection = db.UnprocessedDocuments

For j = 1 To collection.Count
Set memo = collection.GetNthDocument( j )
''If Not( memo.SentByAgent ) Then

Set doc = New NotesDocument( db )
Call doc.CopyAllItems( memo, True )
Dim rtitem As NotesRichTextItem

Set rtitem = memo.GetFirstItem("Body")

doc.Form = "Memo"
doc.Subject = "From :" + memo.From(0) + ":" + memo.Subject( 0 )
doc.Body = memo.Body
doc.Principal = memo.from(0)
''doc.InetFrom = memo.SMTPOriginator
doc.ReplyTo = memo.from(0)

Call doc.Send( True, "YOUREMAIL@MAIL.COM" )
'Call doc.Send( False, "Put another EMail address here" )
''        End If
Call session.UpdateProcessedDoc( memo )
Next

End Sub