March 2nd, 2006

Show-N-Tell-Entry

Posted at 11:45:00 PM in  General | Add/Read Comments (6) | Permanent Link: Show-N-Tell-Entry

Alright, I'll join the fray on Thursday - but I have to state this up front - I am not, never will be a developer.  I stink at it.  If I wrote this code, it would not work - no way, no how.   However, I hate return receipts, so I got a friendly developer to write some code for me to allow me to delete the annoying little buggers if I want to.    

As far as I know, its magic.  When I get a note with a return receipt on it,  a nice little dialog box pops up that says "Delete Return Receipt?" and I get to choose.  99% of those things get deleted.  My personal rule is:  If the person is directly up my corporate food chain and/or controls my salary, I let the return receipt do its thing.  Otherwise, it gets zapped.  I don't even bother showing an icon that indicates there's a return receipt, cuz I don't care.  When I read my email is my own business.  Lots of people have code like this already, but in case you don't, here's mine:

This code goes into the QueryOpenDocument section of your $Inbox folder, between the Sub and End Sub lines.  

Dim doc As NotesDocument, docs As NotesDocumentCollection
       Set docs = Source.Documents
       Set doc = docs.GetFirstDocument
       
       Dim answer As Integer
       
       If (doc.HasItem("ReturnReceipt")) Then
               If doc.ReturnReceipt(0) = "1" Then
                       answer = Messagebox ("Delete Return Receipt?", 36, "Return Receipt")
                       If answer = 6 Then
                               doc.ReturnReceipt = "0"
                               Call doc.Save(True,True)
                       End If
               End If
       End If


After you paste it, you have to set the Design Property setting of:  prohibit design replace or refresh to modify for the folder to keep your code from getting replaced now and then.  I always forget and have to put it back,.  And you have to make sure you DO get the $Inbox folder replaced at upgrade time, etc....It's all very manual, but for me, its worth it.  

Now for the disclaimer.  Y'all know I work for IBM, so know this:  IBM does NOT endorse this type of tinkering with your mail file.   It may break your mail file.  It may give you acne.  It probably contributes to global warming.  It makes socks disappear randomly from your laundry.  Don't do it.  Unless you hate those bleeping return receipts like I do.  

And if you're interested, check the flickr badge over on the left for recent blogmonkey sightings - in Ireland, Scotland and Germany.