Як швидко вставити імена одержувачів у тіло електронної пошти у вашому

Якщо ви хочете швидко вставити імена одержувачів до основного тіла під час створення електронного листа, ви можете прочитати цю статтю. Тут ми представимо вам зручний метод.

Іноді вам може знадобитися ввести імена всіх одержувачів у тіло, коли ви складаєте електронний лист. Безперечно, витягувати та вставляти імена в тіло вручну по черзі досить втомливо та громіздко. Тому, щоб допомогти вам швидко це зробити, тут ми поділимось ефективними засобами. Прочитайте далі, щоб отримати детальні кроки.

Вставте імена одержувачів у тіло електронної пошти

1. Для початку, відкрийте редактор VBA за допомогою комбінації клавіш «Alt + F11».
2. Потім у вікні «Microsoft Visual Basic for Applications» увімкніть «Бібліотеку об’єктів MS Word» відповідно до «Як додати посилання на бібліотеку об'єктів у VBA».
3. Далі скопіюйте код VBA нижче в порожній модуль.

Sub CopyRecipientNamesToBody()
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim strRecipAddress As String
    Dim strRecipName As String
    Dim objContacts As Outlook.Items
    Dim i As Integer
    Dim strFilter As String
    Dim objFoundContact As Outlook.ContactItem
    Dim strRecipNames As String
    Dim objMailDocument As Word.Document
 
    'Get the current email
    Set objMail = Application.ActiveInspector.CurrentItem
    objMail.Recipients.ResolveAll
 
    For Each objRecipient In objMail.Recipients
        strRecipAddress = objRecipient.Address
 
        'Get the corresponding contact name
        Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items
        For i = 1 To 3
            strFilter = "[Email" & i & "Address] = " & strRecipAddress
            Set objFoundContact = objContacts.Find(strFilter)
            If Not (objFoundContact Is Nothing) Then
               strRecipNames = strRecipNames & objFoundContact.FullName & vbCr
               Exit For
            End If
        Next
 
        'If there isn't associated contact
        'Extract name from email address
        If objFoundContact Is Nothing Then
           strRecipName = Split(strRecipAddress, "@")(0)
           strRecipName = UCase(Left(strRecipName, 1)) & Right(strRecipName, Len(strRecipName) - 1)
           strRecipNames = strRecipNames & strRecipName & vbCr
        End If
    Next
 
    'Insert the names at the beginning of email
    Set objMailDocument = objMail.GetInspector.WordEditor
    objMailDocument.Range(0, 0).InsertAfter strRecipNames
End Sub

3. Далі, додайте цей макрос на панель швидкого доступу у вікні повідомлення відповідно до необов’язкового кроку в “Як запустити код VBA у своєму Outlook».
4. Після цього вийдіть з вікна.
5. Нарешті, зробіть постріл.

• По-перше, складіть електронне повідомлення та заповніть одержувачів.
• Потім натисніть кнопку макросу на панелі швидкого доступу.
• Коли макрос закінчується, імена одержувачів вставляються в тіло електронної пошти, як показано на малюнку нижче.

Захист від збитків Outlook

Оскільки Outlook є вразливим, важко захистити Outlook від пошкодження. Без сумніву, ви, мабуть, неохоче стикаєтесь Корупція PST. Тому вам краще вжити деяких ефективних запобіжних заходів. Наприклад, вам потрібно зробити послідовне резервне копіювання даних для Outlook, бути знайомим з використанням інструменту для відновлення папки "Вхідні", а також тримати поруч потужний зовнішній інструмент, такий як DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі SQL Server фіксувати та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com