Kako odgovoriti vsem z originalnimi prilogami v Outlooku?
Ko običajno uporabite funkcijo Odgovori vsem, da odgovorite na sporočilo vsem prejemnikom v Outlooku, se izvirne priloge samodejno izgubijo. Ali je mogoče pri odgovoru vsem v Outlooku priložiti izvirne priloge?
Odgovorite vsem z originalnimi prilogami s kodo VBA
Odgovorite vsem z originalnimi prilogami z Kutools za Outlook
Odgovorite vsem z originalnimi prilogami s kodo VBA
V Outlooku ni neposredne funkcije za reševanje te naloge, vendar lahko za doseganje uporabite naslednjo kodo VBA. Naredite spodnje korake:
1. Zaženite Outlook in pridržite ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession Iz Projekt1 (VbaProject.OTM) , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.
Koda VBA: Odgovori vsem z izvirnimi prizadevanji:
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. In nato kliknite Orodja > Reference v Microsoft Visual Basic za aplikacije okno, v izpuščenem Reference-Projekt1 pogovorno okno, preverite Izvajanje Microsoftovih skriptov možnost iz Razpoložljive reference seznam, glej posnetek zaslona:
4. Nato shranite in zaprite okno kode, nato pa lahko dodate makro gumb v Orodna vrstica za hitri dostop.
5. Odprite e-pošto, na katero želite odgovoriti s prilogo Sporočilo okno, nato izberite Več ukazov Iz Prilagodite orodno vrstico za hitri dostop spustni meni, glej posnetek zaslona:
6. v Outlook Možnosti v pogovornem oknu izvedite naslednje postopke:
(1.) Izberite Makri Iz Izberite ukaze iz spustni seznam;
(2.) Kliknite ime makra, ki ste ga pravkar vstavili;
(3.) In nato kliknite Dodaj gumb za dodajanje makra v Prilagodite orodno vrstico za hitri dostop.
7. Nato kliknite OK da zaprete pogovorno okno, zdaj je gumb makra vstavljen v Orodna vrstica za hitri dostop, glej posnetek zaslona:
8. Zdaj kliknite gumb makra in odpre se okno odgovornega sporočila z izvirnimi prilogami, nato sestavite odgovorno sporočilo in kliknite Pošlji gumb, glej posnetek zaslona:
Odgovorite vsem z originalnimi prilogami z Kutools za Outlook
Če imate Kutools za Outlook, Z njegovim Odgovori vsem s prilogo funkcijo, lahko vsem odgovorite s prilogami le z enim klikom.
| Kutools za Outlook : z več kot 100 priročnimi dodatki za Outlook, ki jih lahko brezplačno preizkusite v 60 dneh. |
Po namestitvi Kutools za Outlook, naredite tako:
1. Izberite sporočilo, na katerega želite odgovoriti s prilogami, in kliknite Kutools > Odgovorite s prilogo > Odgovori vsem s prilogo, glej posnetek zaslona:
2. Odpre se okno za odgovor z izvirnimi prilogami, nato sestavite svoje sporočilo in ga pošljite, glejte sliko zaslona:
Kliknite za prenos Kutools za Outlook in brezplačno preskusno različico zdaj!
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP) / Načrtujte pošiljanje e-pošte / Samodejna CC/BCC po pravilih pri pošiljanju e-pošte / Samodejno naprej (napredna pravila) / Samodejno dodaj pozdrav / E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...
📨 Email upravljanje: Enostaven priklic e-pošte / Blokiraj prevarantska e-poštna sporočila glede na teme in druge / Izbriši podvojena e-poštna sporočila / napredno iskanje / Združite mape ...
📁 Priloge Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / Minimizirajte Outlook, namesto da bi ga zaprli ...
???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami / E-poštna sporočila proti lažnemu predstavljanju / 🕘Pokaži pošiljateljev časovni pas ...
👩🏼🤝👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil / Razdelite skupino stikov na posamezne skupine / Odstranite opomnike za rojstni dan ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.
