在VB中用MAPIMessages和MAPISession收发电子邮件的问题

[goj2000]

在VB中用MAPIMessages和MAPISession收发电子邮件的问题
各位大侠：
我在VB中用MAPIMessages和MAPISession收发电子邮件，如何自动判断当前发件箱中是否有尚未发出的邮件？如果有，用什么方法把这些尚未发出的邮件发出。
以下代码只能实现新建邮件并发送，有没有办法不新建邮件，只发送？

MAPIMessages2.MsgIndex = -1
MAPIMessages2.RecipDisplayName = VOrigAddress '此处使用原电子邮件发方地址
MAPIMessages2.MsgNoteText = ""
MAPIMessages2.MsgSubject = "礼拜八回执-" & V原邮件标题
MAPIMessages2.SessionID = MAPISession2.SessionID
MAPIMessages2.Send

非常感谢，一定加分，决不食言。（到目前为止我所有的问题都已经结帖并加分）

[jam021]

关注,帮你顶!

[goj2000]

看来，遇到此问题的还不止我一个人。欢迎高手指教啊。

[daisy8675]

mark^^

[aijie099]

遍历发件箱。

[goj2000]

aijie099(茅庐小生)你好。
具体如何操作，能否用代码说明？