使用VBA阅读新的Outlook电子邮件？

Question

我有下面的代码，告诉新消息何时到达！

专用子应用程序_NewMail（）消息框“新邮件已到达”结束Sub

我如何阅读这封邮件的正文和主题？有关于outlook编程的好教程吗？

我找到了msdn本教程很有用，但只是一个概述。

Answer 1

你需要这样的东西：

私人WithEvents myOlItems作为Outlook。项目专用子应用程序_Startup（）Dim olApp作为Outlook。应用程序Dim objNS作为Outlook。命名空间设置olApp=Outlook。应用程序设置objNS=olApp。GetNamespace（“MAPI”）设置myOlItems=objNS。GetDefaultFolder（olFolderInbox）。项目结束Sub私有子myOlItems_ItemAdd（ByVal项作为对象）出错时转到错误处理程序将消息显示为Outlook。邮件项目如果TypeName（item）=“MailItem”那么设置消息=项消息框消息。主题消息框消息。车身End If（结束条件）程序退出：退出Sub错误处理程序：消息框错误。数字&“-”&错误。描述恢复程序退出结束Sub

将代码粘贴到ThisOutlookSession并重新启动Outlook。当一条消息进入您默认的本地收件箱时，您会看到带有主题和正文的弹出窗口。