|ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.
Paste the code into the 'ThisOutlookSession' module and restart Outlook. As soon as you add a new attachment to an email its name will be displayed as the subject of the message.
Private WithEvents Mail As Outlook.MailItem
Private WithEvents Inspectors As Outlook.Inspectors
Private Sub Application_Startup()
Set Inspectors = Application.Inspectors
Private Sub Inspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
Set Mail = Inspector.CurrentItem
Private Sub Mail_AttachmentAdd(ByVal Attachment As Attachment)
Mail.Subject = Attachment.DisplayName