如何当新邮件到达时，弹出消息框，显示发件人和标题

zhzhun

我想写个宏，当新邮件到达时，弹出消息框，显示发件人和标题，取代原有的新邮件到达时的消息框。 怎么都试不出来，望高手指点。

zhzhun

系统提示新邮件到达很简单，如果能加上发件人，这样不用每次都到收件箱去看，不重要的就可以不看，岂不是很方便？ 似乎觉得应该可以做到，可就是没做出来。

zhzhun

做好了，还凑合能用，跟大家分享，看你们能不能用，是否还能再改进？ Private Sub Application_NewMail() Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) Set myitem = myFolder.Items(1) resp = MsgBox("来自 " & myitem.SenderName & " 的新邮件。是否立即阅读？", vbYesNo + vbQuestion + vbDefaultButton1) If resp = 6 Then myitem.Display End Sub

fenga6

以下是引用zhzhun在2003-11-6 10:37:00的发言： 做好了，还凑合能用，跟大家分享，看你们能不能用，是否还能再改进？ Private Sub Application_NewMail() Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) Set myitem = myFolder.Items(1) resp = MsgBox("来自 " & myitem.SenderName & " 的新邮件。是否立即阅读？", vbYesNo + vbQuestion + vbDefaultButton1) If resp = 6 Then myitem.Display End Sub 告诉我怎么用呀。这个代码应该放到那里 具体怎么做呢。。。 谢谢 以下是引用 winak在2003-11-6 10:37:00的发言： 每隔几分钟扫描用户的邮箱，如果收件箱中的新邮件数>=1，就提示用户，但是没有想到实时提醒的办法

这个在那里设置呢 两个中我一个也不会啊 都教教把

zhzhun

Alt + F11打开Visual Baisc编辑窗口，在左列工程窗口里，双击ThisOutlookSection，在右边的代码窗口里，把这段代码贴上就好了。 在Outlook里也有类似的提醒功能，只是不能显示发件人。如果你用上面的函数代码，最好把Outlook里的这个提醒功能去掉，免得你被提醒两次。 Outlook的菜单里“工具” -> “选项” -> “首选参数”签里“电子邮件选项” -> 去掉“新邮件到达时给出通知”

fenga6

谢谢zhzhun 不过我在2003里边没有找到你说的那个设置。。 不过2003已经可以现实发件人和主题显示的。。在设置规则里边可以看到

iceboy

人物名字怎么不能变啊,全都是一个人. iceboy hai.pan@mic.com.tw

seahart

OUTLOOK　2003已经解决这问题啦！

lgcmeli

不错。

saman

下面的方法不错，谢谢！

做好了，还凑合能用，跟大家分享，看你们能不能用，是否还能再改进？

Private Sub Application_NewMail()

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)

Set myitem = myFolder.Items(1)

resp = MsgBox("来自 " & myitem.SenderName & " 的新邮件。是否立即阅读？", vbYesNo + vbQuestion + vbDefaultButton1)
If resp = 6 Then myitem.Display

End Sub