如何通过VBA自动选择TITUS数据风险分类发送Outlook邮件？

一、自动设置TITUS分类以绕过弹窗 #

你的代码思路是正确的，TITUS支持通过邮件的UserProperties预配置分类信息，从而跳过手动选择弹窗。需要注意以下细节：

• 确认属性名称正确性：TITUSAutomatedClassification是TITUS官方认可的自动分类属性名，多数企业环境下通用。
• 严格遵循属性值格式：值需采用键=值;的键值对组合，每个参数用分号分隔。你示例中的格式TLPropertyRoot=ABCDE;Classification=Internal;Registered to:My Companies;是正确的，但要确保每个键（如TLPropertyRoot、Classification）都是你公司TITUS系统内定义的有效参数。
• 代码优化建议：你的代码存在重复对象释放、未定义变量的问题，优化后代码如下：

Sub SendMailWithTITUSClassification()
    Dim outlookApp As Object
    Dim mailItem As Object
    Dim titusProp As Object
    
    Set outlookApp = CreateObject("Outlook.Application")
    Set mailItem = outlookApp.CreateItem(0) ' 创建邮件项
    
    ' 添加TITUS自动分类属性
    Set titusProp = mailItem.UserProperties.Add("TITUSAutomatedClassification", 1) ' 1代表olText类型
    titusProp.Value = "TLPropertyRoot=ABCDE;Classification=Internal;Registered to:My Companies;"
    
    With mailItem
        .To = "v-fexue@outlook.com"
        .Subject = "New Report"
        .HTMLBody = "Hi"
        .Save ' 先保存确保属性生效
        .Send
    End With
    
    ' 释放对象
    Set titusProp = Nothing
    Set mailItem = Nothing
    Set outlookApp = Nothing
End Sub

二、关于Registered to字段的必填性 #

该字段是否需要填写实际公司名称，完全取决于你们公司的TITUS策略配置：

• 如果手动选择TITUS分类时，Registered to是必填字段，那么代码中必须填写TITUS系统认可的公司名称，否则分类失效，弹窗仍会出现。
• 如果策略未强制要求该字段，可留空或填写默认值，不影响自动分类生效。

建议先手动创建邮件，查看TITUS弹窗中该字段是否为必填，或咨询公司IT/安全团队获取准确配置要求。

内容的提问来源于stack exchange，提问作者Shubham Kandpal