Outlook Hack : Empty subject warning
How many times you have forgot to write subject of emails you sent through Outlook?? The biggest blunder is Outlook doesn’t show any warning ! Here is a hack/macro for it.
Steps:
- Open your outlook
- Press Alt+F11. This open the Visual Basic editor
- On the Left Pane, one can see “Microsoft Outlook Objects”, expand this. Now one can see the “ThisOutLookSession”.
- Click on “ThisOutLookSession”.
- Copy and Paste the following code in the right pane.(Code Pane)
- Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
strSubject = Item.Subject
If Len(strSubject) = 0 Then
Prompt$ = “Subject is Empty. Are you sure you want to send the Mail?”
If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, “Check for Subject”) = vbNo Then
Cancel = True
End If
End If
End Sub - Now save and close the VB Code editor. From now on , this macro will make sure you do not make the mistake of sending a mail without subject.
~ Ankit
Asrujit wrote:
Hello,
why every one after Hacking ?
well if u look at the site (Orkut) any one easily hack if he has some web idea.
you cna do what u want especally in orkut.
post images in scap, video in scrap, add unlimited scrap, sensing thousands scrap to friend, add many friends … all u can do …
yes its easy
but whats the use ? ” simply waiste of Time”
check out my profile
http://www.orkut.com/Home.aspx?xid=9787111520529965928
u will find may such things ..
get in touch
Posted on 14-Aug-07 at 11:28 pm | Permalink
emr wrote:
useful hack, thank you.
Posted on 02-Oct-07 at 6:15 pm | Permalink
Pasha wrote:
Hi,
This piece of code does not work in Outlook 2007. It worked in Outlook 2003. My outlook security setting is set to Low only, but still this is not working.
Any pointers on this would be helpful. Pls reply to my id - shirazpasha@gmail.com
Regards,
Pasha
Posted on 12-Apr-08 at 10:03 am | Permalink
Daniel wrote:
Working code for Outlook 2007
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim Answer As String
If IsNull(Item.Subject) Or Len(Item.Subject) = 0 Then
Answer = MsgBox(”Subject field is empty. Do you still want to send the e-mail? “, vbYesNo + vbQuestion, “Missing subject”)
If Answer = vbYes Then
Cancel = False
ElseIf Answer = vbNo Then
Cancel = True
End If
End If
End Sub
Posted on 08-May-08 at 7:47 pm | Permalink