轉發Outlook項目作爲附件，並將其添加到相同的VBA宏中的類別

Question

我有一個宏作爲附件轉發多個Outlook項目。我粘貼了下面的內容，但我希望它也可以將轉發的消息添加到Outlook中的某個類別中。因此，它不僅會將收件箱中的項目轉發給收件人，還會將這些項目標記在某個類別中。這樣我就可以跟蹤使用宏轉發的項目。就像現在一樣，它會告訴我該物品已經在這樣的日期被轉發，但這可能只是一個常規的轉發行爲。因此，需要宏將項目添加到特定類別。

Sub ForwardSelectedItems() 

On Error Resume Next 

Dim objItem As Outlook.MailItem 

If Application.ActiveExplorer.Selection.Count = 0 Then 
    MsgBox ("No item selected") 
    Exit Sub 
End If 

For Each objItem In Application.ActiveExplorer.Selection 
    Set objMsg = objItem.Forward() 
    With objMsg 
     .Attachments.Add objItem, olEmbeddeditem 
     .Subject = "example" 
     .To = "example@example.com" 
     .Body = 「」 
     .Send 
    End With 

Next 

Set objItem = Nothing 
Set objMsg = Nothing 

End Sub 

Answer 1

所述的MailItem類的Categories屬性允許設置表示分配到Outlook項的類別的字符串。以下是MSDN所述的內容：

類別是已分配給Outlook項目的分類字符串類別名稱。此屬性使用在Windows註冊表中的HKEY_CURRENT_USER \ Control Panel \ International下的值名稱sList中指定的字符作爲多個類別的分隔符。要將類別名稱字符串轉換爲類別名稱數組，請使用Microsoft Visual Basic函數Split。

請注意，您可以使用Namespace類的Categories屬性來獲取表示可用的Category對象集合的Categories對象。此屬性表示主分類列表，它是可應用於NameSpace對象所包含的Outlook項目的Category對象集合，適用於該名稱空間的所有用戶。

另外，您可以考慮指定郵件項目的SaveSentMessageFolder。該屬性允許設置一個Folder對象，該對象表示發送後將保存電子郵件消息副本的文件夾。因此，您可以輕鬆識別自動轉發的消息。