如何解决VB.Net循环Outlook中的所有文件夹并获取所有未读的电子邮件
任何人都可以使用工作代码来获取Outlook中所有文件夹中所有未读的电子邮件吗?
我的代码只能从主收件箱文件夹中获取...
Dim oApp As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application
Dim oNS As Microsoft.Office.Interop.Outlook.NameSpace = oApp.GetNamespace("MAPI")
Dim oInbox As Microsoft.Office.Interop.Outlook.MAPIFolder = oNS.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderInbox)
Dim oItems As Microsoft.Office.Interop.Outlook.Items = oInbox.Items
Dim oMsg As Microsoft.Office.Interop.Outlook.MailItem
Dim i As Integer
oNS.Logon("YourValidProfile",Missing.Value,False,True) ' TODO:
oItems = oItems.Restrict("[Unread] = true")
For i = 1 To oItems.Count
'loop
Next
' Clean up.
oApp = Nothing
oNS = Nothing
oItems = Nothing
oMsg = Nothing
Thx:-)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。