保存电子邮件附件的附件

Question

我正在尝试保存电子邮件中的Excel（.xlsm）文件。 我通过另一封电子邮件收到此电子邮件。

我想将所述.xlsm文件下载到共享驱动器。 查找多个在线论坛和MSDN帮助，我编写了以下代码：

当我运行这段代码时，我没有任何错误。 也不会保存任何文件。

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
    Dim objAtt As Outlook.Attachment
    Dim msgAtt As Outlook.Attachment
    Dim saveFolder As String
   ' a to i are dummy names and have been replaced with correct folder path in real code
    saveFolder = "\\a\b\c\d\e\f\g\h\i"
    For Each objAtt In itm.Attachments
        If InStr(objAtt.DisplayName, ".msg") Then
            For Each msgAtt In itm.Attachments
                If InStr(msgAtt.DisplayName, ".xlsm") Then
                    msgAtt.SaveAsFile saveFolder & "\" & msgAtt.DisplayName
                End If
            Next
        Set msgAtt = Nothing
    End If
Next
Set objAtt = Nothing
End Sub

Answer 1

我逐行运行代码时找到了解决方案。

if语句说要在附件的显示名称中查找“ .msg”和“ .xlsm”词。 经调查，显示名称不会将文件扩展名包含在显示名称中。

因此，要解决此问题，必须用文件名替换“ .msg”和“ .xlsm”。

谢谢，