Note: The other languages of the website are Google-translated. Back to English

Hur behåller jag bilagor när du svarar i Outlook?

När vi vidarebefordrar ett e-postmeddelande i Microsoft Outlook finns originalbilagor i det här e-postmeddelandet kvar i det vidarebefordrade meddelandet. Men när vi svarar på ett e-postmeddelande bifogas inte de ursprungliga bilagorna i det nya svarsmeddelandet. Här ska vi introducera ett par knep för att behålla originalbilagor när du svarar i Microsoft Outlook.

Svara med bilagor genom att manuellt kopiera och klistra in
Svara med bilagor automatiskt av VBA
Ett klick för att svara med bilagor med Kutools för Outlook


Svara med bilagor genom att manuellt kopiera och klistra in

Vi kan kopiera originalbilagor manuellt i ett e-postmeddelande och klistra in dem i fönstret Svara meddelande när vi svarar e-postmeddelandet senare.

Steg 1: Klicka på e-postmeddelandet för att förhandsgranska det i läsfönstret.

Steg 2: Högerklicka på en bilaga i förhandsgranskningsmeddelandet och välj Markera allt från högerklickmenyn.

Steg 3: Högerklicka på de valda bilagorna och välj Kopiera från högerklickmenyn.

Steg 4: Svara på e-postmeddelandet genom att klicka på Svara knappen på Hem fliken (eller i verktygsfältet i Outlook 2007).

Steg 5: I fönstret Svara meddelande klickar du på Klistra in knappen på Meddelande fliken för att klistra in dessa bilagor.

Om du använder Outlook 2013 eller den senare versionen klickar du på Poppa ut längst upp till vänster i läsfönstret för att frigöra meddelandefönstret. Klicka för att veta mer ...

Steg 6: Skriv svaret och klicka på Skicka knapp.


Svara enkelt på e-post med originalbilagor i Outlook:

Kutools för Outlook's Svara med bilaga verktyget kan hjälpa dig att enkelt svara på ett mottaget e-postmeddelande med originalbilagorna i Outlook. Se nedanstående demo: 
Ladda ner och prova det nu! (60-dagars gratis spår)


Svara med bilagor automatiskt av VBA 

Det finns ett VBA-makro som kan hjälpa dig att svara automatiskt med originalbilagor.

Obs! Innan du kör några VBA-makron måste du aktivera makron i Microsoft Outlook.

Steg 1: Välj e-postmeddelandet som du ska svara med bilagorna.

Steg 2: Tryck på andra + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.

Steg 3: Expandera Project1- och Microsoft Outlook-objekten i det vänstra fältet och dubbelklicka på ThisOutlookSession för att öppna den.

Steg 4: Klistra in följande kod i fönstret 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

Steg 5: Tryck på F5 för att köra detta makro. I öppningen Makron dialogrutan, klicka RunReplyAllWithAttachments om du vill svara på alla med bilagor. Annars väljer du RunReplyWithAttachments, klicka sedan på run knapp.

Därefter öppnas fönstret Svarsmeddelande med bifogade alla originalbilagor.

Steg 6: Komponera det svarande meddelandet och klicka Skicka knapp.


Svara med bilagor automatiskt med Kutools för Outlook

Du har nu möjlighet Svara med Bifoga nytta av Kutools för Outlook kan hjälpa dig att svara på e-postmeddelanden med originalbilagor med bara ett klick.

Kutools för Outlook : med mer än 100+ praktiska Outlook-tillägg, gratis att prova utan begränsning på 60 dagar.

1. Välj e-postmeddelandet som innehåller bilagorna du behöver svara med.

2. Klicka sedan Kutools > Svara med bilaga > Svara med bilaga. Se skärmdump:

Sedan listas alla bilagor för valt e-postmeddelande i Fäst i svarsmeddelandet. Skriv din e-post och skicka den.

Om du vill ha en gratis testversion av det här verktyget, gå till ladda ner programvaran gratis först och sedan tillämpa operationen enligt ovanstående steg.


