run a script in rules, first time succeed, failed afterwards

Status
Not open for further replies.

Xueying

New Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
Hi,

I am working on a script that enables Outlook to automatically saves attachments.
Here's my codes:

Public Sub SaveAttach(Item As Outlook.MailItem)
Dim RootPath
RootPath = "D:\Monthly Update Report\Generate Sum Rep\"
SaveAttachment Item, RootPath, "*.*"

End Sub


Private Sub SaveAttachment(ByVal Item As Object, ByVal path As String, Optional condition = "*")
Dim olAtt As Attachment
Dim i As Integer

Dim fso, f
Dim NewFolder
Set fso = CreateObject("Scripting.FileSystemObject")


If Item.Attachments.Count > 0 Then
For i = 1 To Item.Attachments.Count
Set olAtt = Item.Attachments(i)
If olAtt.FileName Like condition Then
NewFolder = Mid(olAtt.FileName, 13, 6)
path = path & NewFolder & "\"
If fso.FolderExists(path) <> True Then
fso.CreateFolder (path)
End If
olAtt.SaveAsFile path & olAtt.FileName
End If
Next
End If

MsgBox "Saved " & Item.Attachments.Count & " items."
Set olAtt = Nothing

End Sub

'This function works to complete "0"s before a month.

Private Function RLeft(sval)
RLeft = Right("00" & CStr(sval), 2)
End Function

This works at the first time I set the rule and run the script. But it doesnt seem to work after the one-time success...
Ps: I have set the trust center to allow running script.


Is there anyone who can lend me a hand?
Thanks!
 

Xueying

New Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
does each attachment have a unique filename?
Thank you Diane!
Yes. Every attachment's name goes like Report_YYYYMMDD.csv For example, today's report is like Report_20140915.csv

And a important information may be that it seems all the script rules won't apply now...I did some simple tests on it. All the rules requires a script won't do now. :(
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
As long as it's one report a day it should work... did you reconfirm that macro security was set to low/allow all macros?
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
oliv- How to Run a Script IN AN ADDIN with Outlook's Rules and Alerts Outlook VBA and Custom Forms 2
P Vba script including macro appears in rules but wont run Outlook VBA and Custom Forms 6
J Outlook 2007 Rules & VBA: How to run a script on a report message (ReportItem) Using Outlook 14
L Run A Script not listed in rules wizard Outlook VBA and Custom Forms 12
Y Outlook 2013 Run A Script Outlook VBA and Custom Forms 4
B Outlook rule run a Script doesn't work Outlook VBA and Custom Forms 1
B Wanting to run a script that will filter any body that has a russian link in it. Outlook VBA and Custom Forms 5
Bri the Tech Guy Registry Tweak to make "Run a Script" Action Available Outlook VBA and Custom Forms 2
Bri the Tech Guy Run Script rule not running for newly arriving messages Outlook VBA and Custom Forms 25
Vijay Error in rule- Run a script Using Outlook 1
Vijay Run script doesn't work in outlook Using Outlook 1
Diane Poremsky Run a Script Rule: Send a New Message when a Message Arrives New Slipstick.com Articles 2
L Run a Script Rule doesn't work Using Outlook 5
X Outlook script to run excel data Outlook VBA and Custom Forms 1
D RUN SCRIPT WHEN OUTLOOK IS CLOSE Outlook VBA and Custom Forms 1
L Cannot run script from rule Outlook VBA and Custom Forms 7
O modify vba to run it as script rule Outlook VBA and Custom Forms 8
P How many subs can run in one outlook VBA script Using Outlook 5
Jeff Rott Diane Question on "Use in a Run a Script Rule" Outlook VBA and Custom Forms 1
L Outlook 2007 Macro to Run a Script From a Contact Form Using Outlook 41
E run script fails suddenly Using Outlook 3
L Run script rule not exectued for first few mails Outlook VBA and Custom Forms 2
A Run-time error '430' on certain emails when trying to set "Outlook.mailitem" as "ActiveExplorer.Selection.Item" Outlook VBA and Custom Forms 2
S Outlook Custom Form Scripting only working when clicking on "Run this form" Outlook VBA and Custom Forms 2
O Outlook 2016 This rule will only run when you check your email in Outlook.... Using Outlook 4
B run scripts Using Outlook 1
A Run time error 424. object required in outlook 2013 Outlook VBA and Custom Forms 10
Dave A Run macro on existing appointment when it changes Outlook VBA and Custom Forms 1
O Run macro automatically at sending an email Using Outlook 11
P errors appear every time I run SCANPST Using Outlook 3
S VBA Macro - Run-time error '424': object required - Help Please Outlook VBA and Custom Forms 3
P Run Time Error 91 when linking contact to task in VBA Outlook VBA and Custom Forms 1
O Having rules run on old mails noved to inbox Outlook VBA and Custom Forms 8
J Custom form code doesn't run Outlook VBA and Custom Forms 2
J VBA Run When Reply Outlook VBA and Custom Forms 4
O VBA to Run Font Change on Outlook Startup Outlook VBA and Custom Forms 4
D Creating an outlook session from Access vba but run silently. With A specific profile Outlook VBA and Custom Forms 1
Diane Poremsky Using Scanpst in Outlook Click to Run New Slipstick.com Articles 0
B Can't run macro from QAT when emailing from Acrobat Outlook VBA and Custom Forms 0
J Outlook 2010 VBScript editor does not run code at all Outlook VBA and Custom Forms 0
D How to Run a Report Based on Age of Inbox Items Outlook VBA and Custom Forms 0
M Office 365 Click to run BCM (Business Contact Manager) 0
D Must now "View on Facebook" for Mentions/Comments-Outlook 2013 click-to-run Using Outlook 2
R Outlook won't run except in Safe mode problem Using Outlook 5
K Revert AutoArchive settings via GPO (Run Autoarchive every...) Using Outlook 4
G Outlook 2003 VBA Won't Run In Outlook 2010 Outlook VBA and Custom Forms 4
J Run Rules Now Using Outlook 1
Gary Brown Outlook 2013 VBA to run a rule Outlook VBA and Custom Forms 13
T Is the standalone Outlook 2013 click-to-run or msi? Using Outlook 1
A Uninstall Click and Run Exchange Server Administration 2
Similar threads


















































Top