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!
 
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. :(
 
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.
Similar threads
Thread starter Title Forum Replies Date
J Outlook Rules VBA Run a Script - Multiple Rules Outlook VBA and Custom Forms 0
N Outlook 2021 'Run Script" Rules? Outlook VBA and Custom Forms 4
Aussie Rules Run a Script on an Incoming Email OK and then the Email reverts Outlook VBA and Custom Forms 0
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
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1
G Save attachment run a script rule Outlook VBA and Custom Forms 0
E Having some trouble with a run-a-script rule (moving mail based on file type) Outlook VBA and Custom Forms 5
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 Using Outlook 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
B The “run a script” function stopped unexpectedly in Outlook2007 Using Outlook 6
E run script fails suddenly Using Outlook 3
L Run script rule not exectued for first few mails Outlook VBA and Custom Forms 2
X Run macro automatically when a mail appears in the sent folder Using Outlook 5
V Outlook macros no longer run until VB editor is opened Outlook VBA and Custom Forms 0
J Want to create a button on the nav bar (module add-in) to run code Outlook VBA and Custom Forms 2
T Outlook 2010 Errore run-time -2147417851 (80010105) Metodo delete ContactItem non riuscito Outlook VBA and Custom Forms 0
U Outlook 2019 VBA run-time error 424 Outlook VBA and Custom Forms 2
D Outlook 2013 Macros only run in VB editor, not in drop down or button Outlook VBA and Custom Forms 14
D We're sorry but outlook has run into an error Using Outlook 6
M White square in body of Outlook Messages (O2016 Version 2012 32bit Click To Run) Using Outlook 4
C Auto Run VBA Code on new email Outlook VBA and Custom Forms 1
A Apply Selected Emails to outlook rules and Run Rules Using Outlook 5
B VBScript doesn't run on Recipient Email 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

Similar threads

Back
Top