关于Outlook新邮件提醒

sagalinyun

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


这个代码测试，可以使用，但有一个问题就是它只能提醒邮箱中的第封邮件，而不是提醒最新一封邮件，请大信帮忙修改一下。

闻启学

事件用错了 Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)  使用这个吧

sagalinyun

闻启学 发表于 2022-9-8 14:05
事件用错了 Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)  使用这个吧

测试了，结果还是一样的，只会提示邮件中第一封邮件，可以正常打开，浏览。
我们用的是exchange邮箱。outlook用的是2010版。

sagalinyun

闻启学 发表于 2022-9-8 14:05
事件用错了 Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)  使用这个吧

Set myolapp = CreateObject("outlook.application")


Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
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

是这样写吗，我是拿别人的过来用，不会写OUTLOOK的宏。
也没找到相关教程学习。

sagalinyun

闻启学 发表于 2022-9-8 14:05
事件用错了 Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)  使用这个吧

再请教一个问题，我在outlook中设置了邮件规则。规则较多，建了很多文件夹，但更换电脑后，把数据文件放到新电脑上后，配置完毕就发现outlook总会在执行规则后在收件箱和收件箱规则文件夹中收到重复的邮件，而且是规则邮箱先收到，过一会儿，收件箱会再收到一封重复的邮件。
我把所有规则删除重建，结果还是一样的。
我把配置文件删除，重新创建也是一样的。
我不建规则，邮件在收件箱，建了规则就同时有新邮件。
另外，我如果把邮件规则定义为客户端规则，那么它不会有重复邮件，而且规则正常，但没有定义为客户端规则就是同样结果。