Prevent Outlook from sending an email with a blank Subject Line

  • Thread starter Thread starter Collector Dave
  • Start date Start date
Status
Not open for further replies.
C

Collector Dave

How can I prevent Outlook 2007 from sending an email with a blank subject line?

Help Please!!
 
See the ItemSend event, there you can check the item's Subject property, and

set Cancel=True if you don't want to send.

Best regards

Michael Bauer

Am Thu, 5 Nov 2009 13:10:02 -0800 schrieb Collector Dave:


> How can I prevent Outlook 2007 from sending an email with a blank subject


line?
> Help Please!!
 
This event handler checks for blank subjects as well as if you try to

reply to a message with a blank subject.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As

Boolean)

Dim Msg As Outlook.MailItem

Dim subj As String

If TypeName(Item) <> "MailItem" Then Exit Sub

Dim badSubjects() As Variant

badSubjects = Array("RE: ", "FW: ", " ")

Set Msg = Item

subj = Msg.Subject

If IsInArray(badSubjects, subj) Then

If MsgBox("Subject line is empty. Are you sure you want to send

this message?", _

vbQuestion + vbYesNo + vbMsgBoxSetForeground, "No

Subject") = vbNo Then

Cancel = True

End If

End If

End Sub

Function IsInArray(arr() As Variant, valueToCheck As Variant) As

Boolean

' returns true if value is found in array

IsInArray = (UBound(Filter(arr, valueToCheck)) > -1)

End Function

On Nov 5, 4:10 pm, Collector Dave

<CollectorD...> wrote:
> How can I prevent Outlook 2007 from sending an email with a blank subjectline?
> Help Please!!
 
Hi,

Open outlook, press Alt+F11 and press Ctrl+R. Navigate to

"ThisOutlookSession" and paste the below code, save (Ctrl+S) and close VB

editor. close and reopen outlook, enable macros.

Code-----
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

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

Thanks,

Vivek

"Collector Dave" wrote:


> How can I prevent Outlook 2007 from sending an email with a blank subject line?
> Help Please!!
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
I How to prevent exchange email account from sending emails in Outlook Using Outlook 4
K How to prevent that Outlook is sending before my add-in is finished? Outlook VBA and Custom Forms 5
P Prevent Outlook 2016 from using DASL filter Using Outlook 4
oj43085 Prevent Outlook from blocking image from a single source Using Outlook 4
D Prevent Outlook from resolving incomplete contact when clicking send Using Outlook 2
R How to prevent corrupted Notes format in Calendar and Contacts Using Outlook 0
O How to prevent image resize when pasting Using Outlook 2
D Prevent popup of "Do you want to save changes?" when closing after opening an appointment to view Outlook VBA and Custom Forms 2
O How to prevent CC from showing when creating a new mail? Using Outlook 1
A Prevent connection to Public Folders on Exchange? Exchange Server Administration 3
L OL 2016 contact: is there a way to prevent an admin from mistakenly deleting a contact? Using Outlook 1
D Multiple mailboxes, 1 certificate. How to prevent message "Invalid Certificate" Using Outlook 0
S How to prevent addins Using Outlook 0
makinmyway How Prevent Re-Formatting of Contact Notes Field When Syncing Using Outlook 10
Diane Poremsky Prevent Users From Choosing Stationery Using Outlook 0
evdbogaard How to prevent extra line feeds in replies Using Outlook 3
oliv- Prevent copying shared contacts Outlook VBA and Custom Forms 5
K Prevent meeting requests being sent from a shared calendar in a group mailbox Using Outlook 1
N Prevent reminder dismisal in shared calendar Using Outlook 1
C Security Question - How to prevent users exporting .iaf files Using Outlook 5
B Item_Write = False don't prevent custom form from closing Using Outlook 1
T WAB editing: To help prevent malicious code from running.......... Using Outlook 18
N Allow Another User to Send on Behalf of But Prevent Access to Inbox Using Outlook 4
R Exchange 2010 archive-prevent users moving items direct to archive Exchange Server Administration 1
M Links prevent sending email Using Outlook 3
K Prevent sending Excel files as attachements Outlook VBA and Custom Forms 1
G To Prevent Malicious Code from running, one or more objects in thi BCM (Business Contact Manager) 2
S To help prevent malicious code from running, one or more objects in this form were not loaded. For m Outlook VBA and Custom Forms 1
A Script to either modify "from" address or prevent a reply being se Outlook VBA and Custom Forms 2
J prevent user from installing wrong version of add-in Outlook VBA and Custom Forms 2
Z Prevent Changes to Custom Form Outlook VBA and Custom Forms 1
A New Outlook - Cannot drag IMAP emails to Task List in MyDay Using Outlook 0
L Android Outlook Doesn't Update PC Notification Changes Using Outlook 0
A How to open Excel file saved in Outlook folder? Outlook VBA and Custom Forms 4
D.Moore Outlook desktop client suggested searches question Using Outlook 16
Y Outlook 2016 (64-bit) Copy Local Cal. Events to Another Cal. with Modified Reminder time Using Outlook 2
T Outlook 2019 While connecting an IMAP account in "classic" Outlook 2024 I caused a massive duplication of emails on the server (death loop) Using Outlook 5
D Cannot logon to Outlook.com, or outlook on Mac, outlook not updating on ipad, iphone Using Outlook 1
J unable to get my new install of Outlook to display mailboxes in the single-line format. Using Outlook 1
D Legacy Microsoft Outlook for Mac Support will end in Oct 2025 Using Outlook 5
C Nasty Bug Lurking In Outlook For Years. The Trigger. Any Fix Or Workaround? Using Outlook 11
R Auto clicking Hyperlink in outlook Outlook VBA and Custom Forms 7
ughlook Open multiple contacts in NEW Outlook? Using Outlook 3
G Outlook translation feature is off Using Outlook 2
J Outlook 2010 does not let me put any account Using Outlook.com accounts in Outlook 3
P 3 of 5 PST files don't install from d:\outlook but only from D:\ Using Outlook 7
HarvMan January Windows 10 preview update force installs new Outlook Using Outlook 1
L Outlook 2010 - new installation on Windows 11 - aplzod32.dll is not a valid Add-in Using Outlook 12
J Outlook troubleshooting/logging - option grayed out Using Outlook 2
B Arrows missing from Outlook emails vertical scrollbar Using Outlook 0

Similar threads

Back
Top