VBA Print Outlook Item - PullRequest
Новая
       10

VBA Print Outlook Item

0 голосов
/ 31 января 2019

Я пытаюсь напечатать почтовый элемент Outlook и вложение в pdf-файлы.

Вручную, я мог выбрать вложения и нажать быструю печать, но я не знал, как этого добиться с помощью VBA.

В настоящее время я пытаюсь сохранить вложения на диск,но я не могу найти способ распечатать сохраненные файлы, поскольку вложения могут быть любого типа, например word, excel и images.

У меня есть код ниже для печати, но нет способа указатьпуть к файлу для распечатанных файлов.

Sub PrintAttachments(objMail As Outlook.MailItem, savedPath As String)
    Dim objAttachment As Outlook.Attachment
    Dim filePath As String
                Set xShellApp = CreateObject("Shell.Application")

        Set xNameSpace = xShellApp.Namespace(0)
    If objMail.Attachments.Count > 0 Then
        For x = 1 To objMail.Attachments.Count
            Set objAttachment = objMail.Attachments.Item(x)
            filePath = savedPath & objAttachment.fileName
            objAttachment.SaveAsFile filePath
            Set xNameSpaceItem = xNameSpace.ParseName(filePath)

            xNameSpaceItem.InvokeVerbEx ("print")
        Next x
    End If
End Sub

Обновление:

Есть ли какой-либо способ достичь функции, указанной ниже, программно.

Outlook -> Печать -> Microsoft Печать в PDF -> Параметры печати -> Печать вложенных файлов.

...