outlook - 以编程方式设置 Outlook 2013 签名默认值？

Question

是否可以以编程方式设置 Outlook 2013 默认签名设置？我们可以生成用户的签名 OK，但还想将签名设置为默认出现在用户的电子邮件中：

该设置本身似乎隐藏在 Outlook 配置文件下的注册表中：

HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6677\00000002

注册值：

• New Signature
• Reply-Forward Signature

...（具有二进制数据，可能对 HTML 文件名/引用进行编码）。

不确定我是否可以使用 Outlook 对象模型来访问和设置设置？ClickOnce 应用程序是否可以实现这一点？

Answer 1

我还没有清理代码，但这适用于我在 Outlook 2013 中设置签名。在 python 中（是的，我知道它丑陋而不是 PEP8）。

import _winreg
def set_default():

    try:
        #this makes it so users can't change it.
        outlook_2013_key = _winreg.OpenKey(_winreg.HKEY_CURRENT_USER, r"Software\Microsoft\Office\15.0\Common\MailSettings", 0, _winreg.KEY_ALL_ACCESS)
        _winreg.SetValueEx(outlook_2013_key, "NewSignature", 0, _winreg.REG_SZ, "default" )
        _winreg.SetValueEx(outlook_2013_key, "ReplySignature", 0, _winreg.REG_SZ, "default" )

        # sets the sigs in outlook profile
        outlook_2013_base_key = _winreg.OpenKey(_winreg.HKEY_CURRENT_USER, r"Software\Microsoft\Office\15.0\Outlook\Profiles", 0, _winreg.KEY_ALL_ACCESS)
        default_profile_2013_tup = _winreg.QueryValueEx(outlook_2013_base_key,'DefaultProfile')
        default_profile_2013 = default_profile_2013_tup[0]
        print default_profile_2013
        outlook_2013_profile_key = _winreg.OpenKey(_winreg.HKEY_CURRENT_USER,
                                                   "Software\\Microsoft\\Office\\15.0\\Outlook\\Profiles\\" + default_profile_2013 + "\\9375CFF0413111d3B88A00104B2A6676", 0, _winreg.KEY_ALL_ACCESS)
        for i in range(0, 10):
            try:
                outlook_2013_sub_key_name = _winreg.EnumKey(outlook_2013_profile_key,i)
                print outlook_2013_sub_key_name, "sub_key_name"
                outlook_2013_sub_key = _winreg.OpenKey(outlook_2013_profile_key, outlook_2013_sub_key_name, 0, _winreg.KEY_ALL_ACCESS)
                _winreg.SetValueEx(outlook_2013_sub_key, "New Signature", 0, _winreg.REG_SZ, "default" )
                _winreg.SetValueEx(outlook_2013_sub_key, "Reply-Forward Signature", 0, _winreg.REG_SZ, "default" )
            except:
                pass

    except:
        print('no 2013 found')

Answer 2

Outlook 签名在配置文件数据（存储在注册表中）中基于每个帐户设置。您可以在OutlookSpy中查看数据- 单击IOlkAccountManager按钮并双击该帐户。

IOlkAccountManager只能在 C++ 或 Delphi 中访问。如果使用Redemption是一个选项（它可以用于任何语言，包括 VBA 或 .Net，我是它的作者），它会公开RDOAccount。ReplySignature和NewMessageSignature属性。