Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i argraffu atodiad (au) yn unig o un e-bost neu e-byst dethol yn Outlook?

Yn Outlook, gallwch argraffu'r e-byst, ond a ydych chi wedi argraffu'r atodiadau o un e-bost neu e-byst dethol yn Outlook yn unig? Yn yr erthygl hon, rwy'n cyflwyno'r triciau ar ddatrys y swydd hon.

Argraffwch atodiad (au) yn unig o un e-bost gydag Argraffu Cyflym

Argraffwch atodiad (au) yn unig o e-byst dethol gyda VBA


Argraffwch atodiad (au) yn unig o un e-bost gydag Argraffu Cyflym

I argraffu'r atodiadau yn unig heb gorff e-bost, gallwch ddefnyddio'r swyddogaeth Argraffu Cyflym.

1. Yn y ffenestr neges, cliciwch ar y dde ar yr atodiad rydych chi am ei argraffu, dewiswch Argraffu Cyflym o'r ddewislen cyd-destun.
atodiad print doc 1

2. Yna cliciwch Save > Save i gadw'r ffeil atodi mewn lleoliad.
atodiad print doc 2
atodiad print doc 3

3. Nawr ewch i'r lleoliad y gwnaethoch chi osod y ffeil atodi, ac agor y ffeil i'w hargraffu fel arfer.


Argraffwch atodiad (au) yn unig o e-byst dethol gyda VBA

Os ydych chi am argraffu'r atodiadau o e-byst dethol, gallwch ddefnyddio cod VBA.

1. Dewiswch yr e-byst rydych chi am argraffu'r atodiadau, pwyswch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch ddwywaith ThisOutlookSession o Project1 cwarel, copïo a gludo islaw'r cod i'r sgript.

VBA: Argraffu atodiadau o e-byst dethol

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

atodiad print doc 4

3. Yna cliciwch offer > cyfeiriadau, ac yn y cyfeiriadau deialog, gwirio Microsoft Scripting Runtime checkbox.
atodiad print doc 5   atodiad print doc 6

4. Cliciwch OK, yna pwyswch F5 allwedd i argraffu pob atodiad yn yr e-byst a ddewiswyd mewn swmp.

Nodyn: Os yw'r atodiad yn llun, bydd yn popio allan a Argraffu Lluniau deialog yn gyntaf, cliciwch print i fynd i'r Arbed Argraffwch Allbwn Fel deialog.
atodiad print doc 7


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
Say something here...
symbols left.
You are guest
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.
    Joe · 1 months ago
    how do you print attachments in multiple emails but with a certain page range
  • To post as a guest, your comment is unpublished.
    Travis · 1 years ago
    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?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Have you check the Microsoft Scripting Runtime checkbox?
  • To post as a guest, your comment is unpublished.
    kevin · 3 years ago
    how can I enable the macro's? Last week it worked perfectly.