Note: The other languages of the website are Google-translated. Back to English

Outlook: Auto reminder when forgetting attachments in messages

You may be headache to forget adding attachments, but remind recipients to check attachments in email message body. Here we will introduce two tricks about how to automatically remind yourself when you send an email message that may be missing attachments in Microsoft Outlook.

Automatically reminder when forgetting attachments in Outlook 2013/2016

Automatically reminder when forgetting attachments in Outlook 2007 and 2010

remove all duplicate contacts from one or multiple contacts folders in outlook

In sometimes, we may repeatly add the same contacts, how can remove the duplicate contacts from one or multiple contacts folders? Kutools for Outlook's Duplicate Contacts function can quickly remove or merge duplicate contacts based on emails, full name or other criteria from one or more contacts folders .    Click for 45 days free trial!
doc remove duplicate contacts 1
 
Kutools for Outlook: with dozens of handy Outlook add-ins, free to try with no limitation in 45 days.
Office Tab - Enable Tabbed Editing and Browsing in Office, and Make Work Much Easier...
Kutools for Outlook - Brings 100 Powerful Advanced Features to Microsoft Outlook
  • Auto CC/BCC by rules when sending email; Auto Forward Multiple Emails by rules; Auto Reply without exchange server, and more automatic features...
  • BCC Warning - show message when you try to reply all if your mail address is in the BCC list; Remind When Missing Attachments, and more remind features...
  • Reply (All) With All Attachments in the mail conversation; Reply Many Emails at once; Auto Add Greeting when reply; Auto Add Date&Time into subject...
  • Attachment Tools: Auto Detach, Compress All, Rename All, Auto Save All... Quick Report, Count Selected Mails, Remove Duplicate Mails and Contacts...
  • More than 100 advanced features will solve most of your problems in Outlook 2021 - 2010 or Office 365. Full features 60-day free trial.

arrow blue right bubbleAuto reminder when forgetting attachments in Outlook 2013/2016

Microsoft Outlook 2013 supports the feature of automatically warning you when you send an email message that may be missing attachments.

Step 1: Click the File > Options.

Step 2: In the Outlook Options dialog box, click the Mail in the left bar.

Step 3: Go to the Send messages section, and keep checking the option of Warn me when I send a message that may be missing an attachment.

Step 4: Click the OK button to exit this dialog box.

Then Microsoft Outlook 2013 or 2016 will warn you automatically if you may forget attachments.

For example, you enter the text of “please check attachments”, “view attachments”, etc. in your message body, but do not insert attachments in the Attachment field. When clicking the Send button, a warning dialog box will pop out to say that you may have forgotten to attach a file. See the following screen shot:


arrow blue right bubbleAuto reminder when forgetting attachments in Outlook 2007 and 2010

Microsoft Outlook 2007 and 2010 do not support automatically warning if you may forget attachments. A VBA macro can help you realize it.

Step 1: Press the Alt + F11 keys to open the Microsoft Visual for Applications window.

Step 2: Expend the Project 1 in the left bar, and double click the ThisOutlookSession to open it.

Step 3: Paste the following code in the ThisOutlookSession window.

VBA: Warning if not insert attachment

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim retMB As Variant
Dim strBody As String
Dim iIndex As Long

On Error GoTo handleError

iIndex = InStr(Item.Body, "attach")

If iIndex > 0 And Item.Attachments.Count = 0 Then

