Outlook 2016 和 2019 中的 VBA 代码工作方式不同

Question

我有两个电脑设置：

1. Win10 Pro Build 1909 和 Outlook 2019 for Business
2. Win10 Pro Build 2004 和 Outlook 2016 for Business

（一切原创）

我的问题是，为什么相同的 VBA 代码在 2019 年有效，而在 Outlook 2016 中无效。问题出在 Outlook 或不同版本的构建 MS Win10 上？

这部分代码不起作用：

ThisOutlookSession

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

     Dim objMailPuvodni As Outlook.MailItem
     Dim CurrentItem As Object
     Dim lngOdpoved As Long


     Select Case TypeName(Application.ActiveWindow)
     Case "Inspector"
        
        Set objMailPuvodni = Application.ActiveInspector.CurrentItem
    Case "Explorer"
        
        If Application.ActiveExplorer.Selection.Item(1).Class = _
           OlObjectClass.olMail Then
            
            Set objMailPuvodni = _
            Application.ActiveExplorer.Selection.Item(1)
        End If
    End Select


    lngOdpoved = MsgBox("text", _
                    vbQuestion + vbYesNoCancel + vbDefaultButton2, _
                    "Send")

    Select Case lngOdpoved
        Case vbCancel
            Cancel = True
        Case vbNo
        
        Cancel = False
            Case vbYes
        
        Call SifrovatZip(objMailPuvodni)
        
        Cancel = True
    End Select


    Set objMailPuvodni = Nothing

End Sub

更新 @nilton 回答有效

Answer 1

@nilton's answer in the comments 工作：

这通常是由于在升级时忘记允许宏 Enable or disable macros in Office files。