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

 

outlookvba1

发表评论

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