我正在嘗試使用 VBA 發送 outlook 郵件。每次我運行我的宏時，都會彈出一個 TITUS 的彈出視窗，說明選擇資料風險分類。我的問題是是否有任何方法可以繞過它或自動選擇它并發送電子郵件。
我有嘗試的代碼片段來從下面互聯網的多個來源實作它。
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 = "[email protected]"
.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;如果注冊到：（必須是實際的公司名稱），也請清除
提前致謝。
uj5u.com熱心網友回復：
您可以聯系 Titus 開發人員了解需要設定的字串的實際格式，以避免從他們的 Outlook 加載項中彈出任何彈出視窗。您還可以檢查已發送的專案以了解加載項設定的屬性，使用任何低級屬性資源管理器工具（例如MFCMAPI）或OutlookSpy用于此目的。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/534686.html
下一篇：串列框專案到Word表