如何在Outlook中以编程方式设置特定帐户/profile的默认签名

Sub SetDefaultSignature()
    Dim objOutlook As Outlook.Application
    Dim objNamespace As Outlook.Namespace
    Dim objAccount As Outlook.Account
    Dim objFolder As Outlook.Folder
    Dim objSignature As Outlook.Signature
    Dim strAccountName As String
    
    ' 设置要设置默认签名的帐户名称
    strAccountName = "Your Account Name"
    
    ' 获取Outlook应用程序对象
    Set objOutlook = New Outlook.Application
    
    ' 获取Outlook命名空间对象
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    
    ' 遍历所有帐户，找到指定名称的帐户
    For Each objAccount In objNamespace.Accounts
        If objAccount.DisplayName = strAccountName Then
            ' 获取指定帐户的签名文件夹
            Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox).Parent.Folders(objAccount.DisplayName).Folders("Signatures")
            
            ' 设置默认签名
            Set objSignature = objFolder.Items("Your Signature Name").Reply
            objAccount.DefaultSignature = objSignature
            objAccount.Save
            
            ' 退出循环
            Exit For
        End If
    Next objAccount
    
    ' 释放对象
    Set objSignature = Nothing
    Set objFolder = Nothing
    Set objAccount = Nothing
    Set objNamespace = Nothing
    Set objOutlook = Nothing
End Sub