How to save attachments with Subject and Yesterday Date using Macro in Outlook

  • This is what i have created, but i require the file to be saved with Subject and Yesterday date:

    Public Sub SaveAttachments()
    Dim objOL As Outlook.Application
    Dim objMsg As Outlook.MailItem 'Object
    Dim objAttachments As Outlook.Attachments
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim lngCount As Long
    Dim strFile As String
    Dim strFolderpath As String
    Dim strFileName As String
    Dim objSubject As String
    Dim strDeletedFiles As String
    Dim dateFormat As String
    Dim MsgSubject As String

    ' Get the path to your My Documents folder
    'strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next
    ' Instantiate an Outlook Application object.
    Set objOL = CreateObject("Outlook.Application")
    ' Get the collection of selected objects.
    Set objSelection = objOL.ActiveExplorer.Selection
    ' The attachment folder needs to exist
    ' You can change this to another folder name of your choice
    ' Set the Attachment folder.
    strFolderpath = "C:\Users\U700029\Desktop\Medstat"
    dateFormat = Format(Now - 1, " yyyy-mm-dd")
    ' Check each selected item for attachments.
    For Each objMsg In objSelection
    'Set FileName to Subject
    objSubject = objMsg.Subject
    MsgSubject = objMsg.Subject
    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count
    If lngCount > 0 Then
    ' Use a count down loop for removing items
    ' from a collection. Otherwise, the loop counter gets
    ' confused and only every other item is removed.
    For i = lngCount To 1 Step -1
    ' Get the file name.
    strFileName = objSubject
    ' Combine with the path to the Temp folder.
    strFile = MsgSubject & dateFormat & ".xlsx"
    Debug.Print strFile
    ' Save the attachment as a file.
    objAttachments.item(i).SaveAsFile strFile
    Next i
    End If
    Set objAttachments = Nothing
    Set objMsg = Nothing
    Set objSelection = Nothing
    Set objOL = Nothing
    End Sub

    Any idea would be great.

  • Re: How to save attachments with Subject and Yesterday Date using Macro in Outlook

    Oops am sorry, code is working fine, just i need to delete text "Daily Usage" from Subject line.


Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!