Hogyan válaszolhatok mindre az eredeti mellékletekkel az Outlookban?
Normális esetben, amikor a Válasz mindenkinek funkciót alkalmazza az üzenet megválaszolására az Outlook összes címzettjének, az eredeti mellékletek automatikusan elvesznek. Csatolhatók-e eredeti mellékletek, amikor mindenre válaszol az Outlook programban?
Válaszoljon mindet eredeti, VBA kóddal ellátott mellékletekkel
Válaszoljon az összes eredeti melléklettel a Kutools for Outlook segítségével
Válaszoljon mindet eredeti, VBA kóddal ellátott mellékletekkel
Az Outlook programban nincs közvetlen funkció a feladat kezelésére, de a következő VBA-kódot alkalmazhatja annak elérésére. Kérjük, tegye a következőket:
1. Indítsa el az Outlook programot, majd tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Az Microsoft Visual Basic for Applications ablakban kattintson duplán ThisOutlookSession tól Project1 (VbaProject.OTM) ablaktáblán nyissa meg a módot, majd másolja és illessze be a következő kódot az üres modulba.
VBA-kód: Válaszoljon eredeti szöveggel:
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. Kattintson a gombra Eszközök > Referenciák a Microsoft Visual Basic for Applications ablak, a kiugrott Referenciák-Projekt1 párbeszédpanelen ellenőrizze Microsoft Scripting Runtime lehetőség a Elérhető referenciák lista mező, lásd a képernyőképet:
4. Ezután mentse el és zárja be a kódablakot, majd hozzáadhatja a makró gombot a Gyorselérési eszköztár.
5. Nyissa meg azt az e-mailt, amelyre csatolva kíván válaszolni Üzenet ablakot, majd válassza a lehetőséget További parancsok tól A Gyorselérés eszköztár testreszabása legördülő menü, lásd a képernyőképet:
6. Az Outlook opciók párbeszédpanelen hajtsa végre a következő műveleteket:
(1.) Válassza ki makrók tól Válaszd ki a parancsokat legördülő lista;
(2.) Kattintson az imént beillesztett makró nevére;
(3.) Ezután kattintson hozzáad gombra kattintva hozzáadhatja a makrót a A Gyorselérés eszköztár testreszabása.
7. Ezután kattintson OK a párbeszédpanel bezárásához most beillesztette a makró gombot a Gyorselérési eszköztár, lásd a képernyőképet:
8. Kattintson a makró gombra, és megnyílik az eredeti mellékleteket tartalmazó válaszüzenet-ablak, majd írja be a válaszüzenetet, majd kattintson a Küldés gomb, lásd a képernyőképet:
Válaszoljon az összes eredeti melléklettel a Kutools for Outlook segítségével
Ha van Kutools az Outlook számára, Annak Válasz mindenre csatolva funkcióval, az összes mellékletet csak egy kattintással válaszolhatja meg.
Kutools az Outlook számára : több mint 100 praktikus Outlook-bővítménnyel, 60 nap alatt szabadon kipróbálható korlátozás nélkül. |
Telepítése után Kutools az Outlook számára, kérjük, tegye a következőket:
1. Válassza ki azt az üzenetet, amelyre az összes mellékletet meg szeretné adni, majd kattintson a gombra Kutools > Válaszoljon a Csatolással > Válasz mindenre csatolva, lásd a képernyőképet:
2. És a válaszüzenet ablak megnyílik eredeti mellékletekkel, majd írja össze az üzenetet és küldje el, lásd a képernyőképet:
Kattintson a Kutools for Outlook letöltéséhez és az ingyenes próbaverzióhoz most!
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.