outlook vba 自动运行

cuec

用outlook VBA 写了一段代码，当符合某个发件人的时候就运行这段程序。
Public Sub saveData(Item As Outlook.MailItem)
....
End Sub
在邮件的规则下设置了当指定的人发来符合规则的邮件后，执行saveData这个脚本script。
现在问题是很多时候符合的邮件来了，却没有自动运行，有时候又很久才反应，我估计是规则上面有延迟。
想问问如何在代码上来实现自动运行，就是无论什么新邮件来都运行程序，避免从规则上来设置。

还有如何获取默认按时间排序的邮件列表的最新的一封邮件？
我现在的代码是
For n = myibox.Items.Count To myibox.Items.Count - 2 Step -1
         Set myitem = myibox.Items(n)

通过计数所有邮件的个数，从大到小来循环获取最新的邮件，有没有更好的办法？
因为我发现这样写有时候会出现循环执行的第一个邮件不是最新邮件的情况！

yjjcm321

我感觉这就是我需要的，谢谢。我尝试一下

闻启学

这个可以用事件来进行  当接收了一个新邮件 的事件
、

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 这个事件

cuec

非常感谢3楼的回答，邮件来了及时生效。

不过在获取邮件的时候又遇到了一个问题，相关代码如下
Dim myitem as MailItem
For n = myibox.Items.Count To myibox.Items.Count - 2 Step -1
         Set myitem = myibox.Items(n)  '这一句出问题了
因为邮件列表有时候掺杂有会议邀请，在赋值时出错，估计是类型不匹配，
怎样在赋值之前判断myibox.Items(n)的属性是不是邮件类型？

dsd999

cuec 发表于 2014-3-18 09:46
非常感谢3楼的回答，邮件来了及时生效。

不过在获取邮件的时候又遇到了一个问题，相关代码如下

你这段代码写在Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 事件里了？

cuec

dsd999 发表于 2014-3-23 08:58
你这段代码写在Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 事件里了？

现在是写到这个事件里面的，是要新建一个函数，然后调用？还是？

闻启学

cuec 发表于 2014-4-3 12:51
现在是写到这个事件里面的，是要新建一个函数，然后调用？还是？

联系我  QQ ：417149126

516420485

闻启学 发表于 2014-4-3 14:34
联系我  QQ ：417149126

最终代码最好写在帖子里啊  方便后人学习

ztccsj

楼主怎么把会议邀请去掉的，我现在也遇到这么个问题，问题后就调出了，我又强制让回到循环中，费劲的很。好像邮件邀请也是属于43

ztccsj

dsd999 发表于 2014-3-23 08:58
你这段代码写在Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 事件里了？

版主，是否有问题？我如何获得新到的邮件呢？能到我的最新求助帖子中详看，则不胜感激