Salt la conținutul principal

Cum să păstrați atașamentele atunci când răspundeți în Outlook?

Când redirecționăm un mesaj de e-mail în Microsoft Outlook, atașamentele originale din acest mesaj de e-mail rămân în mesajul redirecționat. Cu toate acestea, atunci când răspundem la un mesaj de e-mail, atașamentele originale nu vor fi atașate în noul mesaj de răspuns. Aici vom introduce câteva trucuri despre păstrarea atașamentelor originale atunci când răspundem în Microsoft Outlook.

Răspundeți cu atașamente prin copierea și lipirea manuală
Răspundeți automat cu atașamente de către VBA
Un singur clic pentru a răspunde cu atașamente cu Kutools pentru Outlook


Răspundeți cu atașamente prin copierea și lipirea manuală

Putem copia manual atașamentele originale într-un mesaj de e-mail și le putem lipi în fereastra Răspuns mesaj atunci când răspundem la mesajul de e-mail mai târziu.

Pasul 1: Faceți clic pe mesajul de e-mail pentru a-l previzualiza în Panoul de citire.

Pasul 2: Faceți clic dreapta pe un atașament în previzualizarea mesajului de e-mail și selectați Selectați Toate din meniul cu clic dreapta.

Pasul 3: Faceți clic dreapta pe atașamentele selectate și selectați Copiați din meniul cu clic dreapta.

Pasul 4: Răspundeți mesajului de e-mail făcând clic pe răspuns Butonul de pe Inițial (sau pe Bara de instrumente din Outlook 2007).

Pasul 5: În fereastra mesajului de răspuns, faceți clic pe Pastă Butonul de pe Mesaj pentru a lipi aceste atașamente.

Dacă utilizați Outlook 2013 sau versiunea ulterioară, faceți clic pe Pop Out în colțul din stânga sus al Panoului de lectură pentru a elibera fereastra mesajului Răspuns. Faceți clic pentru a afla mai multe ...

Pasul 6: Compuneți mesajul de răspuns și faceți clic pe Trimiteți butonul.


Răspundeți cu ușurință la e-mail cu atașamente originale în Outlook:

Kutools pentru Outlook's Răspundeți cu atașament utilitarul vă poate ajuta să răspundeți cu ușurință unui e-mail primit cu atașamentele originale din Outlook. Vedeți demo-ul de mai jos: 
Descărcați și încercați acum! (traseu gratuit de 60 de zile)


Răspundeți automat cu atașamente de către VBA 

Există o macrocomandă VBA care vă poate ajuta să răspundeți automat cu atașamente originale.

Notă: Înainte de a rula orice macrocomenzi VBA, trebuie activați macrocomenzile în Microsoft Outlook.

Pasul 1: Selectați mesajul de e-mail pe care îl veți răspunde cu atașamentele acestuia.

Pasul 2: Apăsați tasta Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

Pasul 3: Extindeți obiectele Project1 și Microsoft Outlook în bara din stânga și faceți dublu clic pe Această sesiune Outlook să o deschidă.

Pasul 4: lipiți următorul cod în fereastra ThisOutlookSession.

Sub RunReplyWithAttachments()
'Update by Extendoffice 20180830
    Dim xReplyItem As Outlook.MailItem
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyItem = xItem.Reply
    CopyAttachments xItem, xReplyItem
    xReplyItem.Display
    Set xReplyItem = Nothing
    Set xItem = Nothing
End Sub
Sub RunReplyAllWithAttachments()
    Dim xReplyAllItem As Outlook.MailItem
    Dim xItem As Object
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyAllItem = xItem.ReplyAll
    CopyAttachments xItem, xReplyAllItem
    xReplyAllItem.Display
    Set xReplyAllItem = Nothing
    Set xItem = Nothing
End Sub
    
Function GetCurrentItem() As Object
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = Application.ActiveInspector.currentItem
    End Select
End Function
    
Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
    Dim xFilePath As String
    Dim xAttachment As Attachment
    Dim xFSO As Scripting.FileSystemObject
    Dim xTmpFolder As Scripting.Folder
    Dim xFldPath As String
    Set xFSO = New Scripting.FileSystemObject
    Set xTmpFolder = xFSO.GetSpecialFolder(2)
    xFldPath = xTmpFolder.Path & "\"
    For Each xAttachment In SourceItem.Attachments
        If IsEmbeddedAttachment(xAttachment) = False Then
            xFilePath = xFldPath & xAttachment.Filename
            xAttachment.SaveAsFile xFilePath
            TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
            xFSO.DeleteFile xFilePath
        End If
    Next
    Set xFSO = Nothing
    Set xTmpFolder = 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

Pasul 5: Apăsați tasta F5 tasta pentru a rula această macro. În deschidere Macrocomenzi casetă de dialog, faceți clic pe RunReplyAllWithAttachments dacă doriți să răspundeți tuturor cu atașamente. În caz contrar, selectați RunReplyWithAttachments, apoi faceți clic pe Alerga butonul.

Apoi deschide fereastra mesajului Răspuns cu atașarea tuturor atașamentelor originale.

