Reverse collection items?

JamesMWood · #1 02-02-2023, 02:02 AM

Hiya

Is there any way to reverse the order that attachments are reattached to my email?

Excerpt:

If olItem.Attachments.Count > 0 Then
For i = olItem.Attachments.Count To 1 Step -1
olAtt = olItem.Attachments(i)
sName = olAtt.FileName
If sName Like "*.pdf" Then
sName = Replace(olAtt.FileName, "%20", " ") 'Removes %20 from file names
olAtt.SaveAsFile(sPath & sName)
cNames.Add(sPath & sName)
olAtt.Delete()
End If
Next i

For i = 0 To cNames.Count
olItem.Attachments.Add(cNames(i))
Kill(cNames(i))
Next i

End If

JamesMWood · #2 02-02-2023, 08:29 AM

No worries, figured out another way around my particular issue!

Thanks

gmayor · #3 02-02-2023, 10:36 PM

Instead of

Code:

For i = 0 To cNames.Count

use

Code:

For i = cNames.Count to 0 step -1

JamesMWood · #4 02-03-2023, 01:31 AM

Thank you very much, that really helps!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
outlook vba - setting reference to subfolder, sometimes no folder items in collection	travb81	Outlook	3	09-23-2020 11:22 PM
Looping backwards through a 'For Each' collection	ThinAirDesigns	Project	1	05-02-2019 02:16 PM
Deleting items in folders doesnt send them to deleted items!	marshy365	Outlook	0	07-29-2016 03:19 AM
site collection is inaccurate	dbsoccer51	Misc	0	12-02-2015 03:30 PM
Outlook 2007 Saved sent items list only holds the last ten items	david.peake	Outlook	0	06-01-2010 07:27 PM