ReplyWithChanges 方法

       

向已发送候审的工作簿的作者发送电子邮件消息,通知审阅者已经完成工作簿的审阅。

expression.ReplyWithChanges(ShowMessage)

expression   必需。该表达式返回“应用于”列表中的对象之一。

ShowMessage   Variant 类型,可选。如果为 False ,则不显示该消息。如果为 True,则显示该消息。

说明

使用 SendForReview 方法可启动工作簿的协作审阅。如果在工作簿上执行 ReplyWithChanges 方法,而该工作簿不是协作审阅循环的一部分,则用户将收到一个错误。

示例

本示例自动向审阅工作簿的作者发送一个通知,告知审阅者已完成对该工作簿的审阅,而不是先显示给审阅者的电子邮件消息。本示例假定活动工作簿是协作审阅循环的一部分。

Sub ReplyMsg()

    ActiveWorkbook.ReplyWithChanges ShowMessage:=False

End Sub