Как перечислить все имена вложений в теле сообщения при создании электронной почты в Outlook?

Есть ли у нас хорошие способы вставить все имена вложений в тело сообщения при составлении электронного письма в Outlook? В этой статье я расскажу о том, как решить эту задачу в Outlook.

Перечислите все имена вложений в теле сообщения при составлении письма с кодом VBA

Перечислите все имена вложений в теле сообщения при составлении электронной почты с помощью простой функции

Перечислите все имена вложений в теле сообщения при составлении письма с кодом VBA

Для выполнения этой задачи выполните следующие действия:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. В Microsoft Visual Basic для приложений окно, дважды щелкните Эта сессия Outlook из Проект1 (VbaProject.OTM) панель, чтобы открыть режим, а затем скопируйте и вставьте следующий код в пустой модуль.

Код VBA: перечислить все имена вложений в теле сообщения:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

3. Затем продолжайте нажимать Вставить > Модули, скопируйте и вставьте приведенный ниже код в открытый пустой модуль, см. снимок экрана:

Код VBA: перечислить все имена вложений в теле сообщения:

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

4, Затем нажмите Инструменты > Рекомендации в Microsoft Visual Basic для приложений окно, в выскакивающем Ссылки-Project1 диалоговое окно, отметьте Библиотека объектов Microsoft Word из файла Доступные ссылки список, см. снимок экрана:

5. Нажмите OK для выхода из диалогового окна следует добавить кнопку макроса в Панель быстрого доступа, В новой Сообщение окно, выберите Дополнительные команды из Настройка панели быстрого доступа выпадайте, см. снимок экрана:

6. В Параметры Outlook диалоговом окне выполните следующие операции:

(1.) Выберите Макрос из Выберите команды из раскрывающийся список;

(2.) Щелкните имя макроса, который вы только что вставили;

(3.) Затем щелкните Добавить кнопку, чтобы добавить макрос в Настройка панели быстрого доступа.

7. Затем нажмите OK чтобы закрыть диалоговое окно, теперь кнопка макроса была вставлена ​​в Панель быстрого доступа, см. снимок экрана:

8. Теперь, когда вы создаете новое сообщение и нажимаете кнопку макроса, имена вложений будут вставлены над телом сообщения, как показано на следующем снимке экрана:

Перечислите все имена вложений в теле сообщения при составлении электронной почты с помощью простой функции

Возможно, вам будет сложно применить приведенный выше код, если у вас есть Kutools for Outlook, С его Копировать имена вы можете быстро скопировать имена вложений в сообщении и вставить их в любом месте.

После установки Kutools for Outlook, пожалуйста, сделайте так:

1. Сначала создайте новый адрес электронной почты, который вам нужен, а затем нажмите Кутулс > Копировать имена в новом Сообщение окно, см. снимок экрана:

2. А затем появится окно с подсказкой, чтобы напомнить вам, что имена вложений были скопированы в буфер обмена, см. Снимок экрана:

3. Теперь вам просто нужно нажать Ctrl + V вместе, чтобы вставить имена вложений в нужное вам тело сообщения, см. снимок экрана:

Больше относительных статей:

---

Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения Pro: Пакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

Узнать больше       Бесплатная загрузка      Купите