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

Status
Not open for further replies.

geofferyh

Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
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.
 

Attachments

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
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\"
 

geofferyh

Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
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
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
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.
 

geofferyh

Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
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?
 

Attachments

geofferyh

Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
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.
 

Attachments

Status
Not open for further replies.
Thread starter Similar threads 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
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 Outlook.com 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 6
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 Outlook.com cannot edit some contacts Using Outlook.com accounts in Outlook 5
B Search: Cannot find which Folder Contains a Message Using Outlook 3
C Outlook - cannot save subject line changes Using Outlook 2
M cannot change delivery folders with IMAP accounts Using Outlook 0
S Appointment-Cannot set Categories because ConversationID is not set Outlook VBA and Custom Forms 1
Fozzie Bear Cannot post "Sneaky URL"!! Using Outlook.com accounts in Outlook 2
Commodore Search cannot complete the indexing of your Outlook data Using Outlook 6
S Outlook 2010 Cannot Open Attachments Using Outlook 14
A Cannot Figure Out This VBA Outlook VBA and Custom Forms 2
A Cannot Figure Out One Thing on VBA Outlook VBA and Custom Forms 2
Brian Murphy Exchange Online Everything a Transport Rule should do and cannot Exchange Server Administration 1
A Error: The name cannot be matched to a name in the address list Using Outlook.com accounts in Outlook 0
K Other Shared Calendar on Outlook cannot change items Using Outlook.com accounts in Outlook 7
T Outlook 2016 cannot connect after transition to Outlook Mail Using Outlook.com accounts in Outlook 4
L Cannot Connect to BCM database BCM (Business Contact Manager) 9
A Cannot connect to BCM database BCM (Business Contact Manager) 3
Diane Poremsky The custom form cannot be opened. Outlook will use an Outlook form instead. New Slipstick.com Articles 0
T Cannot access outlook.com accounts in Outlook 2016 Using Outlook 1
T Outlook 2016 mp3 attach "this file cannot be preview because there is no previewer installed for it" Using Outlook 1
S Outlook data file cannot be accessed message Using Outlook 5
O Cannot open or save calendar items Using Outlook 0
J Can Click to Drag Custom Form Field But Cannot Drop When Designing in Outlook 2007 Outlook VBA and Custom Forms 2
Diane Poremsky Cannot start Microsoft Office Outlook Error Message New Slipstick.com Articles 0
wallisellener "The database name cannot exceed 50 characters" BCM (Business Contact Manager) 2
J Your IMAP server wants to alert you to the following: cannot remove system folder Using Outlook 3
G Calendar folder cannot be found (tasks folder cannot be found) Using Outlook 2
K Cannot consistently drag and drop .msg files into Outlook 2010 Using Outlook 0
Similar threads


















































Top