当前位置：文江博客话题详情

从 Outlook 获取收件箱

发布于 2024-11-26 15:59:45 字数 278 浏览 0 评论 0原文

我在 Outlook 2010 中配置了两个 Exchange 帐户，但是我无法找到如何访问第二个帐户的收件箱。 Session.GetDefaultFolder() 始终返回第一个。

即使枚举 Session.Accounts，找到正确的帐户并调用 Session.Account(found one).Store.GetDefaultFolder() 返回错误的收件箱（来自默认交换帐户，而不是次要）。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

倦话 2024-12-03 15:59:46

也许您早已放弃了这个问题，但这里...

我以前也遇到过同样的问题，我通过添加 Outlook 帐户管理 API 解决了它。不幸的是，这是一个面向 C++ 的 API。（我的插件已经用 C++ 开发）

此外，VBA 和 .NET 插件使用的 OOM（Outlook 对象模型）对多个帐户的支持很差（如果有的话）。通过添加交换帐户，您实际上已将多个帐户添加到您的个人资料中。

因此，您可能需要降低一个级别，使用 MAPI 和 C++，然后挂钩 Outlook 帐户管理 API。这是一项繁重的工作，但这正是我所做的，而且效果非常好。

另外，这里有一个例子：
http://www.codeproject.com/KB/IP/IOlkAccountManager.aspx

回复收藏 0 原文

秋凉 2024-12-03 15:59:46

我想这是一个旧的，但有一天可能有人需要它。
以下是迭代 Outlook 中所有“已发送邮件”文件夹的代码。（我认为这仅适用于 Outlook 2010 及更高版本）。

MSOutlook._NameSpace ns = Globals.ThisAddIn.Application.GetNamespace("MAPI");
var accounts = ns.Accounts;
foreach (MSOutlook.Account account in accounts)
{
    try
    {
        // You might want to test if DeliveryStore is null, in case this account is not an Exchange account
        MSOutlook.MAPIFolder sentFolder = account.DeliveryStore.GetDefaultFolder(MSOutlook.OlDefaultFolders.olFolderSentMail);
        if(sentFolder != null)
        {
            SentItems = sentFolder.Items;
            SentItems.ItemAdd += LogMethods.Items_Sent_ItemAdd;
        }
    }
    catch (Exception e)
    {
        BaseClass.log.Log(LoggLevel.Warning, e.Message);
    }
}

I guess this is an old one, but somebody might need it one day.
Here is code to iterate all "Sent Mail" folders in Outlook. (I think this will only work for Outlook 2010 and newer).

MSOutlook._NameSpace ns = Globals.ThisAddIn.Application.GetNamespace("MAPI");
var accounts = ns.Accounts;
foreach (MSOutlook.Account account in accounts)
{
    try
    {
        // You might want to test if DeliveryStore is null, in case this account is not an Exchange account
        MSOutlook.MAPIFolder sentFolder = account.DeliveryStore.GetDefaultFolder(MSOutlook.OlDefaultFolders.olFolderSentMail);
        if(sentFolder != null)
        {
            SentItems = sentFolder.Items;
            SentItems.ItemAdd += LogMethods.Items_Sent_ItemAdd;
        }
    }
    catch (Exception e)
    {
        BaseClass.log.Log(LoggLevel.Warning, e.Message);
    }
}

回复收藏 0 原文

奢欲 2024-12-03 15:59:45

这是否显示了所有可用的收件箱？

Sub LoopThroughInboxes

Dim ol As Outlook.Application
Dim ns As Outlook.NameSpace
Dim i As Long

Set ol = Outlook.Application
Set ns = ol.GetNamespace("MAPI")

For i = 1 To ns.Folders.Count
 Debug.Print ns.Folders(i).Name
Next i

如果是这样，那么 ns.Folders(i).Folders("Inbox") 将为您提供每个邮箱的收件箱。

Does this show you all the available Inboxes?

Sub LoopThroughInboxes

Dim ol As Outlook.Application
Dim ns As Outlook.NameSpace
Dim i As Long

Set ol = Outlook.Application
Set ns = ol.GetNamespace("MAPI")

For i = 1 To ns.Folders.Count
 Debug.Print ns.Folders(i).Name
Next i

If so then ns.Folders(i).Folders("Inbox") will get you the Inbox for each mailbox.

回复收藏 0 原文

夜清冷一曲。 2024-12-03 15:59:45

使用 Store.GetDefaultFolder 而不是 Namespace.GetDefaultFolder。
请注意，Store.GetDefaultFolder 是在 Outlook 2010 中添加的。在早期版本的 Outlook 中，使用扩展 MAPI（C++ 或 Delphi）或救赎（我是其作者）- RDOStore.GetDefaultFolder。