将Outlook升级到64位，VBA代码不再起作用

Question

我将Outlook应用程序从32位升级到64位，我用来保存附件的VBA代码不再运行，并且我找不出原因。我使用的是windows 10和office 365。

Public Sub Enable(itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment
Set fso = CreateObject("Scripting.FileSystemObject")

If itm.Subject = "Terminal 2 Enable Ops Logs" Then
    For Each objAtt In itm.Attachments
    FName = (objAtt.FileName)
    T2Log = "D:\Data\Enable\Ops Logs\Terminal 2\"

        If fso.FileExists(T2Log & FName) Then
        Kill T2Log & FName
        End If

    objAtt.SaveAsFile T2Log & FName
    Set objAtt = Nothing
    Next

ElseIf itm.Subject = "Terminal 3 IB Enable Ops Logs" Then
    For Each objAtt In itm.Attachments
    FName = (objAtt.FileName)
    T3IBLog = "D:\Data\Enable\Ops Logs\Terminal 3\"

        If fso.FileExists(T3IBLog & FName) Then
        Kill T3IBLog & FName
        End If

    objAtt.SaveAsFile T3IBLog & FName
    Set objAtt = Nothing
    Next
End If
End Sub

当电子邮件到达时，规则仍然运行，我没有收到任何错误消息，但文件没有保存到该位置。

Answer 1

在这种情况下，您需要检查所有外部函数声明，例如Windows API调用。Outlook对象模型在这两个平台上是相同的。