0

我在这里有一个关于编写 Outlook 的问题。好吧，让我首先从我想要完成的事情开始：

  • 我想编写一个使用 Outlook 执行以下操作的脚本：
    1. 获取在文件 > 信息 > 帐户设置 > 委托访问下写入的所有名称（用户） ，包括权限...
    2. 获取在文件 > 信息 > 帐户设置 > 帐户设置 > 数据文件下写入的所有数据文件
    3. 在 Home > New E-mail > Signature 下获取当前使用的签名，然后在New messages:和Replies/forwards 下选择：
    4. 最后，在 File > Info > Account Settings > Data Files > Settings... > Advanced > Mailboxes 下获取所有Additional Mailboxes

我的技能水平如何？我有点意外地得到了这个任务，所以对 Windows/Office 架构的理解不是很高。我的背景是 R/Matlab、Maple 和一些 Mathematica，最近是 VBA。我刚开始使用 VBScripting ;)

到目前为止我有什么？几乎没有，但我要求不高。我不需要一个完整的解决方案。希望有创造力将帮助我围绕您的答案构建代码！到目前为止，我已经设法恢复给定的 *.psts，如下所示：

Set oOutlook = CreateObject("Outlook.Application")
Set oMAPI = oOutlook.GetNameSpace("MAPI")
WScript.Sleep 3000

接着 ...

' Restore *.psts
For Each oFile In oFolder.Files

    If UCase(oFSO.GetExtensionName(oFile.Name)) = "PST" Then

        oMAPI.AddStore sPath & "\" & oFile.Name
        WScript.Sleep 500
    End If
Next

但是让我退后一点。知道我是一个新手非常重要:)，但我可以构建所有代码。根据经验写作，我认为我会对每个问题的一行代码（如果可能的话）感到满意，例如：

???.Delegates.Names.Item(integer)
oMAPI.GetStore ...
???.MailItem.Signature.NewMessage.ToString() ' or whatever
oMAPI.AdditionalMailbox.Item(integer)

上面的四个例子纯属猜测，但我真的在互联网上找不到任何对我有用的东西。如果大多数方法都返回一个字符串，那就太酷了，这样我就可以将它们记录到一个文本文件中。

无论您使用的是什么 Outlook 版本，我都对任何答案感到高兴。我已经在互联网上搜索了两天，除了上面的短代码之外什么都没有。我需要一些更好的起点才能继续。而且，所有事情都发生在本地。我不搜索任何广告解决方案（例如创建精美的自动广告签名......）。

非常感谢你:)

4

1 回答 1

2
  1. 该信息只能通过 Exchange Web 服务 (EWS) API 访问。
  2. 使用 Namespace.Stores 集合
  3. 您只能通过文件系统访问该信息
  4. 与 2 相同，但您需要检查 Store.ExchangeStoreType 属性是否为 olAdditionalExchangeMailbox (=4)。
于 2013-07-10T16:25:42.440 回答