Slight modification to make "create task from email" more useful for me

I made a tiny modification to the code in my previous Create Task from Email blog entry. For my purposes, if the item(s) I'm creating a task from are in the Sent Items folder, then I don't want to delete the original mails. But if they are in any other folder, I do want to delete the original mails. This is just part of my usual workflow.

This is as straightforward as wrapping the olitem.Delete in that entry as follows (new lines in purple)

    If fldCurrent <> olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail) Then
olitem.Delete
End If

The macro button I previously created continues to work, since it's calling the same function.