Outlook VBA教程:StatusReport方法

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

expression.StatusReport

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

VBA示例

本 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"

上页:Outlook VBA教程:StartTimer方法 下页:Outlook VBA教程:Stop方法

Outlook VBA教程:StatusReport方法:相关链接

Outlook VBA教程:Stop方法 Outlook VBA教程:StopTimer方法
Outlook VBA教程:Update方法 Outlook VBA教程:Action对象
Outlook VBA教程:Actions对象 Outlook VBA教程:AddressEntries对象
Outlook VBA教程:AddressEntry对象 Outlook VBA教程:AddressList对象
Outlook VBA教程:AddressLists对象 Outlook VBA教程:Application对象
Outlook VBA教程:AppointmentItem对象 Outlook VBA教程:Attachment对象
Outlook VBA教程:Attachments对象 Outlook VBA教程:ContactItem对象
Outlook VBA教程:DistListItem对象 Outlook VBA教程:DocumentItem对象
Outlook VBA教程:Exception对象 Outlook VBA教程:Exceptions对象
Outlook VBA教程:Explorer对象 Outlook VBA教程:Explorers对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号