保存特定附件文件类型

Question

我有VBA代码自动下载（保存）收到的邮件附件。

我需要制定条件才能下载（保存）.xlsx或.jpg个文件。

 Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
 Dim oAttachment As Outlook.Attachment
 Dim sSaveFolder As String
 sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
 For Each oAttachment In MItem.Attachments
     oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
 Next
 End Sub

Answer 1

Simply use Select Case Statement

Dim FileType As String

For Each oAttachment In MItem.Attachments
    FileType = LCase$(Right$(oAttachment.FileName, 4)) ' Last 4 
          Select Case FileType
           Case "xlsx", ".jpg"
          oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName 
        End Select
    Next