Save Mail attachment to folder with month in filename?

[NessPJ]

Hi,

I tried to make/search a code that could help me quickly save an attachment to a fixed folder that also adds the 2 digits of the month to the filename.

When i run the routine shown below nothing is happening. Am i doing something wrong?

Sub SaveAttachmentWithDate()

Dim date_now As Date
Dim dateStamp As String
Dim LRandomNumber As Integer

For i = lngCount To 1 Step -1

    'Set the Folder to save the Attachment:
    strFolderpath = "C:\Temp\Attachments\"
    
    ' Get the file name.
    strFile = objAttachments.Item(i).FileName
    
    'LRandomNumber = Int((300 - 200 + 1) * Rnd + 200)       Not used for now
    
    date_obj = objMsg.ReceivedTime  ' Now()
    dateStamp = Format(date_obj, "mm")

     ' Combine with the path to the folder.
    strFile = strFolderpath & strFile & dateStamp

    ' Save the attachment as a file.
    objAttachments.Item(i).SaveAsFile strFile

Next i

End Sub

 

[shinigamilight]

For i = lngCount To 1 Step -1

You haven't given any value to lngcount

 

[NessPJ]

Oops... my bad thats a professional google searching mistake.

Do you know which function is used to count the number of attachments in a mail?

 

[NessPJ]

I made an adaptation to this code but its still not working. I am using the Attachments property now.
Am i still doing something wrong?

Sub SaveAttachmentWithDate()

Dim myattachments As Outlook.Attachments
Dim MyAttachment As Attachment

Dim date_now As Date
Dim dateStamp As String
Dim LRandomNumber As Integer
 
        Set myattachments = OutMail.Attachments
 
        For Each MyAttachment In myattachments
        
        If MyAttachment > 0 Then     

                'Set the Folder to save the Attachment:
                strFolderpath = "C:\Temp\Attachments\"
    
                'Get the file name.
                strFile = objAttachments.Item(i).FileName
    
                'LRandomNumber = Int((300 - 200 + 1) * Rnd + 200)       Not used for now
    
                date_obj = objMsg.ReceivedTime  ' Now()
                dateStamp = Format(date_obj, "yyyymm")

                'Combine with the path to the folder.
                strFile = strFolderpath & strFile & dateStamp

                ' Save the attachment as a file.
                objAttachments.Item(i).SaveAsFile strFile
               
        Else:
            Exit Sub
            
        End If
    
        Next MyAttachment

End Sub