Script not running automatically anymore

[110kiley]

Our company recently converted us all to GMAIL... boo... so I setup IMAP to continue to use outlook.

I've had a rule, in which it moves the email to a folder and also runs a script.

After this conversion, the rule runs and moves the email, but does not run the script. HOWEVER, if I move the back into the main inbox and 'run rules now', the entire rule runs fine. Not sure it helps to post the script, but it's below.

Any thoughts? Thanks!

[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 "*BEACON*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Beacon\"
ElseIf UCase(strSubject) Like "*TEA*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\TEA\"
ElseIf UCase(strSubject) Like "*POWELL*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Powell\"
ElseIf UCase(strSubject) Like "*MITCHELL*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Mitchell\"
ElseIf UCase(strSubject) Like "*NORTH*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\North\"
ElseIf UCase(strSubject) Like "*CORKER*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Corker\"
ElseIf UCase(strSubject) Like "*RAAMPAC*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Raampac\"
ElseIf UCase(strSubject) Like "*COBB*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Cobb\"
ElseIf UCase(strSubject) Like "*BARNES*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Barnes\"
ElseIf UCase(strSubject) Like "*DICKERSON*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Dickerson\"
ElseIf UCase(strSubject) Like "*HOUSEMAJPAC*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\HouseMajPac\"
ElseIf UCase(strSubject) Like "*JERNIGAN*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Jernigan\"
ElseIf UCase(strSubject) Like "*GREEN*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Green\"
ElseIf UCase(strSubject) Like "*STEWART*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Stewart\"
ElseIf UCase(strSubject) Like "*TNREPUBCAUCUS*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\TNREPUBCAUCUS\"
ElseIf UCase(strSubject) Like "*HENSLEY*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Hensley\"
ElseIf UCase(strSubject) Like "*WILLIAMSON*" Then
strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\Williamson\"
Else: strFolderpath = "C:\Users\kmurphy\Documents\Dropbox\Public File\xPolitical\"
End If
strFileName = strSubject & ".pdf"
strFile = strFolderpath & strFileName

For Each objAtt In itm.Attachments

objAtt.SaveAsFile strFile

Set objAtt = Nothing

Next

End Sub[/VBA]

[skatonni]

Run a script rules are notoriously unreliable.

Try ItemAdd or NewMailEx described here http://www.outlookcode.com/article.aspx?id=62.

The code runs after the item gets to the Inbox.