Hur svarar jag alla med originalbilagor i Outlook?
Normalt, när du använder funktionen Svara alla för att svara på meddelandet till alla mottagare i Outlook, kommer de ursprungliga bilagorna att gå förlorade automatiskt. Är det möjligt att bifoga originalbilagor när du svarar på alla i Outlook?
Svara alla med originaldelar med VBA-kod
Svara alla med originalbilagor med Kutools för Outlook
Svara alla med originaldelar med VBA-kod
Det finns ingen direkt funktion för att hantera denna uppgift i Outlook, men du kan använda följande VBA-kod för att uppnå den. Gör enligt nedanstående steg:
1. Starta Outlook och håll ned ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession från Project1 (VbaProject.OTM) rutan för att öppna läget och sedan kopiera och klistra in följande kod i den tomma modulen.
VBA-kod: Svara alla med original 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. Och klicka sedan på verktyg > Referensprojekt i Microsoft Visual Basic för applikationer fönster, i poppade ut Referenser-projekt1 dialogruta, kontrollera Microsoft Scripting Runtime alternativ från Tillgängliga referenser listruta, se skärmdump:
4. Spara och stäng sedan kodfönstret, och sedan kan du lägga till makroknappen i Snabbåtkomstverktygsfält.
5. Öppna e-postmeddelandet som du vill svara alla med bilaga i Meddelande fönster och välj sedan Fler kommandon från Anpassa snabbåtkomstverktygsfältet rullgardinsmeny, se skärmdump:
6. I Outlook-Val dialogrutan, gör följande:
(1.) Välj Makron från Välj kommandon från rullgardinsmeny;
(2.) Klicka på makronamnet som du precis har infogat;
(3.) Och klicka sedan på Lägg till för att lägga till makrot i Anpassa snabbåtkomstverktygsfältet.
7. Klicka sedan OK för att stänga dialogrutan, nu har makroknappen infogats i Snabbåtkomstverktygsfält, se skärmdump:
8. Klicka nu på makroknappen och svarsmeddelandefönstret med originalbilagor öppnas, skriv sedan svarsmeddelandet och klicka Skicka knapp, se skärmdump:
Svara alla med originalbilagor med Kutools för Outlook
Om du har Kutools för Outlook, med dess Svara alla med bilaga funktionen kan du svara alla med bilagor bara ett klick.
| Kutools för Outlook : med mer än 100 praktiska Outlook-tillägg, gratis att prova utan begränsning på 60 dagar. |
När du har installerat Kutools för Outlook, gör så här:
1. Välj meddelandet som du vill svara alla med bilagor och klicka sedan Kutools > Svara med bilaga > Svara alla med bilaga, se skärmdump:
2. Och svarsmeddelandefönstret öppnas med originalbilagor, komponera sedan ditt meddelande och skicka det, se skärmdump:
Klicka för att ladda ner Kutools for Outlook och gratis testversion nu!
Bästa kontorsproduktivitetsverktyg
Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...
📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.
