Как ответить всем с оригинальными вложениями в Outlook?

Когда-нибудь нажимали «Ответить всем» в Outlook и теряли исходные вложения? Это раздражает! Хотите узнать, как сохранить эти вложения при ответе всем? Да, это возможно! Давайте разберёмся, как включать исходные вложения в свои ответы, чтобы работа с электронной почтой стала проще и эффективнее. Оставайтесь с нами!

Ответить всем с оригинальными вложениями с помощью кода VBA

Ответить всем с оригинальными вложениями с помощью Kutools для Outlook

---

Ответить всем с оригинальными вложениями с помощью кода VBA

В Outlook нет встроенной функции для выполнения этой задачи, но вы можете решить её с помощью приведённого ниже кода VBA. Выполните следующие шаги:

1. Запустите Outlook и нажмите клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications дважды щёлкните по элементу ThisOutlookSession на панели Project1 (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 for Applications нажмите Сервис > Ссылки. В появившемся диалоговом окне Ссылки — Project1 установите флажок напротив пункта Microsoft Scripting Runtime в списке Доступные ссылки, см. снимок экрана:

4. Затем сохраните и закройте окно кода, а после добавьте кнопку макроса на Панель быстрого доступа.

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

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

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

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

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

7. Нажмите кнопку ОК, чтобы закрыть диалоговое окно. Теперь кнопка макроса добавлена на Панель быстрого доступа — см. снимок экрана:

8. Теперь нажмите кнопку макроса — откроется окно ответа со всеми исходными вложениями. Составьте ответ и нажмите кнопку Отправить, см. снимок экрана:

---

Ответить всем с оригинальными вложениями с помощью Kutools для Outlook

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

После установки Kutools для Outlookвыполните следующие действия:

1. Выберите сообщение, на которое хотите ответить всем с вложениями, и нажмите Kutools > Ответ с вложениями. См. снимок экрана:

2. Откроется окно ответа с исходными вложениями. Составьте сообщение и отправьте его — см. снимок экрана:

Нажмите, чтобы скачатьбесплатную версию Kutools для Outlook сейчас!