向已发送候审的工作簿的作者发送电子邮件消息,通知审阅者已经完成工作簿的审阅。
expression.ReplyWithChanges(ShowMessage)
expression 必需。该表达式返回“应用于”列表中的对象之一。
ShowMessage Variant 类型,可选。如果为 False ,则不显示该消息。如果为 True,则显示该消息。
使用 SendForReview 方法可启动工作簿的协作审阅。如果在工作簿上执行 ReplyWithChanges 方法,而该工作簿不是协作审阅循环的一部分,则用户将收到一个错误。
本示例自动向审阅工作簿的作者发送一个通知,告知审阅者已完成对该工作簿的审阅,而不是先显示给审阅者的电子邮件消息。本示例假定活动工作簿是协作审阅循环的一部分。
Sub ReplyMsg()
ActiveWorkbook.ReplyWithChanges ShowMessage:=False
End Sub