选择数据风险分类作为内部自动分类

Question

我试图使用VBA发送outlook邮件。每次我运行我的宏时，都会弹出一个提图斯的弹出，说明它是特定的数据风险分类。我的问题是，如果有任何方法，我可以绕过它或自动选择它，并发送电子邮件。

我有尝试的代码片段，以实现它从多个来源从互联网以下。

Sub test()
Dim AOMSOutlook As Object
Dim AOMailMsg As Object
Set AOMSOutlook = CreateObject("Outlook.Application")
Dim objUserProperty As Object
Set AOMailMsg = AOMSOutlook.CreateItem(0)

Set objUserProperty = AOMailMsg.UserProperties.Add("TITUSAutomatedClassification", 1)
objUserProperty.Value = "TLPropertyRoot=ABCDE;Classification=Internal;Registered to:My Companies;"
With AOMailMsg
        .To = "v-fexue@outlook.com"
        .Subject = "New Report"
        .HTMLBody = "Hi"
        .Save
        .Send
End With
Set AOMailMsg = Nothing
Set objUserProperty = Nothing
Set AOMSOutlook = Nothing
Set lOMailMsg = Nothing
Set objUserProperty = Nothing
Set lOMSOutlook = Nothing
End Sub

此外，请清楚objUserProperty.Value = "TLPropertyRoot=ABCDE;Classification=Internal;Registered to:My Companies;是否注册到：(必须是实际的公司名称)

提前谢谢。

Answer 1

您可以与Titus开发人员联系，了解需要设置的字符串的实际格式，以避免在Outlook中外接程序中出现任何弹出窗口。此外，您还可以签出外接程序设置的属性的发送项，并为此使用任何低级的属性资源管理器工具，如MFCMAPI或OutlookSpy。