Как автоматически добавить контакт из письма при ответе в Outlook?
При ответе на письма вы, возможно, захотите автоматически добавлять отправителя или получателей в свои контакты Outlook. Это сэкономит время и гарантирует, что вы никогда не потеряете важную контактную информацию. Хотя Outlook изначально не поддерживает автоматическое добавление контактов при ответе, я покажу вам два способа автоматически добавить контакт из письма, включая функцию Kutools для Outlook.
Автоматическое Добавить контакт из письма Outlook при ответе с помощью VBA
Автоматическое Добавить контакт из письма Outlook при ответе с помощью VBA
Этот макрос VBA автоматически добавит отправителя и всех получателей письма в качестве контактов при ответе на это письмо в Outlook. Выполните следующие действия:
1. Нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Разверните Project1 и дважды щелкните ThisOutlookSession, чтобы открыть его, затем вставьте приведённый ниже код VBA в окно ThisOutlookSession. См. снимок экрана:
VBA: Автоматическое Добавить контакт из письма при ответе в Outlook
Public WithEvents xExplorer As Outlook.Explorer
Public WithEvents xMailItem As Outlook.MailItem
Sub Application_Startup()
Set xExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub xExplorer_SelectionChange()
On Error Resume Next
Set xMailItem = xExplorer.Selection.Item(1)
End Sub
Private Sub xMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xNameSpace As NameSpace
Dim xSenderAddress As String
Dim xContactItems As Outlook.Items
Dim i, k As Long
Dim xFilterAddress As String
Dim xContact As Outlook.ContactItem
Dim xNewContact As Outlook.ContactItem
Dim Arr() As String
Dim ArrName() As String
Dim xArrCount As Integer
On Error Resume Next
ReDim Arr(xMailItem.Recipients.Count + 1)
ReDim ArrName(xMailItem.Recipients.Count + 1)
xSenderAddress = xMailItem.SenderEmailAddress
Arr(0) = xSenderAddress
ArrName(0) = xMailItem.SenderName
For i = LBound(Arr) + 1 To UBound(Arr) - 1
Arr(i) = xMailItem.Recipients.Item(i).Address
ArrName(i) = xMailItem.Recipients.Item(i).Name
Next i
Set xNameSpace = Outlook.Application.GetNamespace("MAPI")
Set xContactItems = xNameSpace.GetDefaultFolder(olFolderContacts).Items
For i = LBound(Arr) To UBound(Arr) - 1
For k = 1 To 3
xFilterAddress = "[Email" & k & "Address] = " & Arr(i)
Set xContact = xContactItems.Find(xFilterAddress)
If Not (xContact Is Nothing) Then
Exit For
End If
Next k
If xContact Is Nothing Then
Set xNewContact = Outlook.Application.CreateItem(olContactItem)
With xNewContact
.FullName = ArrName(i)
.Email1Address = Arr(i)
.Categories = "From Email"
.Save
End With
End If
Next i
End Sub
3. Сохраните код VBA и перезапустите Microsoft Outlook.
Теперь при ответе на письмо в Outlook отправитель и все получатели этого письма автоматически сохраняются как контакты в папку контактов по умолчанию для основной учётной записи электронной почты.
Пакетное добавление нескольких отправителей и получателей из Выбранные элементы в контакты с помощью Kutools
Kutools для Outlook упрощает добавление контактов с помощью функции Добавить отправителей и нескольких получателей выбранных писем в контакты. Благодаря ей вы можете пакетно добавлять контакты из одного или нескольких писем.
Шаг 1. Скачайте и установите Kutools для Outlook. Затем откройте папку «Отправленные» (или любую другую нужную папку) и выберите сообщения, отправителей и получателей которых вы хотите добавить в контакты.
Шаг 2. Нажмите Kutools > Добавить контакт > Добавить отправителей и нескольких получателей выбранных писем в контакты.
Шаг 3. В диалоговом окне «Добавить контакты из электронной почты»
Выберите папку контактов: укажите папку, в которую нужно сохранить контакт.
Выберите адреса: По умолчанию отмечены все адреса, кроме уже существующих. Проверьте список и снимите флажки с тех, которые не хотите добавлять.
Нажмите OK: подтвердите свой выбор и сохраните контакты в выбранную папку.
Шаг 4. Появится диалоговое окно с указанием количества контактов, успешно добавленных. Нажмите OK, чтобы закрыть диалог.
Связанные статьи
Как пакетно добавить контакты из писем или папки «Отправленные» в Outlook?
Как выполнить массовое добавление контактов в группу контактов в Outlook?
Лучшие инструменты для повышения продуктивности в Office
Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!
📧Автоматизация работы с электронной почтой: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…
📨Управление электронной почтой: Отозвать письмо / Блокировка спама по теме и другим признакам / Удаление дубликатов писем / Расширенный поиск / Организация папок…
📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…
🌟Волшебство интерфейса: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных входящих письмах / Сворачивание Outlook вместо закрытия…
👍Чудеса одним щелчком: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…
👩🏼🤝👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные группы / Удаление напоминания о дне рождения…
Используйте Kutools на вашем любимом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!
🚀 Скачать одним щелчком — Получите все надстройки для Office
Настоятельно рекомендуется: Kutools for Office (5 в 1)
Скачайте одним щелчком пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!
- ✅Удобство одним щелчком: Скачайте все пять установочных пакетов за одно действие.
- 🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
- 🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint