Oh, and for reference, here's my code. Note that CFEIG is the only one that went to the appropriate folder.
[VBA]Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim strFile As String
Dim strFolderpath As String
Dim strFileName As String
Dim strSubject As String



strSubject = itm.subject
If UCase(strSubject) Like "*Black*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\Black\"
ElseIf UCase(strSubject) Like "*Desjarlais*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\Desjarlais\"
ElseIf UCase(strSubject) Like "*Maggart*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\Maggart\"
ElseIf UCase(strSubject) Like "*Corker*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\Corker\"
ElseIf UCase(strSubject) Like "*Congelecpac*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\Congelecpac\"
ElseIf UCase(strSubject) Like "*CFEIG*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\CFEIG\"
ElseIf UCase(strSubject) Like "*Zelenik*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\Zelenik\"
ElseIf UCase(strSubject) Like "*Sargent*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\Sargent\"
ElseIf UCase(strSubject) Like "*Williamson*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\Williamson\"
Else: strFolderpath = "C:\Users\kmurphy\Desktop\RandomPoliticalScans\"
End If
strFileName = strSubject & ".pdf"
strFile = strFolderpath & strFileName

For Each objAtt In itm.Attachments

objAtt.SaveAsFile strFile

Set objAtt = Nothing

Next

End Sub[/VBA]