Ett klick för att svara med bilagor med Kutools för Outlook

  Om du vill ha en gratis testversion (60 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.


Relaterade artiklar:


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (24)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Team, Det finns ett sätt att köra detta makro med några kortkommandon i outlook.
Rituraj Sharma
Denna kommentar minimerades av moderatoren på webbplatsen
Ja. Under huvudalternativen kan du lägga till en utvecklarflik där du kan hitta makron. Och ännu bättre, om du högerklickar på remsan högst upp med alla knappar, de kallar detta ett "band", du kan lägga till en anpassad ny grupp och visa dina makron som knappar precis där på hemfliken.
mr
Denna kommentar minimerades av moderatoren på webbplatsen
Jag försöker använda svaret med bilagor men det lägger inte till bilagan, bara att hålla länken. Jag använder den automatiska bortkopplingen när mejl tas emot. Finns det en konfigurationsinställning som jag behöver uppdatera? Tack för din hjälp!
Susan Landes
Denna kommentar minimerades av moderatoren på webbplatsen
Kära Susan,

Bilagorna kommer inte att hittas i e-postmeddelandet längre eftersom de kopplas bort automatiskt från e-postmeddelandet. Vänligen stäng av den automatiska bortkopplingsfunktionen för att använda den här funktionen Svara med bilaga.

Med vänlig hälsning, Crystal.
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
hur stänger du av funktionen för automatisk bortkoppling
Dakota
Denna kommentar minimerades av moderatoren på webbplatsen
Kära Dakota,

Om du använder funktionen Koppla bort alla mottagande bilagor automatiskt i Kutools för Outlook, gör som nedanstående skärmdump för att stänga av den här funktionen genom att avmarkera den i din Outlook. Tack!
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har laddat ner Kutools-fliken. Kan jag lägga till "Svara med bilaga" på min startfliken eller i snabba steg?
jim
Denna kommentar minimerades av moderatoren på webbplatsen
Kära Jim,
Du kan högerklicka på knappen Svara med bilaga och välja "Lägg till i verktygsfältet Snabbåtkomst" för att lägga till den här funktionen i verktygsfältet Snabbåtkomst på menyfliksområdet. Se skärmdump:
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
I den sista delen av skriptet är många av variablerna inte definierade.
NMGMarques
Denna kommentar minimerades av moderatoren på webbplatsen
Jag använde VBA-kod men den bifogar alla bilder (.gif, jpg,...) i e-postinnehåll. Snälla visa mig hur jag löser detta problem?
Nhan Nguyen Tuan
Denna kommentar minimerades av moderatoren på webbplatsen
God dag,
Koden uppdateras i inlägget. Problemet är nu löst. Gör ett försök och tack för din kommentar.
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
Mycket trevligt, tack, men jag har kompilatorfel: Användardefinierad typ inte definierad. Det är markerat Dim xFSO Som Scripting.FileSystemObject i del Sub CopyAttachments
domkraft
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Honza,
Koden fungerar bra i mitt fall. Vilken Office-version använder du?
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
jag med. Jag har problemet med samma personer ovan. Jag använder Office 2016.
Hien
Denna kommentar minimerades av moderatoren på webbplatsen
Jag använder office 365 med samma fel
Rob
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Bob,
Snälla försök:
1. Tryck på Alt + F11-tangenterna för att öppna Microsoft Visual Basic for Applications-fönstret igen;
2. Klicka på Verktyg > Referenser och markera rutan Microsoft Scripting Runtime.
Nu kan koden fungera.
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
Det löser det för mig!

Tack.
httan
Denna kommentar minimerades av moderatoren på webbplatsen
Hej!

Tack så mycket för ett så bra verktyg!

Kan kommandot köras så att svarsfönstret inte dyker upp utan stannar i läsfönstret?
Alexey
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Alexey,
Vi har släppt en ny version med verktyget uppdaterat. Tack för ditt stöd.
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Crystal!

tack för uppdateringen!
hade makrokoden ändrats eller skulle den bara fungera med verktyget installerat?
Alexey
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Alexey,
Koden används ensam utan verktyget installerat.
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
Hi
Jag kommer att använda koden för att svara alla med bilagor i sökresultat från Alla brevlådor men det visar mig ett fel och fungerar inte.
låt mig veta hur jag ändrar koden så att den kan användas för alla brevlådor.

Med vänliga hälsningar
Shahrooz
Shahrooz Bral
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
Felet orsakas inte av sökningen.
För att undvika felet, klicka på Verktyg > Referenser för att öppna dialogrutan Referenser och aktivera sedan alternativet Microsoft Scripting Runtime. Se den bifogade bilden för stegen.
kristall
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Jag använder din kod för att svara vilket är bra, tack för att du gör den tillgänglig. Jag har mina e-postalternativ inställda på att inleda kommentarer med mina initialer, vilket fungerar när jag använder standardsvaret. När jag skapar ett svar med den här koden infogas inte mina initialer Kan du hjälpa snälla? Tack Steve
</div>
Steve
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0  Tecken
Föreslagna platser