How to save Outlook attachment in a drive with a new name and overwrite if it already exists?
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim obj As Outlook.Attachment
Dim saveFolder As String
saveFolder = &quot;D:\EmailAttachments&quot;
     For Each obj In itm.Attachments
          obj.SaveAsFile saveFolder &amp; &quot;\&quot; &amp; obj.DisplayName
          Set obj = Nothing
     Next
End Sub