Skip to main content

Conas ceangaltán / iatáin a phriontáil ó r-phost amháin nó ríomhphoist roghnaithe in Outlook?

In Outlook, is féidir leat na ríomhphoist a phriontáil, ach an bhfuil na ceangaltáin priontáilte agat ó r-phost amháin nó ríomhphoist roghnaithe in Outlook? San alt seo, tugaim isteach na cleasanna ar réiteach an phoist seo.

Ná ceangail ach ceangaltáin (í) ó r-phost amháin le Quick Print

Ná ceangail ach iatáin ó ríomhphoist roghnaithe le VBA


Ná ceangail ach ceangaltáin (í) ó r-phost amháin le Quick Print

Chun na ceangaltáin a phriontáil gan comhlacht ríomhphoist amháin, is féidir leat an fheidhm Tapa Priontála a úsáid.

1. I bhfuinneog na teachtaireachta, cliceáil ar dheis ag an gceangaltán a theastaíonn uait a phriontáil, roghnaigh Priontáil Thapa ón roghchlár comhthéacs.
ceangaltán priontála doc 1

2. Ansin cliceáil Sábháil > Sábháil chun an comhad ceangail a shábháil in áit.
ceangaltán priontála doc 2
ceangaltán priontála doc 3

3. Anois téigh go dtí an áit ar chuir tú an comhad ceangail, agus oscail an comhad le priontáil mar is gnách.


Ná ceangail ach iatáin ó ríomhphoist roghnaithe le VBA

Más mian leat na ceangaltáin a phriontáil ó ríomhphoist roghnaithe, is féidir leat cód VBA a úsáid.

1. Roghnaigh na ríomhphoist is mian leat na ceangaltáin a phriontáil, brúigh Alt + F11 eochracha le cumasú Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil dúbailte ThisOutlookSession ó Project1 pána, cóipeáil agus greamaigh thíos an cód leis an script.

VBA: Priontáil ceangaltáin ó ríomhphoist roghnaithe

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

ceangaltán priontála doc 4

3. Ansin cliceáil uirlisí > tagairtí, agus sa tagairtí dialóg, seiceáil Microsoft Scripting Runtime ticbhosca.
ceangaltán priontála doc 5   ceangaltán priontála doc 6

4. cliceáil OK, ansin brúigh F5 eochair chun gach ceangaltán sna ríomhphoist roghnaithe a phriontáil ar an mórchóir.

nótaí: Más pictiúr é an ceangaltán, popfaidh sé amach a Priontáil Pictiúir dialóg ar dtús, cliceáil Print dul go dtí an Sábháil Aschur Priontáil Mar dialóg.
ceangaltán priontála doc 7


Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú

🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...

📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin ProSábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.

 

 

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