Note: The other languages of the website are Google-translated. Back to English
Войти  \/ 
x
or
x
Регистрация  \/ 
x

or

Как скопировать имена всех вложений при ответе в Outlook?

При ответе на электронное письмо в формате RTF (отформатированное как Rich Format) в Outlook оно автоматически копирует имена всех вложений и вставляет их в тело сообщения (см. Снимок экрана ниже). Однако при ответе на электронное письмо в формате HTML в Outlook в ответном письме отсутствуют вложения. В этой статье будут представлены некоторые методы копирования имен всех вложений при ответе на электронные письма или непосредственно в полученных письмах.


Скопируйте имена всех вложений при ответе с изменением HTML на RTF

Если перед ответом мы преобразовали электронное письмо в формате HTML в формат RTF, имена всех вложений будут скопированы в ответное сообщение после нажатия «Главная»> «Ответить» в Outlook.

1. Дважды щелкните, чтобы открыть электронное письмо, имена вложений которого необходимо скопировать, а затем щелкните Сообщение > Действия > Редактировать сообщение в окне сообщения. Смотрите скриншот:

2. Продолжайте нажимать Формат текста > Богатый текст, а затем сохраните и закройте электронное письмо.

3. Теперь вы вернетесь к основному виду. Продолжайте выбирать адрес электронной почты и нажмите Главная > Ответить.

4. Теперь имена всех вложений копируются из исходного письма и вставляются в ответное сообщение, как показано на скриншоте ниже. Составьте ответное сообщение и отправьте его.

Скопируйте имена всех вложений при ответе с помощью VBA

Этот метод представит макрос VBA для копирования имен всех вложений при ответе на электронное письмо, а затем вставит имена в тело сообщения ответного электронного письма в Outlook.

1, Нажмите другой + F11 одновременно клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.

2. В левом обозревателе проектов разверните Project 1, дважды щелкните, чтобы открыть ThisOutlookSession окно (см. снимок экрана ниже), а затем вставьте приведенный ниже код в окно.

VBA: копирование имени всех вложений при ответе на электронное письмо в Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Нажмите Инструменты > дело.

4. В открывшемся окне Ссылки - Проект 1 для Outlook 2016 проверьте Библиотека объектов Microsoft Word 16.0 ссылку в поле Доступные ссылки и щелкните OK кнопка. Смотрите скриншот:

Внимание: Пожалуйста, выберите Библиотека объектов Microsoft Word 15.0 ссылку, если вы работаете с Outlook 2013, или Библиотека объектов Microsoft Word 14.0 ссылка на Outlook 2010.

5. Сохраните VBA и закройте окно Microsoft Visual Basic для приложений.

6. Теперь вы вернетесь в основной интерфейс Outlook. Выберите письмо, на которое вы ответите, и нажмите Главная > Ответить or Ответить всем.
Внимание: Если имена вложений не копируются и не вставляются в ответное электронное письмо, перезапустите Outlook и ответьте еще раз.

И теперь имена всех вложений копируются из выбранного письма и вставляются в ответное письмо. Смотрите скриншот:


Скопируйте все имена вложений при ответе с помощью замечательного инструмента

Если у вас есть Kutools для Outlook установлен, вы можете применить его Копировать имена функция, позволяющая быстро скопировать все имена вложений из полученного сообщения электронной почты, а затем легко вставить ответное сообщение в Outlook.

Kutools для Outlook: Добавьте более 100 удобных инструментов для Outlook, вы можете попробовать их бесплатно без ограничений в течение 60 дней. Читать далее      Бесплатная пробная версия

1. Выберите письмо, на которое вы ответите, и нажмите Kutools > Инструменты для вложения > Копировать имена.

Затем появится диалоговое окно с сообщением, что имена вложений скопированы в буфер обмена. Нажмите OK закрыть его.

2. Продолжайте нажимать Главная > Ответить чтобы ответить на выбранное письмо.

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

Легко отвечайте на выбранные электронные письма со всеми исходными вложениями, хранящимися в Outlook

Как правило, исходные вложения удаляются при ответе на электронное письмо в Outlook. Но с фантастической Ответить с вложением функция Kutools for Outlook, вы можете легко сохранить все вложения писем при ответе на них в Outlook. Нажмите, чтобы получить 60-дневную бесплатную пробную версию без ограничений!
ответить с вложениями


Статьи по теме:


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.