Добрый день. Давно нахожусь на форуме и ребята очень выручают. Я живу в небольшом городе, работаю в компании где работа только в Outlook.
Процесс работы очень муторный и нужна оптимизация. Должность у меня не высокая, поэтому в средствах ограничен. Если данная помощь будет стоить очень дорого, то напишите сразу - может не потяну...Буду очень признателен, если хотя бы напишите реально ли сделать данный процесс.

Описание: есть уже один макрос, который нужно подправить. Но основная задача следующая:
1) Письма от главного отдела приходят на один ящик, а потом распределяются коллегой на другой. Иногда это новые письма, но чаще, это вчерашние и давние письма, где я уже участвовал в переписке и моя фамилия там есть. Задача - Можно ли отмечать определенным цветом автоматически письма, в которых есть моя фамилия, которые пересылает коллега с первого ящика на второй? Чтобы на втором ящике они отмечались сразу допустим зеленым.
2) Почти в каждом письме (90%) и теме письма есть определённый номер семизначный. Задача - возможно ли автоматически отмечать на втором ящике два или несколько таких письма? Чтобы было видно, что на этом ящике есть три одинаковых письма с одинаковым семизначным номером. Поскольку бывает, что с первого ящика присылают одно такое письмо, а через 20 минут второе, но с другой задачей.
3) Письмо с первого ящика пересылает сотрудник Петров. Когда я открываю письмо, то мне нужно стирать его подпись и ставить свою, чтобы напрямую ответить тому, кто переслал письмо на первый ящик к Петрову. И в адресаты копировать вручную того человека или несколько, если поставлены в копию. Задача - можно ли это автоматизировать?
4) Самое на мой взгляд не решаемое: Нужно, чтобы после ответа со второго ящика, письмо, которое было передано отметилось цветом (на первом ящике), обозначающим то, что я ответил на него. Когда сотрудник Петров будет делать сверку, то он поймет, что я уже отвечал на него.

5) Нужно чтобы при открытии письма оно помечалось галочкой автоматически.

Public Sub saveAtt (itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment 'переменная для работы с вложениями
Dim saveFolder As String 'переменная для пути к папке сохранения
Dim sDateMail as string 'переманная для даты письма
'сохраняем в правильном формате время создания сообщения
sDateMail = Format(itm.CreationTime, "hh-mm-ss_dd.mm.yyyy")

'задаем путь к папке сохранения
saveFolder = "C:\Users\Igor Solobay\Desktop\"
'перебираем все вложения в письме
For each objAtt in itm.Attachments
'сохраняем вложение в папку под именем: дата письма + название файла вложения
objAtt.SaveAsFile saveFolder & "\" & sDateMail & "_" & objAtt.FileName
'очищаем переменную с вложением
Set objAtt = Nothing
Next objAtt

End Sub

Этот код в момент срабатывания на каком то сообщении будет перебирать все его вложения и сохранять их в указанную папку (строка saveFolder) с именем, которое будет состоять из даты и времени создания письма и названия вложения. После вставки кода нажмите Ctrl+S (или иконку дискеты в левом верхнем углу).