自动保存具有特定扩展名的附件

时间:2016-01-11 07:36:53

标签: vba outlook-vba

我正在尝试自动存档附加到电子邮件的特定文件,例如pdf或Word文件。

这就是我写的:

Dim objAtt As Outlook.Attachment>
Dim saveFolder As String
saveFolder = "I:\Folder"
For Each objAtt In itm.Attachments
    If InStr(objAtt.DisplayName, ".xlsm") Or InStr(objArr.DisplayName, ".pdf") Or InStr(objArr.DisplayName, ".docx") Then
        objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
    End If
    Set objAtt = Nothing
    Next
End Sub

我遇到了运行时错误:

'424': object required 

关于if子句。

1 个答案:

答案 0 :(得分:0)

在if子句中,您使用objArr作为.pdf和.docx的InStr函数而不是objAtt

希望你改变它们之后它应该有效。