Как да отговоря на всички с оригинални прикачени файлове в Outlook?

Обикновено, когато приложите функцията Отговори на всички, за да отговорите на съобщението до всички получатели в Outlook, оригиналните прикачени файлове ще бъдат загубени автоматично. Възможно ли е да прикачвате оригинални прикачени файлове, когато отговаряте на всички в Outlook?

Отговорете на всички с оригинални прикачени файлове с VBA код

Отговорете на всички с оригинални прикачени файлове с Kutools за Outlook

Отговорете на всички с оригинални прикачени файлове с VBA код

Няма директна функция за справяне с тази задача в Outlook, но можете да приложите следния VBA код, за да я постигнете. Моля, направете следните стъпки:

1. Стартирайте Outlook и след това задръжте ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, щракнете два пъти ThisOutlookSession от Проект1(VbaProject.OTM) прозорец, за да отворите режима, и след това копирайте и поставете следния код в празния модул.

VBA код: Отговорете на всички с оригинални ahhachments:

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 за приложения прозорец, в изскочил Референции-Проект1 диалогов прозорец, проверете Microsoft Scripting Runtime опция от Налични препратки списъчно поле, вижте екранна снимка:

4. След това запазете и затворете прозореца на кода и след това можете да добавите макро бутона в Лента с инструменти за бърз достъп.

5. Отворете имейла, на който искате да отговорите с прикачен файл Събщение прозорец, след което изберете Още команди от Персонализирайте лентата с инструменти за бърз достъп падащо меню, вижте екранна снимка:

6. В Outlook Options диалогов прозорец, направете следните операции:

(1.) Изберете Макроси от Изберете команди от падащ списък;

(2.) Щракнете върху името на макроса, което сте вмъкнали току-що;

(3.) И след това щракнете Добави бутон за добавяне на макроса в Персонализирайте лентата с инструменти за бърз достъп.

7, След това кликнете OK за затваряне на диалоговия прозорец, сега бутонът за макрос е вмъкнат в Лента с инструменти за бърз достъп, вижте екранна снимка:

8. Сега щракнете върху бутона за макрос и се отваря прозорецът на отговорното съобщение с оригинални прикачени файлове, след това съставете отговорното съобщение и щракнете върху Изпрати бутон, вижте екранната снимка:

Отговорете на всички с оригинални прикачени файлове с Kutools за Outlook

Ако имате Kutools за Outlook, Със своята Отговорете на всички с прикачен файл можете да отговорите на всички с прикачени файлове само с едно кликване.

След инсталиране Kutools за Outlook, моля, направете следното:

1. Изберете съобщението, на което искате да отговорите с прикачени файлове, и след това щракнете Kutools > Отговорете с прикачен файл > Отговорете на всички с прикачен файл, вижте екранна снимка:

2. И прозорецът на съобщението за отговор се отваря с оригинални прикачени файлове, след това съставете вашето съобщение и го изпратете, вижте екранната снимка:

Щракнете, за да изтеглите Kutools за Outlook и безплатна пробна версия сега!

---

Най-добрите инструменти за продуктивност в офиса

Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook

🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...

📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP)  /  График за изпращане на имейли  /  Автоматично CC/BCC по правила при изпращане на имейл  /  Автоматично пренасочване (разширени правила)   /  Автоматично добавяне на поздрав   /  Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...

📨 Управление на Email: Лесно извикване на имейли  /  Блокиране на измамни имейли по теми и други  /  Изтриване на дублирани имейли  /  подробно търсене  /  Консолидиране на папки ...

📁 Прикачени файлове Pro: Пакетно запазване  /  Партидно отделяне  /  Партиден компрес  /  Автоматично запазване   /  Автоматично отделяне  /  Автоматично компресиране ...

🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони   /  Увеличете продуктивността на Outlook с изгледи с раздели  /  Минимизирайте Outlook, вместо да затваряте ...

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

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

Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.

Вижте повече       Безплатно сваляне      покупка