Cannot get Macro to SAVE more than one message attachment???

Not open for further replies.


Outlook version
Outlook 2010 32 bit
Email Account
The attached VBA macro works with Outlook 2010 Rules, saving the attachment in reservation messages that meet the condition of the rule. The macro saves an Excel .csv file attachment to a very specific location, that being: C:/MarinaPro/ResScheduler/.

Works well, for the first email, but not for any additional emails received. I simply can't get the macro to save more than one (1) attachment.

I am new to VBA and just cannot get this to work.

Help would be much appreciated.


  • Save Attachments.txt
    1.4 KB · Views: 439
Does the rule stop working or the code just not work?

Is some of the code missing? The inbox items macro doesn't have an end sub.
Public Sub olInboxItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
If Item.Attachments.Count > 0 Then

While its doesn't matter, you don't need to split it with &:
strFolderpath = "C:\MarinaPro v18 Master\ResScheduler\"
The Outlook rule is working fine, and the macro (MP Macro.ThisOutlookSession.SaveAttachments) saves the attachment for the first email occurrence, but not for subsequent email occurrences found by the rule.

I will change to strFolderpath = "C:\MarinaPro v18 Master\ResScheduler\"

Save Reservation Attachment Rule.jpg
Ok- one possible cause - you should only have 1 action in the rule. Either move the message using the rule and use an itemadd macro to save the attachment, or move it using the macro before or after you save it.
Finally got a working macro and rule combination using a sample macro from Slipstick Systems and with some of my own modifications.

Only two problems remain to be solved, the renaming of the saved attachment formatted as strFile = DateFormat & "_" & TimeFormat & "_" & "CustLastNam.csv" being most problematic thus far.

The current code is:
' Get the file name.
strFile = objAttachments.Item(i).FileName

The wanted result is:
' Get the file name.
strFile = DateFormat & "_" & TimeFormat & "_" & "CustLastNam.csv" (but incremented)

I have tried several ideas, but can't seem to get "item(i)" to be formatted as wanted. Here is the current loop code:

If lngCount > 0 Then

For i = lngCount To 1 Step -1

' Get the Sent Date and Time
DateFormat = Format(Date, "MMddyy")
TimeFormat = Format(Time, "HHmm")

' Get the file name.
strFile = objAttachments.Item(i).FileName

' Combine with the path to the Temp folder.
strFile = strFolderpath & strFile

' Save the attachment as a file.
objAttachments.Item(i).SaveAsFile strFile

Next i
End If

What am I missing here?


  • Save Attachment Macro.txt
    2.3 KB · Views: 387
Final fix turned out to be quite simple.

Original script: strFile = objAttachments.Item(i).FileName

New script: strFile = Mid(objAttachments.Item(i).FileName, 12, 19) & "_CustLastNam.csv"

Chalk it up to the learning curve at my initiation into the world of VBA.


  • MarinaPro OL Attachment Macro.txt
    2.2 KB · Views: 438
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
M The macro name.ThisOutlookSession.DisplayMyForm cannot be found. Outlook VBA and Custom Forms 2
C Cannot access macro menu in OL2003 Outlook VBA and Custom Forms 2
P Cannot understand how to use Favorites Using Outlook 4
U When opening shared Calendar "The set of folders cannot be opened" Using Outlook 0
J Cannot edit a calendar event received as an invitation Using Outlook 2
humility36 Cannot move emails to archive - 440 error Outlook VBA and Custom Forms 1
L I Cannot Sign Into My Outlook Account? Outlook VBA and Custom Forms 0
CWM550 This rule has a condition that the server cannot process? Using Outlook 1
U Outlook on the iPhone cannot approve filtered Emails Using Outlook 0
Horsepower Cannot delete gmail in iPhone Outlook outbox Using Outlook 1
K Daily Task List Minimized Cannot Display Using Outlook 5
O The linked image cannot be displayed Using Outlook 2
C "The linked image cannot be displayed. The file may have been moved, renamed, or deleted. Verify that the link points to the correct file location" Using Outlook 1
B IMAP server rejects sent email - cannot deliver messages Using Outlook 2
T Outlook 2021 Cannot open attachments Outlook DeskTop 2021 Using Outlook 0
S Cannot print Contacts Using Outlook 7
J VBA Cannot programmatically input or change Value for User Defined field Using Outlook 1
T Outlook 2010 Cannot edit Calendar entries in OL 2010. Using Outlook 1
O Cannot expand the folder. The set of folders cannot be opened. You do not have permission to log on. Using Outlook 1
N Item cannot be saved because it was modified by another user or window, and, Item could not be moved... Using Outlook 0
D Cannot populate certain UserProperties in Outlook from Excel Outlook VBA and Custom Forms 2
D Outlook 2016 64bit, Cannot Save in 'HTML', format Using Outlook 1
D cannot view emails in View pane (in the right pane), I only see one line or nothing Using Outlook 21
M Cannot read the calendar Using Outlook 9
T The Linked Image Cannot Be Displayed in Outlook Using Outlook 7
D Outlook 2016 Outlook Error Msg "The operation cannot be performed ..." How to Stop it Using Outlook 4
S Custom Field Cannot Be Displayed In Views Outlook VBA and Custom Forms 2
G Cannot Move Autocomplete File to New Computer Using Outlook 15
rubaboo The vew cannot be found Outlook VBA and Custom Forms 0
A Cannot copy this folder because it may contain private items Using Outlook 0
L Cannot open PST file for first session each day Using Outlook 6
David in Mississippi New (Feb 2020) install of Outlook 365 - Cannot specify PST for different accounts Using Outlook 0
Marc2019 Need help please! Cannot Setup my outlook email account on my Mac Outlook 2011 Using accounts in Outlook 2
noshairwan Registry cannot be found, Outlook Security Using Outlook 2
Marc2019 Cannot input Vietnamese Characters on my MSOutlook 2016 in Windows 7 Using Outlook 0
T Cannot remove needless PST Using Outlook 1
Marc2019 Cannot setup Outlook Account on Mac Os 10.6.8 Using Outlook 3
N pst files are recreating automaticaly and cannot be deleted Using Outlook 5
Mark Foley Cannot enable add-in in outlook 2010 Using Outlook 0
T "cannot find the calendar folder for this item" - calendar items stuck in outbox Using Outlook 0
A Created a new user account and the local account cannot see email Using Outlook 3
iwshim outlook 2013 - I cannot see the "Manage Add-ins" Using Outlook 2
T Cannot connect to main BT email account, sub accts okay Using Outlook 0
O The page that you are trying to access cannot be loaded. Using Outlook 0
M Daily Task List Minimized Cannot Display Using Outlook 2
DariTrevino MIcrosoft Outlook PST file cannot repair Using Outlook 1
B One email cannot be sent or received (but leaves outbox!) Using Outlook 1
C Outlook 2016 cannot delete, email showing in root Exchange Server Administration 5
S cannot edit some contacts Using accounts in Outlook 5
B Search: Cannot find which Folder Contains a Message Using Outlook 3

Similar threads