Перенаправление 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

Categories свойство класса MailItem позволяет задать строку, представляющую категории, присвоенные пункт Outlook. Вот что такое MSDN:

Категории:

Категории - это строка с разделителями категорий, назначенная элементу Outlook. Это свойство использует символ, указанный в имени значения sList, под HKEY_CURRENT_USER \ Control Panel \ International в реестре Windows, в качестве разделителя для нескольких категорий. Чтобы преобразовать строку имен категорий в массив имен категорий, используйте функцию Microsoft Visual Basic Split.

Обратите внимание, вы можете использовать Categories свойство класса пространств имен, чтобы получить Категории объект, который представляет собой набор Category доступных объектов. Это свойство представляет собой список основных категорий, который представляет собой набор объектов категории, которые могут применяться к элементам Outlook, содержащимся в объекте NameSpace, и применяется ко всем пользователям этого пространства имен.

Также вы можете указать указание SaveSentMessageFolder для почтового отправления. Свойство позволяет установить объект Folder, который представляет папку, в которой после отправки будет сохранена копия сообщения электронной почты. Таким образом, вы можете легко распознавать сообщения с автоматической пересылкой.