Have Outlook Remind You of Forgotten Attachments

The latest thing in email add-ons seems to be programs that help you to not look stupid when sending email. What do I mean by that? I mean sending out messages saying “see attachment” when clearly, there is no attachment present. Not only does this make you feel a little silly, it also wastes your time and that of your recipients as you have to resend the email with your attachment included.

Since Microsoft Outlook is still heavily used by corporate emailers, it’s in this program where forgotten attachments are probably the most common and burdensome for others. How nice it is that there’s now an option to check for forgotten attachments in Outlook. And setting it up is as easy as copying and pasting a little script.

This Outlook VB script was originally created by LifeHacker commenter Jack Stowage then was later modified by another reader, Troy (no last name provided). Thanks to both of you guys for making our lives easier. 

Want to install this script yourself? Here’s how.

1. Copy and Paste the following text (don’t worry, you don’t need to understand it):

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
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

2. In Outlook, go to Tools –> Macro –> Visual Basic Editor in the menu options. (You may need to expand the project by clicking the plus (+) sign under Project1 until you see ThisOutlookSession.)

3. Expand ThisOutlookSession by double-clicking it.

4. Paste the code into the big white empty space like so:

OutlookVba2-full

5. Click “Save”

Tags:

Follow the Discussion

Comments Closed

Comments have been closed since this content was published more than 30 days ago, but if you'd like to continue the conversation, please create a new thread in our Forums,
or Contact Us and let us know.