Hiya

If you have a draft email with some attachments, is it possibly to write a macro that can find and replace a certain word in the filenames of all attachments?



Thanks!
James

I got this working, but it only works by forwarding the draft/creating another copy of the draft email. Can it be tweaked so it does it with the existing/original draft instead?

Sub RenameAttachmentsWhenForwarding()
Dim olItem As MailItem
Dim Att As Attachment
Dim Atts As Attachments
Dim olForward As MailItem
Dim FWAtt As Attachment
Dim FWAtts As Attachments
Dim FSO As Object
Dim TempFPath As Object
Dim FilePath As String
Dim strName As String
Dim strExten As String
Dim strFile As String

Set olItem = Application.ActiveInspector.CurrentItem
Set Atts = olItem.Attachments
Set olForward = olItem.Forward
olForward.Display

On Error Resume Next

For Each Att In Atts
'Get the path to Temporary Folder
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TempFPath = FSO.GetSpecialFolder(2)
FilePath = TempFPath.Path & ""

'Rename the attachments
strName = Replace(Att.FileName, "%20", " ")
'Change "4" based on the length of the attachment file extension
strExten = Right(Att.FileName, 4)
'strFile = FilePath & strName & "." & strExten
strFile = FilePath & strName

If strName <> "" Then
'Save the attachments to the Temporary Folder
Att.SaveAsFile (strFile)

'Add the attachments saved in new names from the Temporary Folder
olForward.Attachments.Add (strFile)
Set FWAtts = olForward.Attachments

'Remove the original attachments
For Each FWAtt In FWAtts
If InStr(FWAtt.FileName, Att.FileName) > 0 Then
FWAtt.Delete
End If
Next
End If
Next
End Sub

The only ways to do it are to extract the attachments to a temporary location and then re-add them to the message, or to rename the attachment items (or copies of them), before adding them in the first place.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Thanks for your reply! Yup I got it to work in my code above - essentially I just needed %20 replacing with a space. The only issue with the code now is that it has to forward the email/create a new version of the draft, instead of doing it to the existing one. Any thoughts on the code above? Thanks a lot!

Any ideas anyone? Thanks

olItem is the original message, so why create the new one olForward? Re-attach back to olItem.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

I've tried it, but for some reason it seems to delete more than it should and then doesn't include all of the newly-renamed files. I'm missing something If you have any ideas on the code, I'd appreciate them very much! Thanks Have a good weekend