Pasul 6: Compuneți mesajul de răspuns și faceți clic Trimiteți butonul.


Răspundeți automat cu atașamente cu Kutools pentru Outlook

Răspunde cu Atașează utilitatea Kutools pentru Outlook vă poate ajuta să răspundeți la e-mailuri cu atașamente originale cu un singur clic.

Kutools pentru Outlook : cu mai mult de 100 de programe de completare Outlook utile, liber să încercați fără limitări în 60 de zile.

1. Selectați e-mailul conține atașamentele cu care trebuie să răspundeți.

2. Apoi apasa Kutools > Răspundeți cu atașament > Răspundeți cu atașament. Vedeți captura de ecran:

Apoi toate atașamentele e-mailului selectat sunt listate în Atașat câmpul mesajului de răspuns. Compuneți e-mailul și trimiteți-l.

Dacă doriți să aveți o încercare gratuită a acestui utilitar, vă rugăm să accesați descărcați gratuit software-ul mai întâi, apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Un singur clic pentru a răspunde cu atașamente cu Kutools pentru Outlook

  Dacă doriți să aveți o perioadă de încercare gratuită (60 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Legate de articole:


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

📧 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 ProSalvaț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.

 

 

Comments (26)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ciao, la macro funziona. Peccato che risponde solo al mittente, allegando gli allegati, e non a tutte le persone presenti in una mail. come si potrebbe modificare per aggiungere questa seconda funzione?

grazie mille
This comment was minimized by the moderator on the site
Buna ziua!

Exista posibilitatea de a da reply all la un email care are persoane in bcc?

Multumesc!
This comment was minimized by the moderator on the site
Hi, I am using your code for reply which is great, thank you form making it available.I have my mail options set to preface comments with my initials which works when I use the standard reply. When I create a reply using this code my intials are not inserted Can you assist please?ThanksSteve
This comment was minimized by the moderator on the site
Hi
I am going to use the code to reply all with attachments in search results from All Mailboxes but it shows me an error and does not work.
please let me know how to change the code to be usable for All Mailboxes.

Best regards
Shahrooz
This comment was minimized by the moderator on the site
Hi,
The error does not cause by the search.
To avoid the error, please click Tools > References to open the References dialog, and then enable the Microsoft Scripting Runtime option. See the attached image for the steps.
This comment was minimized by the moderator on the site
Hi!

Thanks a lot for such a great tool!

Can the command be ran so that the reply window won't pop-up but stay in reading pane view?
This comment was minimized by the moderator on the site
Hi Alexey,
We have released a new version with the tool updated. Thank you for your support.
This comment was minimized by the moderator on the site
Hi Crystal!

thanks for update!
had the macro code changed or it would work only with tool installed?
This comment was minimized by the moderator on the site
Hi Alexey,
The code is used alone without the tool installed.
This comment was minimized by the moderator on the site
Very nice, thanks, but I have compiler error: User-defined type not defined. There is highlighted Dim xFSO As Scripting.FileSystemObject in part Sub CopyAttachments
This comment was minimized by the moderator on the site
Hi Honza,
The code works well in my case. Which Office version do you use?
This comment was minimized by the moderator on the site
me too. I have the problem with the same people above. I use Office 2016.
This comment was minimized by the moderator on the site
I am using office 365 with the same error
This comment was minimized by the moderator on the site
Hi Bob,
Please try:
1. Press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window again;
2. Click Tools > References, and check the Microsoft Scripting Runtime box.
Now the code can work.
This comment was minimized by the moderator on the site
That solve it for me!

Thanks.
This comment was minimized by the moderator on the site
I used VBA code but it attaches with all image (.gif, jpg,...) in email content. Pls show me how to solve this problem?
This comment was minimized by the moderator on the site
Good Day,
The code is updated in the post. The problen now is solved. Please have a try and thanks for your comment.
This comment was minimized by the moderator on the site
In the last part of the script, many of the variables are not defined.
This comment was minimized by the moderator on the site
I have downloaded the Kutools tab. Can I add the 'Reply with Attachment' to my home tab or to Quick Steps??
This comment was minimized by the moderator on the site
Dear Jim,
You can right click the Reply with Attachment button, and select the "Add to Quick Access Toolbar" to add this function to the Quick Access Toolbar on the Ribbon. See screenshot:
This comment was minimized by the moderator on the site
I am trying to use the Reply with Attachments but it isn't adding the attachment, just keeping the link. I use the automatic detach when email is received. Is there a configuration setting that I need to update? Thank you for your help!
This comment was minimized by the moderator on the site
Dear Susan,

The attachments won't locate in the email any more as they are detached automatically from the email. Please turn off the auto detach feature for the sake of using this Reply with Attachment feature.

Best Regards, Crystal.
This comment was minimized by the moderator on the site
how do you turn off the auto detach feature
This comment was minimized by the moderator on the site
Dear Dakota,

If you are using the Auto detach all receiving attachments feature of Kutools for Outlook, please do as below screenshot shown to turn off this feature by unchecking it in your Outlook. Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations