Изменение выбранного объекта электронной почты

Question

В моей работе я обрабатываю более сотни писем за один день, и мне всегда приходится добавлять свои инициалы в начало темы, чтобы другие знали, что я их взял.

В настоящее время в Outlook 2013 я должен дважды щелкнуть по электронной почте, mouseclick в начале темы, добавить свои инициалы и /, а затем закрыть письмо и ответить «да» на вопрос «Вы хотите изменить тему. "

Я попытался создать кнопку vba для этого для меня, код ниже, но я просто не могу заставить его работать. Код ошибки во время работы из редактора: Ошибка времени выполнения «424»: требуется объект. при использовании макрокоманды в прогнозе абсолютно ничего не происходит. Для защиты от макросов уведомляется.

Таким образом, любая помощь или полная переработка кода были бы высоко оценены!

Sub Nimmarit() 
Dim aItem As Object 

Set aItem = obj.AppApplication.ActiveExplorer.Selection() 

Dim strTemp As String 
Dim strFilenum As String 

strFilenum = "JK/" 

If strFilenum = False Then Exit Sub 
If strFilenum = "" Then Exit Sub 

strTemp = "[" & strFilenum & "] " & aItem.Subject 
    aItem.Subject = strTemp 
    aItem.Save  
End Sub 

Answer 1

Попробуйте следующее

Sub Nimmarit() 
    Dim olItem As MailItem 
    Dim sFilenum As String 

    sFilenum = "JK/ " 

    If Application.ActiveExplorer.Selection.Count = 0 Then 
     MsgBox "No Items selected!", vbCritical, "Error" 
    End If 

    '// Process each selected Mail Item 
    For Each olItem In Application.ActiveExplorer.Selection 
     olItem.Subject = "[" & sFilenum & "] " & olItem.Subject 
     olItem.Save 
    Next olItem 
End Sub