Работает в Outlook 2010, версии 2007 у меня нет, но вроде должно и в ней работать.
Используется тот факт, что редактор Outlook 2007+ основан на "движке" WinWord, в котором используются примечания.
Почему бы VBA кодом не попытаться их задействовать и для Outlook?
1. Код, приведенный ниже, нужно поместить в любой VBA модуль Outlook и сохранить (Ctrl-S).
2.
Вынести кнопку созданного макроса на Панель быстрого доступа .
3. В тексте письма выделить комментируемый фрагмент текста и нажать на кнопку из п.2,
справа добавится стандартный комментарий редактора WinWord и фокус будет установлен в поле редактирования комментария.
Формат текстовых писем автоматически преобразуется в формат HTML.
Выделенный фрагмент при этом теряется (курсор перемещается в начало текста письма), но в коде он восстанавливается.
"Изменить сообщение" выполняется автоматически.
При получении такого письма в Outlook примечания выглядят, как и при вставке.
В прочих почтовиках примечания отображаются в виде сносок.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
Sub AddComment()
' ZVI:2015-06-06 http://www.sql.ru/forum/1159087/primechanie-k-vhodyashhemu-pismu-outlook
' Put this code into any Outlook VBA module.
' Customize Ribbon to add this macro with its button to the QAT.
' In Outlook mail select any text and click on macro button to insert a comment.
Const wdNoProtection = -1
Dim i As Long, j As Long
' Trap errors
On Error GoTo exit_
' Save start & end positions of selection
With ActiveInspector.WordEditor.Application.Selection.Range
i = .Start
j = .End
End With
' Change TEXT format of the mail to the HTML one to allow commenting
With ActiveInspector.CurrentItem
If .BodyFormat = olFormatPlain Then
.BodyFormat = olFormatHTML
End If
End With
' Allow mail editing, restore selection, add comment to the selection
With ActiveInspector.WordEditor ' equal to With Word.Document
If .ProtectionType <> wdNoProtection Then .UnProtect
.Range(i, j).Select
.Comments.Add(.Application.Selection.Range).Edit
End With
exit_:
' Show reason of error
If Err Then MsgBox Err.Description, vbCritical, "Can't insert the comment! Error #" & Err.Number
End Sub
