Note: The other languages of the website are Google-translated. Back to English

Kako natisniti priloge samo iz enega e-poštnega sporočila ali izbranih e-poštnih sporočil v Outlooku?

V Outlooku lahko natisnete e-poštna sporočila, vendar ste priloge natisnili samo iz enega ali izbranih e-poštnih sporočil v Outlooku? V tem članku predstavljam trike pri reševanju tega dela.

S hitrim tiskanjem tiskajte samo priloge iz enega e-poštnega sporočila

Natisnite samo priloge iz izbranih e-poštnih sporočil z VBA


S hitrim tiskanjem tiskajte samo priloge iz enega e-poštnega sporočila

Če želite priloge natisniti samo brez telesa e-pošte, lahko uporabite funkcijo hitrega tiskanja.

1. V oknu s sporočilom z desno miškino tipko kliknite prilogo, ki jo želite natisniti, izberite Hitri tisk iz kontekstnega menija.
priloga za tiskanje dokumentov 1

2. Nato kliknite Shrani > Shrani shranite datoteko s prilogami na mesto.
priloga za tiskanje dokumentov 2
priloga za tiskanje dokumentov 3

3. Zdaj pojdite na mesto, kamor ste postavili datoteko s prilogami, in jo odprite za tiskanje kot običajno.


Natisnite samo priloge iz izbranih e-poštnih sporočil z VBA

Če želite natisniti priloge iz izbranih e-poštnih sporočil, lahko uporabite kodo VBA.

1. Izberite e-poštna sporočila, ki jih želite natisniti, kliknite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.

2. Dvojni klik Ta OutlookSession iz Project1 podokno, kopirajte in prilepite spodnjo kodo v skript.

VBA: natisnite priloge iz izbranih e-poštnih sporočil

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

priloga za tiskanje dokumentov 4

3. Nato kliknite Orodja > Reference, in v Reference pogovorno okno, preverite Izvajanje Microsoftovih skriptov potrditveno polje.
priloga za tiskanje dokumentov 5   priloga za tiskanje dokumentov 6

4. klik OK, Nato pritisnite F5 tipko za skupno tiskanje vseh prilog v izbranih e-poštnih sporočilih.

Opombe: Če je priloga slika, se prikaže a Natisni slike najprej pogovorno okno, kliknite Tiskanje Pojdite na Save Print Out As dialog.
priloga za tiskanje dokumentov 7


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (4)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
kako lahko omogočim makre? Prejšnji teden je delovalo odlično.
Ta komentar je moderator na spletnem mestu minimiziral
Preizkusil sem možnost prilepljenja kode VBA z več e-poštnimi sporočili, vendar ko pritisnem F5, da jo zaženem, dobim napako v sintaksi z označeno to vrstico:
Če je xItem.Class = olMail Potem


Vse ideje?
Ta komentar je moderator na spletnem mestu minimiziral
Ali ste označili potrditveno polje Microsoft Scripting Runtime?
Ta komentar je moderator na spletnem mestu minimiziral
kako natisnete priloge v več e-poštnih sporočilih, vendar z določenim obsegom strani
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije