Jak odpovědět všem na původní přílohy v Outlooku?
Stiskli jste někdy v aplikaci Outlook „Odpovědět všem“ a ztratili jste původní přílohy? Je to frustrující! Zajímá vás, jak zachovat tyto přílohy, když odpovídáte všem? Ano, je to možné! Pojďme prozkoumat, jak do odpovědí zahrnout původní přílohy, aby byla správa e-mailů bezproblémová a efektivní. Zůstaňte naladěni!
Odpovězte všem s originálními přílohami s kódem VBA
Odpovězte všem pomocí originálních příloh pomocí aplikace Kutools pro aplikaci Outlook
Odpovězte všem s originálními přílohami s kódem VBA
V Outlooku není k dispozici žádná přímá funkce pro řešení tohoto úkolu, ale k jeho dosažení můžete použít následující kód VBA. Postupujte podle následujících kroků:
1. Spusťte aplikaci Outlook a poté podržte klávesu ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.
Kód VBA: Odpovědět všem s originálními 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. A pak klikněte na tlačítko Tools > Reference v Microsoft Visual Basic pro aplikace okno, ve vyskakovacím okně Reference-Project1 v dialogovém okně zaškrtněte Microsoft Scripting Runtime možnost z nabídky Dostupné reference seznam, viz screenshot:
4. Poté uložte a zavřete okno kódu a poté můžete přidat tlačítko makra do Panel nástrojů Rychlý přístup.
5. Otevřete e-mail, na který chcete odpovědět, s přílohou Zpráva okno, pak vyberte Další příkazy z Přizpůsobte panel nástrojů Rychlý přístup rozbalovací nabídka, viz screenshot:
6. V Možnosti aplikace Outlook dialogové okno, proveďte následující operace:
(1.) Vyberte makra z Vyberte příkazy z rozbalovací seznam;
(2.) Klikněte na název makra, které jste právě vložili;
(3.) A pak klikněte přidat tlačítko pro přidání makra do Přizpůsobte panel nástrojů Rychlý přístup.
7. Pak klikněte na tlačítko OK pro zavření dialogového okna, nyní bylo makro tlačítko vloženo do Panel nástrojů Rychlý přístup, viz screenshot:
8. Nyní klikněte na tlačítko makra a otevře se okno odpovědní zprávy s původními přílohami, poté vytvořte odpověď a klikněte na Odeslat tlačítko, viz screenshot:
Odpovězte všem pomocí originálních příloh pomocí aplikace Kutools pro aplikaci Outlook
Pokud máte Kutools pro aplikaci Outlook, S jeho Odpovědět všem s přílohou Můžete odpovědět všem přílohami pouze jedním kliknutím.
Odemkněte maximální efektivitu e-mailu s Kutools pro aplikaci Outlook! Přístup 70 výkonné funkce zcela zdarma, navždy. Stáhněte si bezplatnou verzi nyní!
Po instalaci Kutools pro aplikaci Outlook, udělejte prosím toto:
1. Vyberte zprávu, na kterou chcete odpovědět všem přílohami, a potom klikněte Kutools > Odpovědět všem s originální přílohou, viz screenshot:
2. Otevře se okno odpovědi s původními přílohami, poté vytvořte zprávu a odešlete ji, viz snímek obrazovky:
Kliknutím stáhnete Bezplatná verze Kutools pro Outlook teď!
Nejlepší nástroje pro produktivitu v kanceláři
Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!
Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!
???? Automatizace e-mailu: Automatická odpověď (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Připomenout e-maily / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Připomeňte si, když přijdou důležité e-maily / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
