VBA i Outlook 365

Det ville hjælpe hvis vi ser VBAen :-)

Jeg er sikker på at det måske er en .with sætning som skal have tilføjet en linje, se blandt andet her:
https://docs.microsoft.com/en-us/office/vba/api/excel.sheets.printout

dette er hvad jeg har fundet indtil videre, men som sagt den kan ikke udskrive Side 2 i vedhæftningen

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

Din VBA gemmer vedhæftningen i en temp folder og printer dem derfra. Det er muligvis den sidste linje:
xTempFolderItem.InvokeVerbEx ("print")
du skal lave lidt omkring på, men jeg kender ikke InvokeVerbEx koden. Så det er svært at overveje om du kan gøre noget for at printe. Så vidt jeg kan læse mig til så er den blot en form for program eksekvering der svarer til at trykke ctrl+p. Kommer der dialogboks op med print - eller printer den bare?

Jeg ville nok overveje at bruge en anden form for print, men hvilken type filer er vedhæftningerne? Måske det giver mening at samle dem som en pdf eller måske bare åbne dem enkeltvis og printe side 2.

Det er som oftest pdf´er, og der er mange mails der skal åbnes og side 2 printes, derfor denne tanke.

Der kommer en dialogbox op med print når jeg trykker F5

Jeg beklager jeg ikke kan være til mere hjælp :-) Jeg håber nogle andre har mere styr på den form for print.

tak for indsatsen