Hvordan svarer man alt med originale vedhæftede filer i Outlook?
Normalt, når du anvender funktionen Svar alle til at besvare meddelelsen til alle modtagere i Outlook, går de originale vedhæftede filer automatisk tabt. Er det muligt at vedhæfte originale vedhæftede filer, når du svarer til alle i Outlook?
Svar alle med originale vedhæftede filer med VBA-kode
Svar alle med originale vedhæftede filer med Kutools til Outlook
Svar alle med originale vedhæftede filer med VBA-kode
Der er ingen direkte funktion til at håndtere denne opgave i Outlook, men du kan anvende følgende VBA-kode for at opnå det. Benyt nedenstående trin:
1. Start Outlook, og hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. I Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession fra Project1 (VbaProject.OTM) rude for at åbne tilstanden og derefter kopiere og indsætte følgende kode i det tomme modul.
VBA-kode: Svar alle med originale 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. Og klik derefter på Værktøjer > Referencer i Microsoft Visual Basic til applikationer vindue, i poppet ud Referencer-projekt1 dialogboks, tjek Microsoft Scripting Runtime mulighed fra Tilgængelige referencer listefelt, se skærmbillede:
4. Gem og luk derefter kodevinduet, og så kan du tilføje makroknappen til Hurtig adgangs værktøjslinje.
5. Åbn den e-mail, som du vil besvare alle med vedhæftet fil Besked vindue, og vælg derefter Flere kommandoer fra Tilpas værktøjslinjen Hurtig adgang drop down, se skærmbillede:
6. I Outlook Options i dialogboksen, skal du udføre følgende handlinger:
(1.) Vælg Makroer fra Vælg kommandoer fra rulleliste
(2.) Klik på makronavnet, som du lige har indsat;
(3.) Og klik derefter på Tilføj knappen for at tilføje makroen til Tilpas værktøjslinjen Hurtig adgang.
7. Klik derefter på OK for at lukke dialogboksen, nu er makroknappen blevet indsat i Hurtig adgangs værktøjslinje, se skærmbillede:
8. Klik nu på makroknappen, og svarmeddelelsesvinduet med originale vedhæftede filer åbnes, komponer derefter svarmeddelelsen, og klik Send knap, se skærmbillede:
Svar alle med originale vedhæftede filer med Kutools til Outlook
Hvis du har Kutools til Outlook, Med Besvar alle med vedhæftet fil funktion, kan du svare alle med vedhæftede filer med kun ét klik.
Kutools til Outlook : med mere end 100 praktiske Outlook-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 60 dage. |
Efter installation Kutools til Outlookskal du gøre som dette:
1. Vælg den besked, som du vil besvare alle med vedhæftede filer, og klik derefter Kutools > Svar med vedhæftet fil > Besvar alle med vedhæftet fil, se skærmbillede:
2. Og svarmeddelelsesvinduet åbnes med originale vedhæftede filer, og komponer derefter din besked og send den, se skærmbillede:
Klik for at downloade Kutools til Outlook og gratis prøveversion nu!
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.