通过VBA在Outlook中添加非默认签名

Sub AddNonDefaultSignature()
    Dim objOutlook As Outlook.Application
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.MAPIFolder
    Dim objMailItem As Outlook.MailItem
    Dim objSignature As Outlook.Signature
    
    ' 创建Outlook应用程序对象
    Set objOutlook = New Outlook.Application
    ' 获取当前Outlook会话
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    ' 获取默认签名文件夹
    Set objFolder = objNamespace.GetDefaultFolder(olFolderSignature)
    
    ' 创建新的邮件项
    Set objMailItem = objOutlook.CreateItem(olMailItem)
    ' 设置邮件的HTML格式
    objMailItem.BodyFormat = olFormatHTML
    
    ' 创建新的签名对象
    Set objSignature = objFolder.CreateItem(olMailItem)
    ' 设置签名的名称
    objSignature.Name = "非默认签名"
    ' 设置签名的内容
    objSignature.HTMLBody = "<b>这是一个非默认签名的示例</b>"
    
    ' 将签名应用到邮件项
    objMailItem.HTMLBody = objSignature.HTMLBody
    
    ' 显示邮件项
    objMailItem.Display
    
    ' 清理对象
    Set objMailItem = Nothing
    Set objSignature = Nothing
    Set objFolder = Nothing
    Set objNamespace = Nothing
    Set objOutlook = Nothing
End Sub