Cum să răspundeți tuturor cu atașamente originale în Outlook?
În mod normal, atunci când aplicați funcția Răspundeți tuturor pentru a răspunde mesajului la toți destinatarii din Outlook, atașamentele originale se vor pierde automat. Este posibil să atașați atașamente originale atunci când răspundeți la toate în Outlook?
Răspundeți tuturor cu atașamente originale cu cod VBA
Răspundeți tuturor cu atașamente originale cu Kutools pentru Outlook
Răspundeți tuturor cu atașamente originale cu cod VBA
Nu există nicio caracteristică directă pentru a face față acestei sarcini în Outlook, dar puteți aplica următorul cod VBA pentru a o realiza. Vă rugăm să faceți pașii de mai jos:
1. Lansați Outlook, apoi țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Această sesiune Outlook de la Project1 (VbaProject.OTM) pentru a deschide modul, apoi copiați și lipiți următorul cod în modulul gol.
Cod VBA: Răspundeți tuturor cu cuvinte originale:
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. Apoi faceți clic pe Instrumente > Referinte în Microsoft Visual Basic pentru aplicații fereastră, în fereastra ieșită Referințe-Proiect1 casetă de dialog, bifați Runtime Microsoft Scripting opțiune de la Referințe disponibile casetă listă, vezi captura de ecran:
4. Apoi salvați și închideți fereastra de cod și apoi puteți adăuga butonul macro în Bara de instrumente pentru acces rapid.
5. Deschideți adresa de e-mail în care doriți să răspundeți tuturor cu atașament Mesaj fereastra, apoi alegeți Mai multe comenzi de la Personalizați bara de instrumente cu acces rapid derulează, vezi captura de ecran:
6. În Opțiuni Outlook caseta de dialog, efectuați următoarele operații:
(1.) Selectați Macrocomenzi de la Alegeți comenzi de la lista verticală;
(2.) Faceți clic pe numele macro pe care l-ați inserat chiar acum;
(3.) Și apoi faceți clic pe Adăuga pentru a adăuga macro-ul în Personalizați bara de instrumente cu acces rapid.
7. Apoi apasa OK pentru a închide caseta de dialog, acum, butonul macro a fost introdus în Bara de instrumente pentru acces rapid, vezi captura de ecran:
8. Acum, faceți clic pe butonul macro și fereastra mesajului de răspuns cu atașamente originale este deschisă, apoi compuneți mesajul de răspuns și faceți clic pe Trimiteți buton, vezi captura de ecran:
Răspundeți tuturor cu atașamente originale cu Kutools pentru Outlook
Dacă aveţi Kutools pentru Outlook, Cu său Răspundeți tuturor cu atașament caracteristică, puteți răspunde tuturor cu atașamente cu un singur clic.
| Kutools pentru Outlook : cu mai mult de 100 de programe de completare Outlook la îndemână, încercați fără limitări în 60 de zile. |
După instalare Kutools pentru Outlook, vă rugăm să faceți acest lucru:
1. Selectați mesajul pe care doriți să-l răspundeți cu atașamente, apoi faceți clic pe Kutools > Răspundeți cu atașament > Răspundeți tuturor cu atașament, vezi captura de ecran:
2. Iar fereastra mesajului de răspuns este deschisă cu atașamente originale, apoi compuneți mesajul și trimiteți-l, vedeți captura de ecran:
Faceți clic pentru a descărca Kutools pentru Outlook și proba gratuită acum!
Cele mai bune instrumente de productivitate de birou
Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook
🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...
📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.
