我正在尝试自动存档附加到电子邮件的特定文件,例如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子句。
答案 0 :(得分:0)
在if子句中,您使用objArr
作为.pdf和.docx的InStr
函数而不是objAtt
。
希望你改变它们之后它应该有效。