Когда вы получаете электронное письмо, содержащее подробную подпись, вы можете добавить его в контакт соответствующего отправителя. Копирование и вставка вручную занимает много времени. Итак, в этой статье мы поможем вам сделать это с помощью Outlook VBA.
Вне всяких сомнений, вы должны были когда-либо получать такие электронные письма, которые содержат подробную информацию об отправителях в подписи. В то время вы можете надеяться добавить детали к соответствующему контакту. В общем, без лишних подсказок вам нужно будет просмотреть все ваши контакты, чтобы найти правильный, а затем скопировать подпись в его тело. Это будет довольно хлопотно. К счастью, вы можете реализовать это через Outlook VBA, что намного быстрее. Вот сложные операции и соответствующие коды VBA.
Добавьте подпись электронной почты к контактным данным отправителя
- В первую очередь вы должны сtarт Outlook.
- Затем перейдите на вкладку «Разработчик» и нажмите кнопку «Visual Basic».
- В новом всплывающем окне вам нужно открыть новый модуль. Затем выберите «Вставить» > «Модуль».
- Затем вы должны скопировать и вставить следующие коды в новый модуль.
Sub AddSignaturetoContact() Dim olItem As Outlook.MailItem Dim olInspector As Outlook.Inspector Dim objDoc As Word.Document Dim objWord As Word.Application Dim objSel As Word.Selection Dim Signature As String Dim olContacts As Outlook.Items Dim objVariant As Variant Dim i As Long Dim strBody As String Set olItem = Outlook.Application.ActiveInspector.CurrentItem If olItem.Class = olMail Then 'Выберите подпись Set olInspector = olItem.GetInspector If olInspector.EditorType = olEditorWord Then Set objDoc = olInspector.WordEditor Set objWord = objDoc .Application Set objSel = objWord.Selection Signature = objSel.Text Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items 'Пройтись по всем существующим контактам, чтобы найти соответствующий контакт 'А затем добавить к нему подпись For i = 1 To olContacts.Count Если olContacts.Item(i).Class = olContact, то установите objVariant = olContacts.Item(i) "-----From Signature-----" & vbCrLf & vbCrLf & Signature .Save .Display End With End If End If Next End If End If End Sub
- После этого вы можете выйти из текущего окна, а затем открыть электронное письмо.
- Затем щелкните стрелку вниз на панели быстрого доступа текущего окна сообщения и выберите «Дополнительные команды».
- Далее в последующем окне следует добавить новый макрос на панель быстрого доступа.
- Выполнив все вышеперечисленные шаги, вы, наконец, можете попробовать.
- Во-первых, откройте электронное письмо, подпись которого вы собираетесь добавить в контакт.
- Затем выберите все тексты в подписи и нажмите кнопку макроса на панели быстрого доступа, как показано на следующем изображении:
- Сразу же Outlooktart для поиска всех контактов в папке контактов по умолчанию. Найдя его, Outlook добавит подпись к своему телу и отобразит ее, посмотрите на следующий снимок экрана:
Решайте утомительные проблемы с Outlook
Как вы знаете, Outlook подвержен ошибкам, хотя и может похвастаться множеством функций. Таким образом, чтобы сохранить ваши данные Outlook в хорошем состоянии, вам лучше не полагаться просто на инструмент восстановления папки «Входящие». Вы должны получить более выдающийся поврежденный инструмент восстановления PST, Такие, как DataNumen Outlook Repair, который может решить экстремальные проблемы, которые превышают возможности Scanpst.exe
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить поврежденный SQL mdf db и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com
Оставьте комментарий