Fatal编程技术网
  • excel/
  • 无法从Outlook打开Excel文件

无法从Outlook打开Excel文件

excel vba outlook

无法从Outlook打开Excel文件,excel,vba,outlook,Excel,Vba,Outlook,如果我收到主题行为“运行CIRM Dashboard”的电子邮件，我可以打开Excel文件 当我收到主题行为“运行仪表板”的电子邮件时，Excel文件不会打开。没有错误 我需要根据Outlook主题行打开更多文件 查看您的If构造。。。适当的缩进将有助于可视化实际发生的情况 Private Sub Items_ItemAdd(ByVal Item As Object) If TypeOf Item Is Outlook.MailItem Then If InStr(

如果我收到主题行为“运行CIRM Dashboard”的电子邮件，我可以打开Excel文件

当我收到主题行为“运行仪表板”的电子邮件时，Excel文件不会打开。没有错误

我需要根据Outlook主题行打开更多文件

查看您的
If
构造。。。适当的缩进将有助于可视化实际发生的情况

Private Sub Items_ItemAdd(ByVal Item As Object)

    If TypeOf Item Is Outlook.MailItem Then

        If InStr(Item.Subject, "Run CIRM Dashboard") Then

            Call CIRMDashboard

            If InStr(Item.Subject, "Run Dashboard") Then

                Call PendingForRefund

            End If

        End If

    End If   

End Sub
“Run Dashboard”
If
在“Run CIRM”Dashboard”
If
内部运行，因此您永远不会遇到这种情况（除非收到主题为“Run CIRM Dashboard，然后运行Dashboard”或类似内容的邮件）

您可能希望将第二个
If
替换为
Else If
，使其达到相同的级别

请在
呼叫CIRMDashboard后尝试Else
Private Sub Items_ItemAdd(ByVal Item As Object)

    If TypeOf Item Is Outlook.MailItem Then

        If InStr(Item.Subject, "Run CIRM Dashboard") Then

            Call CIRMDashboard

            If InStr(Item.Subject, "Run Dashboard") Then

                Call PendingForRefund

            End If

        End If

    End If   

End Sub