Перейти до основного матеріалу

Як надрукувати вкладені файли з одного електронного листа чи вибраних електронних листів у програмі Outlook?

В Outlook ви можете роздрукувати електронні листи, але чи надрукували ви вкладення лише з одного електронного листа чи вибраних електронних листів у Outlook? У цій статті я представляю трюки з вирішення цієї роботи.

Друкуйте вкладення (файли) лише з одного електронного листа за допомогою функції швидкого друку

Друкувати лише вкладення (файли) із вибраних електронних листів із VBA


Друкуйте вкладення (файли) лише з одного електронного листа за допомогою функції швидкого друку

Щоб надрукувати вкладення лише без основного повідомлення електронної пошти, можна скористатися функцією швидкого друку.

1. У вікні повідомлення клацніть правою кнопкою миші на вкладення, яке потрібно надрукувати, виберіть Швидкий друк з контекстного меню.
вкладення для друку документа 1

2 Потім натисніть зберегти > зберегти щоб зберегти файл вкладення в місці.
вкладення для друку документа 2
вкладення для друку документа 3

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

вкладення для друку документа 4

3 Потім натисніть Tools > посилання, і в посилання діалогове вікно, перевірте Виконання сценаріїв Microsoft прапорець.
вкладення для друку документа 5   вкладення для друку документа 6

4. клацання OK, Потім натисніть F5 для друку всіх вкладень у вибраних електронних листах.

примітки: Якщо вкладення є зображенням, воно вискакує a Друк зображень спочатку натисніть друк йти до Зберегти роздруківку як діалог
вкладення для друку документа 7


Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення ProПакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

👩🏼‍🤝‍👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів  /  Розділіть групу контактів на окремі групи  /  Видаліть нагадування про день народження ...

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how do you print attachments in multiple emails but with a certain page range
This comment was minimized by the moderator on the site
I tried the multiple emails option of pasting the VBA code, but when I press F5 to run it, I get a syntax error with this line highlighted:
If xItem.Class = olMail Then


Any ideas?
This comment was minimized by the moderator on the site
Have you check the Microsoft Scripting Runtime checkbox?
This comment was minimized by the moderator on the site
how can I enable the macro's? Last week it worked perfectly.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations