Outlook Attachment Reminder Macro

How many times have you written an email about “the attached file” only to forget to attach the file before hitting send? If you follow the instructions in this post, that’ll never happen again!

We’re going to add a VBA macro to Microsoft Outlook that searches your email for the text “attach” when you click “send”. If it finds that string of text (ie. attached, attachment…) it will check to see if you actually attached a file. If there’s no file attached, you’ll be prompted with a message box. Then, you can either continue without attaching anything, or you can stop the email from sending so you can include your file. Yes, it’s that simple.

*Note: This will not work in Outlook Express as it doesn’t support macros.

How to set it up:

1. Open Outlook.
2. Press Alt+F11 : This will open the Visual Basic editor.
3. Expand the project until you find “ThisOutlookSession” and select it.
4. Copy the code below into the Visual Basic code window.
5. Save.

Now to test:
6. Close & Reopen Outlook for good measure.
7. Write an email containing the word attach.
8. Click send. *This is when you should get the pop-up.

*Note: If you have an image in your email signature, that would count as an attachment. Just change “intStandardAttachCount” from 0 to 1.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
‘ Pops up a reminder if the word “attach” is found but there is no attachment on your email.
Dim m As Variant
Dim strBody As String
Dim intIn As Long
Dim intAttachCount As Integer, intStandardAttachCount As Integer

On Error GoTo handleError

‘Edit the following line if you have a signature on your email that includes images or other files. Make intStandardAttachCount equal the number of files in your signature.
intStandardAttachCount = 0

strBody = LCase(Item.Body)

intIn = InStr(1, strBody, “original message”)

If intIn = 0 Then intIn = Len(strBody)

intIn = InStr(1, Left(strBody, intIn), “attach”)

intAttachCount = Item.Attachments.Count

If intIn > 0 And intAttachCount <= intStandardAttachCount Then m = MsgBox(“It appears that you mean to send an attachment,” & vbCrLf & “but there is no attachment to this message.” & vbCrLf & vbCrLf & “Do you still want to send?”, vbQuestion + vbYesNo + vbMsgBoxSetForeground) If m = vbNo Then Cancel = True End If handleError: If Err.Number <> 0 Then
MsgBox “Outlook Attachment Reminder Error: ” & Err.Description, vbExclamation, “Outlook Attachment Reminder Error”
End If

End Sub

Also, LifeHacker has a script for GreaseMonkey that does the same thing for GMail.

Credit for this Outlook macro goes to Mark Bird. I’ve seen this macro a few times on the internets, but I believe he’s the original creator. You may also find some answers to any questions on his site. Thanks Mark!

There you go! Now anytime you mention an attachment in your email, you’ll be sure to have it attached.

