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
请问这个”当前邮件“怎么表示？

aaaaabbbbb

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

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

sszkaka

好东西 啊搜索

xzqzgr

学习了，谢谢。

硅谷少年

aaaaabbbbb 发表于 2009-3-25 23:44
以下代码可以显示当前打开邮件的主题.

Sub currentmailsubject()

这个要双击打开这封邮件在独立窗口下才行。对于office2016里我常用的预览邮件模式，不行的。我选中邮件里一段文字，不知道如何获取这段文字内容。