Outlook VBA multiple Acounts运行脚本

Question

你好，我找到了这个完美的代码。它会检查新消息，并且只在日期和时间中添加自定义列。它非常适合分组接收，然后来自。

但它仅适用于我的默认帐户，这可以使用多个帐户吗？

update url_links ul
join emailCarriers ec on ul.contact_email like concat('%@', ec.domain)
set ul.link_bad=1,
    ul.emailCarrier=ec.domain;

Answer 1

由于以下代码行，现有代码适用于默认的收件箱文件夹：

  Set myInbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items

相反，您需要迭代配置文件中的所有商店并调用Store类的GetDefaultFolder方法，该方法返回一个Folder对象，该对象表示商店中的默认文件夹，并且该类型由FolderType论点。此方法类似于GetDefaultFolder对象的NameSpace方法。区别在于此方法获取与该帐户关联的传递存储上的默认文件夹，而NameSpace.GetDefaultFolder返回当前配置文件的默认存储上的默认文件夹。

Namespace类的Stores属性返回一个Stores集合对象，该对象表示当前配置文件中的所有Store对象。

最后，您可能会发现Working with Outlook Accounts, Stores, Folders and Items文章有用。