Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com imprimir només els fitxers adjunts d'un correu electrònic o correus electrònics seleccionats a l'Outlook?

A Outlook, podeu imprimir els correus electrònics, però heu imprès els fitxers adjunts només des d'un correu electrònic o correus electrònics seleccionats a Outlook? En aquest article, presento els trucs per resoldre aquest treball.

Només imprimiu els fitxers adjunts d'un correu electrònic amb impressió ràpida

Només imprimiu els fitxers adjunts de correus electrònics seleccionats amb VBA

Missatge de resposta amb adjunts originals en perspectiva

Com tots sabem, els fitxers adjunts s'eliminaran del missatge original quan respongueu un missatge al destinatari a Outlook. Si voleu respondre massatges amb els fitxers adjunts, podeu provar-ho Kutools per Outlook's Respon amb l'adjunt funció, pot respondre un missatge amb els fitxers adjunts originals, també funciona per a tots els missafe. Feu clic per obtenir una prova gratuïta de 45 dies.
resposta doc amb el fitxer adjunt 1

doc fletxa cap avall
resposta doc amb el fitxer adjunt 2
Kutools for Outlook: amb desenes d'accessoris de Outlook útils, gratuïts per intentar sense limitacions en 45 dies.
Kutools per Outlook: 100 + Noves eines avançades per a Outlook.
Pestanya d'Office: Activa l'edició i la navegació amb pestanyes a l'oficina, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menú Classic: Porta menús antics i barres d'eines cap enrere a Office 2007, 2010, 2013, 2016 i 2019.

Només imprimiu els fitxers adjunts d'un correu electrònic amb impressió ràpida

Per imprimir els fitxers adjunts només sense el cos del correu electrònic, podeu utilitzar la funció d'impressió ràpida.

1. A la finestra del missatge, feu clic amb el botó secundari al fitxer adjunt que voleu imprimir, seleccioneu Impressió ràpida des del menú contextual.
adjunt de document imprès 1

2. A continuació, feu clic a Desar > Desar per desar el fitxer adjunt en una ubicació.
adjunt de document imprès 2
adjunt de document imprès 3

3. Ara vés a la ubicació on heu col·locat el fitxer adjunt i obre el fitxer per imprimir com de costum.


Només imprimiu els fitxers adjunts de correus electrònics seleccionats amb VBA

Si voleu imprimir els fitxers adjunts de correus electrònics seleccionats, podeu utilitzar el codi VBA.

1. Seleccioneu els correus electrònics que voleu imprimir els fitxers adjunts, premeu Alt + F11 claus per activar Microsoft Visual Basic per a aplicacions finestra.

2. Feu doble clic ThisOutlookSession de Project1 panell, copieu i enganxeu per sota del codi al script.

VBA: imprimiu fitxers adjunts de correus electrònics seleccionats

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

adjunt de document imprès 4

3. A continuació, feu clic a instruments > referències, i al referències diàleg, comprovar Microsoft Scripting Runtime casella de verificació.
adjunt de document imprès 5 adjunt de document imprès 6

4. clic OK, Premeu F5 clau per imprimir tots els fitxers adjunts als correus electrònics seleccionats a granel.

Nota: Si el fitxer adjunt és imatge, es mostrarà un Imprimir fotografies diàleg primer, feu clic a impressió per anar a la Desa la sortida d'impressió com a diàleg.
adjunt de document imprès 7



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l'anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    kevin · 5 months ago
    how can I enable the macro's? Last week it worked perfectly.