Outlook VBA实现指定名称且.xml格式附件的保存问题

需求与问题 #

需求：筛选Outlook邮件中名称包含IE529、IE599或ZC299且扩展名为.xml的附件，保存至对应共享文件夹。
问题：修正后的代码可保存附件，但无法同时满足名称匹配和XML格式的双重筛选条件，使用AND逻辑后代码失效。

修改后的完整代码 #

Public Sub Komunikaty(MItem As Outlook.MailItem)
    
    Dim Zalacznik As Outlook.Attachment
    Dim KatalogIE529 As String
    Dim KatalogIE599 As String
    Dim KatalogZC299 As String
    
    ' 替换为实际的共享文件夹路径，确保末尾带反斜杠
    KatalogIE529 = "\\共享服务器地址\IE529存储目录\"
    KatalogIE599 = "\\共享服务器地址\IE599存储目录\"
    KatalogZC299 = "\\共享服务器地址\ZC299存储目录\"
    
    For Each Zalacznik In MItem.Attachments
        ' 先验证XML格式，再匹配名称关键词
        If LCase(Right(Zalacznik.DisplayName, 4)) = ".xml" Then
            If InStr(1, Zalacznik.DisplayName, "IE529", vbTextCompare) > 0 Then
                Zalacznik.SaveAsFile KatalogIE529 & Zalacznik.DisplayName
            ElseIf InStr(1, Zalacznik.DisplayName, "IE599", vbTextCompare) > 0 Then
                Zalacznik.SaveAsFile KatalogIE599 & Zalacznik.DisplayName
            ElseIf InStr(1, Zalacznik.DisplayName, "ZC299", vbTextCompare) > 0 Then
                Zalacznik.SaveAsFile KatalogZC299 & Zalacznik.DisplayName
            End If
        End If
    Next
End Sub

关键修改说明 #

• 双重条件校验：先通过LCase(Right(Zalacznik.DisplayName, 4)) = ".xml"过滤XML格式附件（转小写避免大小写差异导致的漏判），再在符合格式的范围内匹配名称关键词，确保只有同时满足两个条件的附件才会被保存。
• 路径规范化：共享文件夹使用\\服务器名\目录的标准格式，末尾添加反斜杠\，避免路径拼接时出现文件名错误。
• 逻辑严谨性：明确判断InStr函数返回值>0（表示找到匹配字符串），之前的代码省略该判断可能导致逻辑异常。
• 可选优化：如果需要更严谨的扩展名判断（比如处理带空格的文件名或特殊扩展名情况），可以引入FileSystemObject：

  ' 需先在VBA编辑器的「工具」->「引用」中勾选「Microsoft Scripting Runtime」
  Dim fso As New FileSystemObject
  If LCase(fso.GetExtensionName(Zalacznik.DisplayName)) = "xml" Then
      ' 后续名称匹配逻辑
  End If
  

内容的提问来源于stack exchange，提问作者DamianD