您是说一次只收到一个邮件，您就会得到正确的拒绝消息？ 如果将宏分成两个过程并从常规模块中调用它们，会发生什么情况？ 看来您是从工作表模块中调用它们的，这有时会不希望地影响行为。 您还可以在宏中添加一个结尾，以在没有写东西时立即提醒用户。

请参阅示例：

子按钮1002_Click（）
     首先致电Macro
     致电secondMacro

 结束子


 '这两个宏将在公共模块上
 公开子firstMacro（）
     Dim lresult as Long：lresult = Application.Run（" SAPExecutePlanningSequence"，" PS_1"）
         如果lresult = 0，则
                 MsgBox" SapExcecute计划序列失败。所有宏都停止了。"
                 结束
         万一

 结束子


 公共Sub secondMacro（）
     Dim lresult As Long：lresult = Application.Run（" SAPExecuteCommand"，" PlanDataSave"）
         如果lresult = 0，则
                 MsgBox""保存计划数据"操作失败。所有宏都停止了。"
                 结束
         万一

 结束子
 

在我看来，工作表模块中代码的位置根本没有作用。 并且也不需要2个子。 Gregor Dieckmann 清楚地解释了所需的更改。

嗨，克里斯蒂安，

只有当IResult = 1时，第一个才应评估IResult并调用PlanDataSave。对于消息，如果以编程方式调用函数，则可能不直接发送消息。 如果所有API调用都直接发送消息，可能会很烦人。 我希望程序中的处理工作包括消息处理，即，发送消息取决于程序。 因此，您可以检查AO API，例如SAPAddMessage和函数SAPListOfMessages，参见。 AO文档。

问候，

Gregor

嗨，大家好

谢谢您的回答。 我是这样解决的：

子Button10001_Click（）Dim lResult作为长Dim lResult1作为变量lResult = Application.Run（" SAPExecutePlanningSequence"，" PS_2"）lResult1 = Application.Run（" SAPListOfMessages"，" ERROR"）如果IsArray（lResult1）则如果 UBound（lResult1）> 0则lResult = Application.Run（" SAPExecutePlanningSequence"，" PS_2"）如果否则结束lResult = Application.Run（" SAPExecuteCommand"，" PlanDataSave"）如果结束则结束