问在Outlook VBA声明中撤回邮件

EN

Option Explicit
Sub Recall()
  Dim SendItem As Object
  Dim olItem As Outlook.MailItem
  Dim olInsp As Outlook.Inspector

  '// Selected item in Sent Items folder
  Set SendItem = ActiveExplorer.Selection.Item(1)

  If TypeName(SendItem) = "MailItem" Then
    Set olItem = SendItem
    Set olInsp = olItem.GetInspector
    '// Execute Recall command button
    With olInsp
      .Display
      .CommandBars.FindControl(, 2511).Execute
      .Close olDiscard
    End With
  End If
End Sub

Private Sub Display_TypeOf()

Dim item As Object
Dim msgClass As String

For Each item In ActiveExplorer.Selection

    msgClass = vbCr & vbCr & "Class Is " & item.Class

    If TypeOf item Is mailItem Then
        MsgBox "Subject: " & item.Subject & vbCr & vbCr & "TypeOf Item is mailItem." & msgClass

    ElseIf TypeOf item Is ReportItem Then
        MsgBox "Subject: " & item.Subject & vbCr & vbCr & "TypeOf Item is ReportItem" & msgClass

    ElseIf TypeOf item Is PostItem Then
        MsgBox "Subject: " & item.Subject & vbCr & vbCr & "TypeOf Item is PostItem" & msgClass

    ElseIf TypeOf item Is MeetingItem Then
        MsgBox "Subject: " & item.Subject & vbCr & vbCr & "TypeOf Item is MeetingItem" & msgClass

    ElseIf TypeOf item Is AppointmentItem Then
        MsgBox "Subject: " & item.Subject & vbCr & vbCr & "TypeOf Item is AppointmentItem" & msgClass

    Else
        MsgBox "Subject: " & item.Subject & vbCr & vbCr & "TypeOf Item is not listed in this code." & msgClass

    End If

Next

End Sub