Как да отпечатате само прикачен файл(и) от един имейл или избрани имейли в Outlook?
В Outlook можете да отпечатате имейлите, но отпечатали ли сте прикачените файлове само от един имейл или избрани имейли в Outlook? В тази статия представям триковете за решаване на тази задача.
Отпечатвайте прикачени файлове само от един имейл с Quick Print
Печат само на прикачени файлове от избрани имейли с VBA
Отпечатвайте прикачени файлове само от един имейл с Quick Print
За да отпечатате прикачените файлове само без тялото на имейла, можете да използвате функцията Бърз печат.
1. В прозореца на съобщението щракнете с десния бутон върху прикачения файл, който искате да отпечатате, изберете Бързо отпечатване от контекстното меню.
2. След това кликнете Save > Save за да запазите прикачения файл на място.
3. Сега отидете на мястото, където сте поставили прикачения файл, и отворете файла, за да го отпечатате както обикновено.
Печат само на прикачени файлове от избрани имейли с VBA
Ако искате да отпечатате прикачените файлове от избрани имейли, можете да използвате VBA код.
1. Изберете имейлите, към които искате да отпечатате прикачените файлове, натиснете Alt + F11 ключове за активиране Microsoft Visual Basic за приложения прозорец.
2. Кликнете два пъти ThisOutlookSession от Project1 прозорец, копирайте и поставете кода по-долу в скрипта.
VBA: Отпечатване на прикачени файлове от избрани имейли
Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
If xItem.Class = olMail Then
Set xMailItem = xItem
If xMailItem.Attachments.Count = 0 Then Exit Sub
Set xAttachments = xMailItem.Attachments
For Each xAttachment In xAttachments
xFilePath = xTmpFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
xTempFolderItem.InvokeVerbEx ("print")
Next
End If
Next
'If xFSO.FolderExists(xTmpFldPath) Then
' xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub
3. След това кликнете Инструменти > Препратки, и в Препратки диалог, проверка Microsoft Scripting Runtime отметката.
4. кликване OK, След това натиснете F5 клавиш за групово отпечатване на всички прикачени файлове в избраните имейли.
Забележка: Ако прикаченият файл е снимка, той ще изскочи a Печат на снимки първо щракнете върху диалоговия прозорец Изпринти за да отидете на Записване на печата като диалогов прозорец.
Най-добрите инструменти за продуктивност в офиса
Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook
🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...
📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP) / График за изпращане на имейли / Автоматично CC/BCC по правила при изпращане на имейл / Автоматично пренасочване (разширени правила) / Автоматично добавяне на поздрав / Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...
📨 Управление на Email: Лесно извикване на имейли / Блокиране на измамни имейли по теми и други / Изтриване на дублирани имейли / подробно търсене / Консолидиране на папки ...
📁 Прикачени файлове Pro: Пакетно запазване / Партидно отделяне / Партиден компрес / Автоматично запазване / Автоматично отделяне / Автоматично компресиране ...
🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони / Увеличете продуктивността на Outlook с изгледи с раздели / Минимизирайте Outlook, вместо да затваряте ...
???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове / Антифишинг имейли / 🕘Показване на часовата зона на подателя ...
👩🏼🤝👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли / Разделете група контакти на отделни групи / Премахнете напомнянията за рожден ден ...
Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.