Prevent Outlook from sending an email with a blank Subject Line

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!!
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
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!!
 
J

JP

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!!
 
V

Vivek

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
e_a_g_l_e_p_i Need clarification on 2-Step Verification for Gmail using Outlook 2021 Using Outlook 8
L Opening People Outlook 2021 Using Outlook 1
e_a_g_l_e_p_i Outlook 2021 not letting me setup my Gmail using pop Using Outlook 1
Geldner Problem submitting SPAM using Outlook VBA Form Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
M Outlook 2016 outlook vba to look into shared mailbox Outlook VBA and Custom Forms 0
P Can no longer sync Outlook with iPhone calendar after iPhone update to 17.1.1 Using Outlook 2
O Outlook - Switch from Exchange to IMAP Using Outlook 0
e_a_g_l_e_p_i Is it possible to have a reminder in Outlook 2021 for every 90 days Using Outlook 3
farrissf Outlook 2016 Optimizing Email Searches in Outlook 2016: Seeking Insights on Quick Search vs Advanced Search Features Using Outlook 0
C Advanced search terms for "Outlook Data File" Using Outlook 1
N Reply to Outlook messages by moving messages to a specific Outlook folder Outlook VBA and Custom Forms 1
O How to find out the domain and server settings that my Outlook is using? Using Outlook 2
A Outlook 365 (OutLook For Mac)Move "On My Computer" Folder Items From Old To New Mac Computer Using Outlook 3
H Integrating Alexa & Outlook Pro 2021 Using Outlook 2
Z Automatically adjust Outlook Reading Pane from bottom to right depending on portrait or landscape window Using Outlook 1
Rupert Dragwater Background colors not saving in Outlook 365 Using Outlook 15
petunia Outlook tasks module sunsetting? Exchange Server Administration 3
G Save emails as msg file from Outlook Web AddIn (Office JS) Outlook VBA and Custom Forms 0

Similar threads

Top