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.