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!!
 
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.
< Outlook Rules based on number of days | ADSL - filter by email address to >
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 Question about Outlook 2021 and Gmail Using Outlook 8
J Outlook VBA to send from Non-default Account & Data Files Outlook VBA and Custom Forms 2
P Limited Support for 3rd Party Mail in new Outlook? Using Outlook 1
O Any 3rd party tool that sync (mirror) from Outlook Calendar to Google Calendar? Using Outlook 5
T Outlook is categorizing emails incorrectly Using Outlook 1
R Legacy Outlook on Mac Email Cache Using Outlook 0
A Outlook can't remember outlook.com, Exchange password. Using Outlook 3
S Related messages show in main Outlook window vice new Advanced Find windows Using Outlook 1
H Force Outlook 2019 with GMail 2-Step to Require Login? Using Outlook 0
G Retaining Tabs in outlook body Using Outlook 2
V Setting up Outlook 2021 on new computer Using Outlook 2
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
X Custom icon (not from Office 365) for a macro in Outlook Outlook VBA and Custom Forms 1
Victor_50 Problem - Google Workspace will stop "unsafe" access to Outlook end 2024 Using Outlook 3
C New pc, new outlook, is it possible to import auto-complete emailaddress Using Outlook 4
T Outlook 365 won't take new working password Using Outlook 0
S Create Outlook Task from Template and append Body with Email Body Outlook VBA and Custom Forms 4
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
B Sync Outlook Public Folders to Contacts Using Outlook 2

Similar threads

Back
Top