outlook vba脚本停止工作

我在所有提交的邮件中都执行了一个排序脚本

该帐户由5台计算机共享，并且所有计算机都在运行脚本

出于某种原因，脚本可以正常工作好几次，但有时它会停止工作，我在脚本中设置了一个调试点，相应地，脚本不会被执行。规则没有显示任何错误

Sub sortingP8(Item As Outlook.MailItem)
    Dim olkAtt As Outlook.Attachment
    'Check each attachment
    Dim totalSize As Double
    Dim containsZip As Boolean
    Dim wrongExt As Boolean
    totalSize = 0
    containsZip = False
    wrongExt = False
    somethingWrong = False
    Set ns = Application.GetNamespace("MAPI")
    Set nonIngFolder = ns.Folders("Pqweeeq@asdasd.es").Folders("Non-ingestible Items")
    Set ingFolder = ns.Folders("Pqweeeq@asdasd.es").Folders("Ingestible Items")
    Set zipFolder = ns.Folders("Pqweeeq@asdasd.es").Folders("ZIP files")

    For Each olkAtt In Item.Attachments
        Dim extension As String
        extension = Right(LCase(olkAtt.FileName), 4)
        'If the attachment's file name ends with .zip
        totalSize = totalSize + olkAtt.Size

        If extension <> ".ppt" And extension <> ".doc" And extension <> ".pdf" And extension <> ".jpg" And extension <> ".zip" Then
            wrongExt = True
        End If
        If extension = ".zip" Then
            containsZip = True

        End If
    Next
    If (wrongExt = True Or totalSize > 10000000) Then
        Item.Move nonIngFolder
        somethingWrong = True
    End If
     If (containsZip = True And somethingWrong = False) Then
        Item.Move zipFolder
        somethingWrong = True
    End If
     If (somethingWrong = False) Then
        Item.Move ingFolder
    End If
    Set olkAtt = Nothing
End Sub

子排序P8（项目作为Outlook.MailItem）
将olkAtt设置为Outlook。附件
'检查每个附件
总尺寸为双倍
Dim containsZip作为布尔值
将文本设置为布尔值
totalSize=0
containsZip=False
错误文本=错误
有什么不对劲吗
Set ns=Application.GetNamespace（“MAPI”）
设置nonIngFolder=ns.Folders（“Pqweeeq@asdasd.es）文件夹（“不可摄取的项目”）
设置ingFolder=ns.文件夹（“Pqweeeq@asdasd.es）文件夹（“可摄取项目”）
设置zipFolder=ns.Folders（“Pqweeeq@asdasd.es“”。文件夹（“ZIP文件”）
对于项目中的每个olkAtt。附件
作为字符串的Dim扩展名
扩展名=右（LCase（olkAtt.FileName），4）
'如果附件的文件名以.zip结尾
totalSize=totalSize+olkAtt.Size
如果扩展名为.ppt，扩展名为.doc，扩展名为.pdf，扩展名为.jpg，扩展名为.zip，那么
错误文本=True
如果结束
如果extension=“.zip”，则
containsZip=True
如果结束
下一个
如果（错误文本=真或总大小>10000000），则
项目。移动非文件夹
有什么不对劲吗
如果结束
如果（containsZip=True，somethingError=False），那么
项目。移动zipFolder
有什么不对劲吗
如果结束
如果（某些错误=错误），那么
项目。移动文件夹
如果结束
设置olkAtt=Nothing
端接头

---

你知道每台计算机上都会发生这种情况吗？

你有机会在Outlook中查看信任中心的设置吗？是否允许运行Outlook宏

尝试对传入的电子邮件手动运行VBA sub，并以循序渐进的方式调试代码，遍历每一行代码，看看那里发生了什么

---

最后，您可能会发现这篇文章很有帮助

您是否有机会在Outlook中查看信任中心设置？是否允许运行Outlook宏

尝试对传入的电子邮件手动运行VBA sub，并以循序渐进的方式调试代码，遍历每一行代码，看看那里发生了什么

---

最后，您可能会发现这篇文章很有帮助

如果计算机处于单独状态，则会话断开超时可能是罪魁祸首。

如果计算机处于单独状态，则会话断开超时可能是罪魁祸首。

问题是，有时它工作正常，每次收到邮件时都会显示调试模式（因为我设置了调试点）1-2小时后，它就不再工作了。没有调试模式，并且带有附件的邮件没有移动到正确的文件夹。我将宏设置为“数字签名宏的通知，禁用所有其他宏”，这可能是一个问题。在任何情况下，我都无法更改它们，因为按钮显示为禁用状态。如果这是一个问题，第一次是如何运作良好的？宏观设定的问题？如果这就是它第一次工作正常的原因？问题是，有时它工作正常，并且每次收到邮件时，调试模式都会在1-2小时后出现（因为我设置了调试点），它不再工作。没有调试模式，并且带有附件的邮件没有移动到正确的文件夹。我将宏设置为“数字签名宏的通知，禁用所有其他宏”，这可能是一个问题。在任何情况下，我都无法更改它们，因为按钮显示为禁用状态。如果这是一个问题，第一次是如何运作良好的？宏观设定的问题？如果这就是它第一次工作正常的原因？问题是，有时它工作正常，并且每次收到邮件时，调试模式都会在1-2小时后出现（因为我设置了调试点），它不再工作。没有调试模式，并且带有附件的邮件没有移动到正确的文件夹。我将宏设置为“数字签名宏的通知，禁用所有其他宏”，这可能是一个问题。在任何情况下，我都无法更改它们，因为按钮显示为禁用状态。如果这是一个问题，第一次是如何运作良好的？宏观设定的问题？如果这就是它第一次运行良好的原因？我有一个类似的问题-你发现了不同的东西吗？我有一个类似的问题-你发现了不同的东西吗？我有一个类似的问题-你发现了不同的东西吗？