retMB = MsgBox("You may have forgotten to attach a file." & vbCrLf & vbCrLf & "Do you still want to continue?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
If retMB = vbNo Then Cancel = True

End If

handleError:

If Err.Number <> 0 Then
MsgBox "Outlook Attachment Alert Error: " & Err.Description, vbExclamation, "Outlook Attachment Alertr Error"
End If

End Sub

Step 4: Click the Save button on the toolbar.

From now on, if you add text of “attachment” in the message body but don’t attach files, the warning reminder will pop out to tell you that you may have forgotten to attach a file when you click the Send button. See screen shot:


Kutools for Outlook - Brings 100 Advanced Features to Outlook, and Make Work Much Easier!

  • Auto CC/BCC by rules when sending email; Auto Forward Multiple Emails by custom; Auto Reply without exchange server, and more automatic features...
  • BCC Warning - show message when you try to reply all if your mail address is in the BCC list; Remind When Missing Attachments, and more remind features...
  • Reply (All) With All Attachments in the mail conversation; Reply Many Emails in seconds; Auto Add Greeting when reply; Add Date into subject...
  • Attachment Tools: Manage All Attachments in All Mails, Auto Detach, Compress All, Rename All, Save All... Quick Report, Count Selected Mails...
  • Powerful Junk Emails by custom; Remove Duplicate Mails and Contacts... Enable you to do smarter, faster and better in Outlook.
shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus tab 1180x121
 
Comments (34)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hi, gr8 help,thanks. but there is an issue when the date changes macro do not works, any help for life time. ;-)
This comment was minimized by the moderator on the site
Really, It's working. thanks
This comment was minimized by the moderator on the site
I tried the macro and nothing happens - any ideea why?
This comment was minimized by the moderator on the site
I have macros enabled in Outlook 2010, but the code is not working. All files with attachment in the body are still sending with no attachment.
This comment was minimized by the moderator on the site
This macro works for me, but unfortunately the company-required signature has a confidentiality notice that contains the work "attach" 3 times! So I get the pop up warning with every email I sign. How can I edit the macro to only warn we if the word attach is in the email 4 or more times?
This comment was minimized by the moderator on the site
In the line which states "If iIndex > 0 And Item.Attachments.count = 0 Then" change the first 0 to a 3 so it reads: "If iIndex > 3 And Item.Attachments.count = 0 Then" That line is checking for how many times you said the word specified in the previous line, so I think that will fix your problem.
This comment was minimized by the moderator on the site
For some of you noting that nothing happened... I couldn't get it to work right away, but when I started my computer up the next day it worked fine. Maybe a restart is required?
This comment was minimized by the moderator on the site
Is it possible to look for more than one word? F.e. checking for both "attach" and "enclosed" Thank you
This comment was minimized by the moderator on the site
in this section of the code... iIndex = InStr(Item.Body, "attach") you can add in more variables or "strings". Ex: iIndex = InStr(Item.Body, "attach", "attachment", "attaching") ... and so on. Make sure you separate each one with a comma however
This comment was minimized by the moderator on the site
Thank you for the tool. I use it in Outlook 2019. It is working. After new start of outlook it doesnt work anymore.
I also want to add more keywords and thought about adding them the way you did it.
But unfortunately it is not working. Any guess?
This comment was minimized by the moderator on the site
Hi, you have to copy the vba code each time you start Outlook. If you want to have a seamless experience, you can use the Email Warning feature of Kutools for Outlook:
On Kutools tab, click the drop-down arrow beside Email Warning, select Remind Me When I Send A Message That's Missing Attachments. Then create your rule (see screenshot below) and enable the feature.
https://www.extendoffice.com/images/stories/comments/ljy-picture/remind-before-sendinng.png

