Outlook rule to not send if attachment name doesn't match criteria

gmayor · #1 03-19-2016, 10:33 PM

The macro looks for an outgoing message with Personal Information in the attachment filename. It then strips the Personal Information text from the filename and looks to see if the remaining name is in the subject and then flags a warning no matter who the message is sent to.

The problem with using a distribution list is that it can only be identified as a list by looking at .To, if the list has not been expanded.

To see what I mean, send a message to the outbox (without sending immediately) with the three parameters correct then open and resend the message from the outbox. The message will still go through with the original code, but with the change below it will now not, because the sender is now the members of the group and not the group.

Based on your updated requirement, what I believe you now require would be to change

Code:

If InStr(1, Item.Subject, strCheck) = 0 Then

to

Code:

If InStr(1, Item.Subject, strCheck) = 0 Or Not Item.To = "Bob" Then

SerenityNetworks · #2 03-20-2016, 07:57 AM

Thank you. I'm on my phone right now, but will try to give it a shot later today.

In my case, I'm not concerned with users expanding the distribution list. The more simple and consistent the matching then the more simple the process (usage rules) the users have to follow.

Thanks again. I'll post back with the code I settle on.

Andrew

SerenityNetworks · #3 03-20-2016, 10:56 AM

This works perfectly for my needs. Thank you!

Code:

Option Explicit
    
'https://www.msofficeforums.com/outlook/30477-outlook-rule-not-send-if-attachment-name.html
'https://www.msofficeforums.com/member.php?u=26884

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim olAtt As Attachment
Dim strCheck As String
Dim bCheck As Boolean
    If Item.Attachments.Count > 0 Then
        For Each olAtt In Item.Attachments
            If olAtt.FileName Like "*File*.*" Then
                strCheck = Replace(olAtt.FileName, _
                                   Right(olAtt.FileName, _
                                         Len(olAtt.FileName) - _
                                         InStrRev(olAtt.FileName, _
                                                  Chr(46)) + 1), "")
                strCheck = Replace(strCheck, "File ", "")
                'Use the following line of code to assure Group/Distribution Name, Subject, and Attachment all contain the same keyword.
                'If InStr(1, Item.Subject, strCheck) = 0 Or Not Item.To = strCheck Then
                'Use the following line of code to only check that Subject and Attachment contain the same keyword.
                If InStr(1, Item.Subject, strCheck) = 0 Then
                    MsgBox "Check the attachment(s)!"
                    Cancel = True
                    Exit For
                End If
            End If
        Next olAtt
    End If
lbl_Exit:
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using a VLOOKUP - when 2 rows match criteria it returns the first value in the cel only how 2 change	djrobst	Excel	4	10-28-2015 01:32 AM
Count unique values that match 2 or more criteria	caeiro01	Excel	1	10-25-2015 02:34 AM
Outlook macro to check a value of a cell in an attachment and send an email based on that value	ketangarg86	Outlook	13	03-25-2015 07:11 AM
Outlook doesn't send/receive anymore.	Astacus	Outlook	1	12-29-2012 03:40 PM
Vlookup or Index/Match - Multiple Criteria	ruci1225	Excel	1	01-15-2012 07:31 AM