StatusReport 方法

将任务当前状态报告发送给所有“抄送”收件人（这些收件人由 StatusUpdateRecipients 属性返回）。返回代表状态报告的对象。

expression    必选。该表达式返回 TaskItem 对象。

示例

本 Visual Basic for Applications 示例使用 StatusReport 方法报告当前打开任务的状态。

Set myOlApp = CreateObject("Outlook.Application")
Set myinspector = myOlApp.ActiveInspector
If Not TypeName(myinspector) = "Nothing" Then
  If TypeName(myinspector.CurrentItem) = "TaskItem" Then
    Set myTask = myinspector.CurrentItem
    Set myReport = myTask.StatusReport
    myReport.Send
  End If
MsgBox "There is no task item currently open"
End If
MsgBox "There is no Inspector currently open"

如果使用 VBScript，则不必创建 Application 对象。本示例说明如何使用 VBScript 执行相同任务。

Set myinspector = Application.ActiveInspector
If Not TypeName(myinspector) = "Nothing" Then
  If TypeName(myinspector.CurrentItem) = "TaskItem" Then
    Set myTask = myinspector.CurrentItem
    Set myReport = myTask.StatusReport
    myReport.Send
  End If
MsgBox "There is no task item currently open"
End If
MsgBox "There is no Inspector currently open"