Jak odpovědět všem na původní přílohy v Outlooku?

Normálně, když použijete funkci Odpovědět všem k odpovědi na zprávu všem příjemcům v aplikaci Outlook, původní přílohy budou automaticky ztraceny. Je možné připojit původní přílohy, když odpovíte na všechny v aplikaci Outlook?

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 Poslat 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.

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ězte s přílohou > Odpovědět všem s 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:

Klikněte a stáhněte si Kutools pro Outlook a bezplatnou zkušební verzi hned teď!

---

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...

???? Automatizace e-mailu: Mimo kancelář (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: Snadné vyvolání e-mailů  /  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ů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  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 ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup