Question

我在下面的脚本中收到以下错误，我正在尝试设置一个脚本，该脚本将在outlook规则激活时运行（即在消息到达后应用此规则;来自person@email.com;运行一个脚本）并将任何附件保存到特定文件夹。

运行时错误'91'对象变量未设置块变量

该错误反对'For Each objAtt In itm.Attachments'

Public Sub script()
    Dim saveFolder As String
    Dim objAtt As Outlook.attachment
    Dim itm As Outlook.MailItem
    Dim dateFormat

    dateFormat = Format(SentOn, "yymmdd ")    
    saveFolder = "C:\temp"
    For Each objAtt In itm.Attachments
        If objAtt.Size > 5200 Then
            objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName
            Set objAtt = Nothing
        End If
    Next
End Sub

Answer 1

您没有初始化 itm 对象。尝试按以下方式将其定义为方法的参数：

 Public Sub script(itm as Outlook.MailItem)

自动保存Outlook附件 - 错误

1 个答案: