在 application_reminder 下保存的 Outlook vba 代码并不总是有效

Question

我设计了一个简单的解决方案，让五人团队自动获知团队的日常关键任务是否完成。我为他们每个人创建了一个单独的任务，并将任务的提醒设置为与任务的时间相同（0 分钟前）。结构是这样的；任务所有者完成任务，截取屏幕截图（作为证据。这是必须的）并使用预定义的文件名将其保存在特定文件夹中 (file.jpg)。
弹出相关outlook任务提示，运行代码查找该文件，如果找到该文件，什么都不做；如果该文件不存在，则向团队发送一封电子邮件，说明任务未完成。代码保存在outlook的application_reminder下，我还有几个函数保存在模块下。在前一个或两个实例的任务提醒触发后，代码运行良好，但随后由于某种原因停止工作。弹出提醒，但代码没有运行.

知道为什么代码不起作用吗？有没有修复什么的
关于这个问题？
你知道的任何其他解决方案，做我想做的。
我可以将其转换为 vsto 项目吗？这会不会更有效解决方案？（到目前为止，我在 visual studio 中什么也没做，但我想开始使用它）

我在下面粘贴代码仅供参考。正如我所说，代码适用于最初的情况。但欢迎提出改进建议。

Private Sub Application_Reminder(ByVal Item As Object)

    Dim objPeriodicalMail As MailItem
    If Item.Categories = "Screenshot" Then
        Call Screenshot(Item.Subject)
    End If

End Sub
*************************
Function reppdate() As Date  'returns previous working date
Dim yest As Date
Dim tatiller As Variant
tatiller = Array("19.05.2020", "06.05.2020", "05.05.2020", "04.05.2020", "01.05.2020", "01.01.2020")  'local holidays
j = -1

For i = 0 To UBound(tatiller)
    yest = Format(DateAdd("w", j, Now()), "dd.mm.yyyy")
    If yest = tatiller(i) Then
            If Weekday(yest) = 2 Then
                j = j - 3
            Else: j = j - 1
            End If
    Else
        If j < -1 Then
        Exit For
        Else: End If
    End If
Next i
reppdate = yest
End Function
**************************************
Sub Screenshot(dosya As String)
yestt = reppdate()
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
vamsg = "Dikkat, " & dosya & ".jpg bulunamadi, rapor gönderilmemis mi!"
dosyaadi1 = "c:folder\" & Format(yestt, "yyyymm") & "\Daily\" & Format(yestt, "dd") & "\" & dosya & ".jpg"
baglanti = "<a href=" & dosyaadi1 & ">" & vamsg & "</a>"

            If FileFolderExists(dosyaadi1) = False Then
            msg = vamsg
            Else
            End If

      objMsg.To = "vvvvv.com"
      objMsg.Subject = msg
      objMsg.Body = msg & " - " & dosyaadi1
      objMsg.Send

      Set objMsg = Nothing

End Sub

Answer 1

Categories 属性值可能包括分配的另一个字符串类别。因此，我建议改为检查具有特定值的子字符串。

Contains = InStr(strBaseString, strSearchTerm)

Categories 是已分配给 Outlook 项目的带分隔符的类别名称字符串。此属性使用 Windows 注册表中 HKEY_CURRENT_USER\Control Panel\International 下的值名称 sList 中指定的字符作为多个类别的分隔符。要将类别名称字符串转换为类别名称数组，请使用 Microsoft Visual Basic 函数 Split.

我建议运行调试器下的代码，看看它是如何工作的以及它在哪里失败。此外，您还可以添加错误处理例程，请参阅 Error Handling in VBA。
没有直接迁移。基本上，您必须创建一个新的加载项项目并在其中添加您的事件处理程序。然后，您可以将 VBA 事件处理程序的代码模式化为加载项的代码。有关详细信息，请参阅 https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2007/aa830702(v=office.12)?redirectedfrom=MSDN and Create VSTO Add-ins for Office by using Visual Studio。

在 application_reminder 下保存的 Outlook vba 代码并不总是有效

Outlook vba codes saved under application_reminder does not always work

outlook

vba

vsto

office-addins

outlook-addin