I was wondering if anyone new of a modification to the below script
that would allow the script to not simply overwrite an already saved
attachment if the names are the same, but simply add an addition to
the name (maybe).
Here's what I got so far:
Dim oApp As Application
Dim oNS As NameSpace
Dim oMsg As Object
Dim oAttachments As Outlook.Attachments
Set oApp = New Outlook.Application
Set oNS = oApp.GetNamespace("MAPI")
Set myFolder = oNS.GetDefaultFolder(olFolderInbox)
Set oFolder = myFolder.Folders("Change Memos")
For Each oMsg In oFolder.Items
myString = Replace(oMsg, "/", "-")
& myString & ".html"