26 thoughts on “Outlook Attachment Reminder Macro

  1. HI Jason,

    I was wondering how you might modify the search criteria from just “attach” to include other possible key words (“list”, “file”, etc..)

    I’ve been using Mark’s orginal macro for some time and often wondered how this would work.


    1. Dim keyword, word_found As String
      Option Base 1

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

      Dim bHasAttach As Boolean
      Dim Prompt As String

      ‘ sicherstellen, dass nur MailItems untersucht werden
      If Item.Class = olMail Then
      ‘ prüfen, ob möglicherweise ein Attachment erforderlich, aber nicht vorhanden ist
      If NeedsAttachment(Item.Body) Then
      bHasAttach = True
      If TypeName(Item.Attachments) = “Nothing” Then
      bHasAttach = False
      If Item.Attachments.Count = 0 Then
      bHasAttach = False
      End If
      End If
      If Not bHasAttach Then
      Prompt = “In der Mail >” & Item.Subject & “< fehlt möglicherweise ein Anhang (Schlüsselwort »" & word_found & "« gefunden). Trotzdem senden?"
      If MsgBox(Prompt, vbYesNo + vbQuestion, "fehlender Anhang") = vbNo Then
      Cancel = True
      End If
      keyword = "" 'kostbaren Speicher freigeben
      word_found = ""
      End If
      End If

      End If 'Item.Class = olMail

      End Sub

      Private Function NeedsAttachment(ByVal text As String) As Boolean

      Dim sPhrases As Variant
      Dim sPhrases_en As String
      Dim sTe As String
      Dim bNAtta As Boolean
      Dim i, iu, t As Integer

      ' Prüfstrings initialisieren

      sPhrases = Array("Anhänge", _
      "Anhang", _
      "Anlage", _
      "anhängend", _
      "Datei", _
      "beigefügt", _
      "anbei", _
      "attach") ', _

      sTe = LCase(text)
      bNAtta = False
      iu = UBound(sPhrases)
      For i = 1 To iu
      t = InStr(1, sTe, sPhrases(i), 1)
      If t 0 Then
      keyword = sPhrases(i)
      bNAtta = True

      ‘Gesamtes Wort ausgeben, das den Schlüsselbegriff enthält
      word_found = keyword
      t = t + Len(keyword)

      While (IsLetter(Asc(Mid(sTe, t, 1))))

      word_found = word_found + Mid(sTe, t, 1)
      t = t + 1


      Exit For
      End If

      NeedsAttachment = bNAtta
      End Function

      Function IsLetter(ByVal varWhat As Variant) As Boolean
      Dim i As Long, codes As Variant

      ‘ASCII-Codes für Groß- und Kleinbuchstaben lt. ASCII-Tabelle
      codes = Array(65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, _
      97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122)

      IsLetter = True
      For i = LBound(codes) To UBound(codes)
      If (codes(i)) = (varWhat) Then Exit Function
      IsLetter = False
      End Function

    2. Hi

      Can anyone help me out. I.need a macro code that should check all whether attached excel sent from outlook is password protected or not if no it should pop up a message.please help

        1. I had issues because of copy-paste :
          the quotation mark was modified from ” to “ which doesn’t work.
          Simply replace with ” and it works.
          Beware : the macro searchs for “original message” text.
          I replaced this with some text in my signature (which is automatically put in every email/answer).

          But I faced an error message when the attachement is already opened…
          I will look at it when I have more time…

  2. Hi Jason,

    Is there a difference between files that you attach and files (images) attached in body message?

    I have to discard files attached in body message or to know when I attach a file that not belong to he message history.

    Thanks in advance.

    Best Regards.


  3. I had this working but it simply stopped. Now I can send emails without attachments and I get no warning pop up. The script is still there in VBA but it seems to no longer have any effect. I ahve tried deleting it, repasting it, resaving it – I have closed and opened Outlook etc. Argh. It was SUCH a great little helper and now its gone 🙁

  4. I have already pasted some other macro (Subject empty reminder) in “ThisOutlookSession”. How do I out another macro for attachment reminder?

    Please advice.

    1. Just copy the content and paste it inside the method
      Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
      [****Here your code for subject empty reminder ***]
      [****here your code for attachment missing reminder ***]
      End Sub

      You should not create another method. Both the code should be in same method.

      It will work.

      1. Hi Jason,

        I am actually looking for a macro that pops up an alert when we attach a file to the email in outlook 2010. It should pop up an alert message if there is any attachment in the email. Can you please help me with this..

        1. @Spoorthi,

          I’ve been looking into something like this recently. We were thinking about automatically moving attachments to Sharepoint and instead providing links in the emails. I saw that you emailed me as well. I’ll follow up with more detail there.

          – Jason Green

  5. Mr. Jason,

    I am using microsoft 2010 also, i do really love your macro because it will help me a lot with my work but unfortunately its not working for 2010. Please also send me an update for this if possible.

    Thank You and Best Regards
    Jayson G.

  6. Hi Jason,

    I have a need to check if the files attached in the email are password protected (with or without winzip). The idea is to warn the sender if the files aren’t password protected. Can I get some help with this kind of macro ?


  7. I’m having a problem. If i reply to a message that the send says anything about an attachment the error message pops up. Is there a way for it to only look and the message body i’m sending and not other message details

  8. Hi Jason,

    I have implemented this macro in outlook and is working fine. But the same is promting me the message if the word “attach” is not present in the mail body. I mean to say I am getting reminder for al the emails . Please help on this..

  9. Yeah I cannot get to work in Outlook 2010 either and have tried all tips – would have been great.
    Thanks for the effort, let us know if you are able to update it.
    Best regards

    1. found the fix for this. You must allow Macros in the Trust Center on Outlook 2010.
      1.On the File tab, choose Outlook Options to open the Outlook Options dialog box, and then click Trust Center.
      2.Click Trust Center Settings, and then the Macro Settings option on the left.
      3.Select Notifications for all macros and then click OK. …
      4.Restart Outlook for the configuration change to take effect.


Leave a Reply

Your email address will not be published. Required fields are marked *