Amanda
This comment was minimized by the moderator on the site
First off, thanks. I Incorporated this into our office that runs on 2010. However, we found that if someone had sent an email initially with the word attached and after multiple replies the macro would still count the initial "attach". Big problem with long email convo's you would keep being prompted to put an attachment due to the original email. Thoughts?
This comment was minimized by the moderator on the site
[quote]First off, thanks. I Incorporated this into our office that runs on 2010. However, we found that if someone had sent an email initially with the word attached and after multiple replies the macro would still count the initial "attach". Big problem with long email convo's you would keep being prompted to put an attachment due to the original email. Thoughts?By DAN[/quote] Thought I'd share a solution we came up with in my office on this one. This will make it so that pictures added to the email or that may be found in someone's signature will not count as an attachment. And it only takes a count of your most recent email, not the whole body. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim retMB As Variant Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As String Dim iIndex, i, trueCount As Long On Error GoTo handleError i = 1 strEnd = InStr(Item.Body, "From:") If strEnd 0 Then strTrunc = Left(Item.Body, strEnd) Else: strTrunc = Item.Body End If 'Debug.Print strTrunc If Item.Attachments.Count 0 Then iIndex = Item.Attachments.Count trueCount = Item.Attachments.Count 'Debug.Print iIndex 'Debug.Print trueCount Do While i
This comment was minimized by the moderator on the site
I know this thread is a couple months old, so I'm hoping you are still following. For some reason, I'm unable to see your comment in its entirety. It is getting cut off at "Do While i". Is there any way you can repost or send via email? Thanks in advance!
This comment was minimized by the moderator on the site
Great help! :lol: it helps a lot! many thanks!
This comment was minimized by the moderator on the site
Here's everything, sorry it looks like some of it got cut off in the previous message... Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim retMB As Variant Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As String Dim iIndex, i, trueCount As Long On Error GoTo handleError i = 1 strEnd = InStr(Item.Body, "From:") If strEnd 0 Then strTrunc = Left(Item.Body, strEnd) Else: strTrunc = Item.Body End If 'Debug.Print strTrunc If Item.Attachments.Count 0 Then iIndex = Item.Attachments.Count trueCount = Item.Attachments.Count 'Debug.Print iIndex 'Debug.Print trueCount Do While i
This comment was minimized by the moderator on the site
Hi Dan! Looks like your second post cut off at the same place. Not sure if there's a character limit in the forum...maybe try splitting the code between posts?
This comment was minimized by the moderator on the site
Hi I have used this and its working great but I noticed that if someone responds to me and then I reply it searches the whole trail of emails rather than just the one being sent. Is there a way to change this? Thanks
This comment was minimized by the moderator on the site
Has anyone got this to work? I've added this code per the instructions above, enabled macros, but nothing. The code doesn't do anything.
This comment was minimized by the moderator on the site
Has anyone got this to work in Outlook 2010? I've followed the above instructions and it doesn't do anything
This comment was minimized by the moderator on the site
How to set Warning when a message is sent without attachment in lotus notes 8.5.3 ?
This comment was minimized by the moderator on the site
I've used this code and when I test it with my email address in the to line I get the error message, but if I put anyone else in there it goes through just fine. Any ideas about what could be happening?
This comment was minimized by the moderator on the site
Is the Auto Attachment feature designed to work when you send email using the Ctrl+Enter keys?
This comment was minimized by the moderator on the site
Is the Auto-Attachment feature designed to work when email is sent using the Ctrl+Enter keys?
This comment was minimized by the moderator on the site
This Code would not work for me. I had to use this one:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then

If Item.Attachments.Count = 0 Then

answer = MsgBox("There's no attachment, send anyway?", vbYesNo)

If answer = vbNo Then Cancel = True

End If

End If

End Sub
This comment was minimized by the moderator on the site
If anyone is having trouble using this code, images in your signature count as attachments.


I have one image in my signature, so changing the line:

If iIndex > 0 And Item.Attachments.Count = 0 Then

to:

If iIndex > 0 And Item.Attachments.Count = 0 Or Item.Attachments.Count = 1 Then

Made it work for me.
This comment was minimized by the moderator on the site
Thanks for pointing this out this was also a problem I was having. I found that your fix prompted the warning regardless of whether the word 'attach' had been used. Instead I used:

If iIndex > 0 And Item.Attachments.Count = 1 Then

This prompted the warning only when intended not whenever any email was sent.
This comment was minimized by the moderator on the site
Thanks Anthony, it worked.
This comment was minimized by the moderator on the site
THANK YOU!
This works perfectly for me with "If iIndex > 0 And Item.Attachments.Count = 0" despite the fact that I have an image in my signature. I'm using Microsoft Office Professional Plus 2010
This comment was minimized by the moderator on the site
Will not work for me regardless of count value. I've tried everything here and for some reason can never get the popup.
There are no comments posted here yet
Load More

Follow Us

Copyright © 2009 - www.extendoffice.com. | All rights reserved. Powered by ExtendOffice. | Sitemap
Microsoft and the Office logo are trademarks or registered trademarks of Microsoft Corporation in the United States and/or other countries.
Protected by Sectigo SSL