Status
Not open for further replies.

dyasmonroe

New Member
Outlook version
Outlook 2013 64 bit
Email Account
Outlook.com (as MS Exchange)
I have the following code that autosaves the attachments from any incoming mail and renames the attachment with the date and time so as not to overwrite.

Code:
Public Sub AutoSaveAttachment(itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat
    saveFolder = "C:\temp"
    dateFormat = Format(Now, "mm.dd.yyyy (Hh.Nn)")
        For Each objAtt In itm.Attachments
            If InStr(objAtt.DisplayName, ".pdf") Then
            objAtt.SaveAsFile saveFolder & "\" & "Attch " & dateFormat & "." & "pdf"
        End If
      Set objAtt = Nothing
    Next
End Sub

I want to add the senders name before the date/time so I tried this which doesn't work. Run-time error.

Code:
'Sub AttachmentDownloader(itm As Outlook.MailItem)

'Dim objAtt As Outlook.Attachment
'Dim saveFolder As String
'Dim sndrName As String
'Dim dateFormat
   ' dateFormat = Format(Now, "mmddyyyy_(Hh.Nn)")
    'sndrName = objAtt.SenderName & "_"
    'saveFolder = "C:\temp"
    
     'For Each objAtt In itm.Attachments
           ' If InStr(objAtt.DisplayName, ".pdf") _
           ' Or InStr(objAtt.DisplayName, ".xlsx") _
           ' Or InStr(objAtt.DisplayName, ".xlsm") _
           ' Or InStr(objAtt.DisplayName, ".doc") _
          '  Or InStr(objAtt.DisplayName, ".docx") Then
         objAtt.SaveAsFile saveFolder & "\" & "sndrName" & dateFormat & objAtt.DisplayName
          
    'End If         
       'Set objAtt = Nothing
    'Next
'End Sub

Where am I going wrong?
 
objAtt does not have a SenderName property. Use itm instead.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
S Autosave attachments error using Len Outlook VBA and Custom Forms 2
C appending 'Date Modified' to autosave script Outlook VBA and Custom Forms 19
C Outlook 2007 Autosave feature and Draft folder Using Outlook 2
J Outlook 2010 messages freeze in outbox, do not autosave, then disappear after Outlook locks up Using Outlook 7
M How to AutoSave Attachments that meet a criteria to a folder on a local drive Outlook VBA and Custom Forms 3
S Paperclip icon shows without attachment in email under Sent folder Using Outlook 0
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
C Code to move mail with certain attachment name? Does Not work Outlook VBA and Custom Forms 3
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
Owl Export Outlook PDF Attachment as JPG? Outlook VBA and Custom Forms 4
Timmon Remove just one attachment before AutoForward Outlook VBA and Custom Forms 0
P File Picker for attachment Outlook VBA and Custom Forms 0
D Forwarding email based on the attachment file type and specific text found on the attachment file name Outlook VBA and Custom Forms 1
N File Picker for attachment Outlook VBA and Custom Forms 2
G print attachment straight away; working script edit not working Outlook VBA and Custom Forms 0
G Save attachment run a script rule Outlook VBA and Custom Forms 0
M Autoforward just attachment OR just body. Outlook VBA and Custom Forms 0
D Create new email from the received Email Body with attachment Outlook VBA and Custom Forms 10
T vba extract data from msg file as attachment file of mail message Outlook VBA and Custom Forms 1
K Outlook Office 365 VBA download attachment Outlook VBA and Custom Forms 2
P Sending email from outlook IMAP to GMAIL where embedded images are added as attachment Using Outlook 1
S save attachment with date & time mentioned inside the file Outlook VBA and Custom Forms 0
O VBA Outlook Message Attachment - Array Index Out of Bounds Outlook VBA and Custom Forms 0
A Edit attachment Save and Reply Outlook VBA and Custom Forms 0
D Move Email with Attachment to Folder Outlook VBA and Custom Forms 3
B Outlook 2010 Opening Mail Attachment Using Outlook 2
A Warning When Opening attachment Using Outlook 7
R Limiting length of saved attachment in VBA Outlook VBA and Custom Forms 2
F Script for zip file attachment Outlook VBA and Custom Forms 1
P Outlook 2013 Word Share doc as Email Attachment now brings up Eudora. Using Outlook 1
L Attachment saving and tracking - PLEASE help! Outlook VBA and Custom Forms 5
H Outlook 2003 find by "has attachment" Using Outlook 1
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
J Add an Attachment Using an Array and Match first 17 Letters to Matching Template .oft to Send eMail Outlook VBA and Custom Forms 2
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5
geofferyh How to change the Attachment File Name? Outlook VBA and Custom Forms 1
geofferyh Outlook 2010 How to Copy Outlook Attachment to a Specific Folder? Outlook VBA and Custom Forms 3
D Body text of email disappears when I scan an attachment from printer to email Using Outlook 1
J Help Please!!! Outlook 2016 - VBA Macro for replying with attachment in meeting invite Outlook VBA and Custom Forms 9
W Save Outlook attachment in network folder and rename to current date and time Outlook VBA and Custom Forms 18
N Macro for attachment saved and combine Outlook VBA and Custom Forms 1
Andrew Quirl Open attachment, manipulate without add-on program? Outlook VBA and Custom Forms 5
V VB script code to save a specific email attachment from a given email Outlook VBA and Custom Forms 14
Commodore Attachment icon when there is no attachment Using Outlook 3
V Saving attachment from outlook in My Documents Outlook VBA and Custom Forms 14
N automatic response with an attachment based on the subject line Outlook VBA and Custom Forms 1
J Auto Forward - Include Attachment and change Subject depending on original sender Outlook VBA and Custom Forms 3
M Search for attachment filename Using Outlook 0
E Open olNoteItem Attachment Outlook VBA and Custom Forms 6
Vijay Reply all by attachment name Using Outlook 10

Similar threads

Back
Top