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.
For Outlook 2007, please refer Codeproject.
~ Ankit
11 Comments
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
useful hack, thank you.
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
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
The Outlook 2007 version of the makro does not work too
I solved The Outlook 2007 wersion. It works, but you have to check teh ” sign, because the above used is wrong.
I used this in OL 2003 and it worked, but now it does not any more. Any idea why ?
The code is there in VB editor, but it does not work.
Hi,
Cen any one help, using Daniel’s VB code I’m getting an error message about this line:
Answer = MsgBox(”Subject field is empty. Do you still want to send the e-mail? “, vbYesNo + vbQuestion, “Missing subject”)
using Outlook 2007 – this is such an annoying thing, and on the Microsoft site they try and charge you for the solution!
Please help!
Kim
Use this code:
Answer = MsgBox(“Subject field is empty. Do you still want to send the e-mail?”, vbYesNo + vbQuestion, “Missing subject”)
Its working for me.
Hi,
The information is really helpful and I am now feeling happy that the given code remaind me incase if I miss to enter the Subject.
Really Nice!Thanks a lot!
For those getting the error message: Replace the “ ” with ” ” (double quotes).
Post a Comment