Outlook VBA 显示选中邮件的标题

代码如下，运行之后能够显示当前选中邮件的标题.最主要的演示选中邮件的方法。

Sub zz()

Dim objItem As Object

If ActiveExplorer.Selection.Count = 0 Then Exit Sub

For Each objItem In ActiveExplorer.Selection
MsgBox objItem.Subject, vbOKOnly + vbInformation, “DONE!”
Next

Set objItem = Nothing

End Sub