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 (将#修改为@）