VBA里，当前邮件怎么表示？

Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox).Folders("myemail")
Set myItem = myFolder.Items(2)
EmailBody = myItem.Body
msgbox EmailBody
这一段是读取myemail文件夹下的第2封邮件的内容

我现在想做成这样的，当我打开一封邮件时，点击运行这个VBA程序，就执行 EmailBody = 当前邮件.Body
请问这个”当前邮件“怎么表示？

以下代码可以显示当前打开邮件的主题.

Sub currentmailsubject()
    Dim msg As Outlook.MailItem
    Dim insp As Outlook.Inspector

    Set insp = Application.ActiveInspector
    MsgBox insp.CurrentItem.Subject
    Set insp = Nothing
    Set msg = Nothing
End Sub

好东西 啊搜索