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.