Как ответить всем оригинальными вложениями в Outlook?
Обычно, когда вы применяете функцию «Ответить всем» для ответа на сообщение всем получателям в Outlook, исходные вложения автоматически теряются. Можно ли прикрепить оригинальные вложения при ответе всем в Outlook?
Ответить всем с оригинальными вложениями с кодом VBA
Ответить всем оригинальными вложениями с помощью Kutools for Outlook
Ответить всем с оригинальными вложениями с кодом VBA
В Outlook нет прямой функции для решения этой задачи, но для ее выполнения можно применить следующий код VBA. Пожалуйста, сделайте следующее:
1. Запустите Outlook, а затем удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. В Microsoft Visual Basic для приложений окно, дважды щелкните Эта сессия Outlook из Проект1 (VbaProject.OTM) панель, чтобы открыть режим, а затем скопируйте и вставьте следующий код в пустой модуль.
Код VBA: ответьте всем оригинальными сообщениями:
Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function
3, Затем нажмите Инструменты > Рекомендации в Microsoft Visual Basic для приложений окно, в выскакивающем Ссылки-Project1 диалоговое окно, отметьте Среда выполнения сценариев Microsoft из файла Доступные ссылки список, см. снимок экрана:
4. Затем сохраните и закройте окно кода, а затем вы можете добавить кнопку макроса в Панель быстрого доступа.
5. Откройте письмо, на которое вы хотите ответить, с вложением в Сообщение окно, затем выберите Дополнительные команды из Настройка панели быстрого доступа выпадайте, см. снимок экрана:
6. В Параметры Outlook диалоговом окне выполните следующие операции:
(1.) Выберите Макрос из Выберите команды из раскрывающийся список;
(2.) Щелкните имя макроса, который вы только что вставили;
(3.) Затем щелкните Добавить кнопку, чтобы добавить макрос в Настройка панели быстрого доступа.
7. Затем нажмите OK чтобы закрыть диалоговое окно, теперь кнопка макроса была вставлена в Панель быстрого доступа, см. снимок экрана:
8. Теперь нажмите кнопку макроса, откроется окно ответного сообщения с исходными вложениями, затем составьте ответное сообщение и нажмите Отправить кнопку, см. снимок экрана:
Ответить всем оригинальными вложениями с помощью Kutools for Outlook
Если вы только что Kutools for Outlook, С его Ответить всем с вложением функция, вы можете ответить всем с вложениями только одним щелчком мыши.
Kutools for Outlook : с более чем 100 удобными надстройками Outlook, которые можно бесплатно попробовать без ограничений в течение 60 дней. |
После установки Kutools for Outlook, пожалуйста, сделайте так:
1. Выберите сообщение, на которое вы хотите ответить с вложениями, и нажмите Кутулс > Ответить с вложением > Ответить всем с вложением, см. снимок экрана:
2. Откроется окно ответного сообщения с оригинальными вложениями, затем составьте свое сообщение и отправьте его, см. Снимок экрана:
Нажмите, чтобы загрузить Kutools for Outlook и бесплатную пробную версию прямо сейчас!
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.