Reset 方法

       

重新设置传送名单,从而可用同一名单初始化一个新的传送过程(使用同一收件人列表和收件人地址信息)。使用本方法之前,该传送过程必须已完成。否则本方法将导致错误。

expression.Reset

expression   必需。该表达式返回一个 RoutingSlip 对象。

示例

如果工作簿“Book1.xls”的传送过程已完成,本示例将重新设置传送名单。

With Workbooks("BOOK1.XLS").RoutingSlip
    If .Status = xlRoutingComplete Then
        .Reset
    Else
        MsgBox "Cannot reset routing; not yet complete"
    End If
End With