Outlook VBA 显示选中邮件的标题

阅读次数: 1,804

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

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

发表评论

电子邮件地址不会被公开。 必填项已用*标注