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

Sut i argraffu pob atodiad mewn un e-bost / lluosog yn Outlook?

Fel y gwyddoch, dim ond pan fyddwch chi'n clicio ar y bydd yn argraffu'r cynnwys e-bost fel pennawd, corff ffeil > print yn Microsoft Outlook, ond nid argraffu'r atodiadau. Yma byddwn yn dangos i chi sut i argraffu pob atodiad mewn e-bost dethol yn gartrefol yn Microsoft Outlook.


Argraffwch bob atodiad mewn un neges e-bost fesul un

Mae Microsoft Outlook yn darparu Argraffu Cyflym nodwedd, a all eich helpu i argraffu atodiadau mewn neges e-bost fesul un.

1. Dewiswch y neges e-bost y byddwch chi'n argraffu ei atodiadau yn nes ymlaen.

2. Cliciwch un atodiad yn yr e-bost hwn.

3. Cliciwch y Argraffu Cyflym botwm yn y Camau Gweithredu grŵp ar y Ymlyniadau tab.

Sylwch: mae'r Offer Ymlyniad ni fydd yn cael ei actifadu nes i chi glicio atodiadau mewn e-byst.

4. Mae deialog Agor Ymlyniad Post yn dod allan, a chliciwch ar y agored botwm.

Sylwch y bydd y cam hwn yn agor yr atodiad a ddewiswyd, ac yn argraffu'r atodiad dethol hwn ar yr un pryd.

I argraffu atodiadau eraill yn yr e-bost hwn, ailadroddwch Gam 2 i Gam 4.

Cadw / allforio pob atodiad yn gyflym o sawl e-bost yn Outlook

Fel rheol gallwn arbed atodiadau o un e-bost trwy actifadu'r Offer Ymlyniad a chymhwyso'r Arbedwch yr holl Atodiadau nodwedd yn Outlook. Ond, beth os arbed atodiadau o sawl e-bost, neu o'r ffolder post gyfan yn Outlook? Rhowch gynnig ar Kutools ar gyfer Outlook's Arbed i Bawb Nodwedd (Atodiadau). Cliciwch am dreial 60 diwrnod am ddim heb gyfyngiad!
arbed atodiadau mewn sawl e-bost kto9

Argraffu swp pob atodiad mewn un neges e-bost

Os oes llawer o atodiadau yn yr un neges e-bost, bydd yn cymryd llawer o amser i'w hargraffu fesul un. A bydd y dull canlynol yn eich arwain trwy argraffu swp yr holl atodiadau mewn neges e-bost a ddewiswyd yn hawdd.

1. Dewiswch y neges e-bost y byddwch chi'n argraffu ei atodiadau yn nes ymlaen.

2. Yn Outlook 2010 neu fersiynau diweddarach, cliciwch y ffeil > print > Dewisiadau Argraffu. Gweler y screenshot canlynol:

3. Yn y Argraffu blwch deialog, gwiriwch y Argraffu ffeiliau atodedig. Bydd atodiadau'n argraffu i'r argraffydd rhagosodedig yn unig opsiwn yn y Argraffu opsiynau adran hon.

4. Cliciwch y print botwm.

5. Yn y blwch deialog popio allan Ymlyniad Post Agoriadol, cliciwch ar y agored botwm i fynd ymlaen. (Nodyn: Bydd y blwch deialog hwn yn popio allan ar gyfer pob atodiad ar wahân.)

Nawr bydd yr holl atodiadau yn y neges e-bost hon a ddewiswyd yn cael eu hargraffu ar unwaith.


Argraffu swp yr holl atodiadau a lluniau mewn negeseuon e-bost dethol lluosog

I argraffu pob atodiad mewn negeseuon e-bost lluosog yn ogystal â'r holl luniau yn y corff neges yn Outlook, dilynwch y camau isod i gymhwyso cod VBA.

1. Yn y rhestr bostio, daliwch os gwelwch yn dda Ctrl or Symud allweddi i ddewis e-byst lluosog y byddwch yn argraffu eu hatodiadau.

2. Gwasgwch Alt + F11 allweddi gyda'i gilydd i agor ffenestr Microsoft Visual Basic for Applications.

3. Yn ffenestr Microsoft Visual Basic for Applications, cliciwch offer > cyfeiriadau. Ac yna gwiriwch y Amser Rhedeg Sgriptio Microsoft opsiwn fel y dangosir isod. Ar ôl gorffen, cliciwch OK.

4. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i mewn i ffenestr y modiwl newydd.

VBA: Argraffwch bob atodiad mewn sawl e-bost Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5. Gwasgwch F5 allwedd neu cliciwch y Run botwm i redeg y cod VBA hwn. Nawr fe welwch fod yr holl atodiadau yn y negeseuon e-bost a ddewiswyd a'r lluniau yn y corff meesage wedi'u hargraffu.

Nodyn:

  • Bydd pob delwedd yn dod â blwch deialog pop-up i ofyn am gadarnhad argraffu. Tra bydd mathau eraill o ffeiliau yn cael eu hargraffu'n uniongyrchol.
  • Os oes delweddau mewn llofnod e-bost, byddant yn dod â blychau deialog naid i fyny hefyd.
  • Os cewch Mae'r macros yn y prosiect hwn wedi'u hanalluogi gwall, gwiriwch y tiwtorial hwn: Sut i Alluogi Ac Analluogi Macros Yn Outlook?

Argraffu swp yr holl atodiadau mewn negeseuon e-bost dethol lluosog ac eithrio lluniau yn y corff

I argraffu atodiadau mewn e-byst lluosog yn unig ond y lluniau yn y corff neges yn Outlook, dilynwch y camau isod i gymhwyso cod VBA.

1. Yn y rhestr bostio, daliwch os gwelwch yn dda Ctrl or Symud allweddi i ddewis e-byst lluosog y byddwch yn argraffu eu hatodiadau.

2. Gwasgwch Alt + F11 allweddi gyda'i gilydd i agor ffenestr Microsoft Visual Basic for Applications.

3. Yn ffenestr Microsoft Visual Basic for Applications, cliciwch offer > cyfeiriadau. Ac yna gwiriwch y Amser Rhedeg Sgriptio Microsoft opsiwn fel y dangosir isod. Ar ôl gorffen, cliciwch OK.

4. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i mewn i ffenestr y modiwl newydd.

VBA: Argraffwch bob atodiad mewn sawl e-bost Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

5. Gwasgwch F5 allwedd neu cliciwch y Run botwm i redeg y cod VBA hwn. Nawr fe welwch fod yr holl atodiadau yn y negeseuon e-bost a ddewiswyd wedi'u hargraffu.

Nodyn:

  • Bydd pob delwedd atodedig yn dod â blwch deialog naid i ofyn am gadarnhad argraffu. Tra bydd mathau eraill o ffeiliau yn cael eu hargraffu'n uniongyrchol.
  • Ni fydd delweddau yng nghorff y neges yn cael eu hargraffu.
  • Os cewch Mae'r macros yn y prosiect hwn wedi'u hanalluogi gwall, gwiriwch y tiwtorial hwn: Sut i Alluogi Ac Analluogi Macros Yn Outlook?

 


Demo: argraffu un neu'r cyfan o atodiadau mewn e-bost Outlook


Tip: Yn y Fideo hwn, Kutools tab yn cael ei ychwanegu gan Kutools ar gyfer Rhagolwg. Os oes ei angen arnoch, cliciwch yma i gael treial am ddim 60 diwrnod heb gyfyngiad!


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
 
sylwadau (23)
Wedi graddio 5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn ddefnyddiol iawn, ond nid yw'n fy helpu gydag Office 365 ??
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwn i gyfrifo'r rhan hon i mi fy hun - yr hyn rwy'n ceisio ei ddarganfod yw pam, er gwaethaf gwneud hynny, na fyddai atodiadau'n argraffu. Mae neges gwall yn ymddangos ar gyfer pob atodiad yn gofyn a ydw i am "agor" neu "arbed". Mae dewis y naill opsiwn neu'r llall yn cynhyrchu'r union ganlyniadau hynny - mewn geiriau eraill, dim print o hyd, dim ond agoriad neu arbediad. Mae gen i 20 atodiad o 4 e-bost. Dwi wir ddim eisiau gorfod agor 80 o ddogfennau dim ond er mwyn gallu eu hargraffu. Mae'n amlwg bod rhai gosodiadau diogelwch "achub fi oddi wrthyf fy hun" y mae angen eu dileu fel y gallaf ddefnyddio fy nghyfrifiadur fy hun a'r system weithredu a brynais ac y talais amdani. Dyna beth sydd angen i mi ei wybod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cliciwch ddwywaith ar e-bost i "pop-out" ar ei ben ei hun. De-gliciwch ar un o'r atodiadau a chlicio "dewis pob un", yna "print cyflym".
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cytuno gyda Leah, nid yw hyn yn gweithio. Mae'n argraffu prif gorff yr e-bost a'r atodiad cyntaf, nid pob un ohonynt. Angen cyfarwyddiadau ar sut i'w hargraffu gan ddefnyddio'r opsiynau "dewiswch bawb" a ddangosir uchod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
os ydych chi eisiau argraffu pob atodiad gyda'i gilydd mewn 1 e-bost dyma beth rydych chi'n ei wneud. yn gyntaf gwnewch ffolder ar eich bwrdd gwaith... Enwais fy un i yn "print". ewch i'r e-bost gyda'r atodiadau....amlygwch bob un o'r atodiadau, cliciwch ar y dde, cadwch bob atodiad i'r ffolder print. Agorwch y ffolder argraffu... amlygwch bob un ohonynt...cliciwch ar y dde...argraffu.



nawr pe bawn i'n gallu darganfod sut i argraffu'r holl atodiadau mewn 200 o negeseuon e-bost heb agor pob un a'i argraffu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Kutools ar gyfer Outlook's Detach All (Atodiadau) Gall nodwedd eich helpu i lawrlwytho pob atodiad o negeseuon e-bost lluosog gyda sawl clic! https://www.extendoffice.com/product/kutools-for-outlook/outlook-detach-attachments.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
os oes gan pdf yr un enw mae'r macro yn argraffu un pdf yn unig, sut alla i newid y cod er mwyn addasu'r enw pdf?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'r cod VBA yn rhoi cystrawen yn wall
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ar lein 9 , roedd cael gwared ar "Ar Gwall Ail-ddechrau Nesaf" yn gweithio i mi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ie gweithiodd hyn i mi hefyd. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwyf wedi bod yn defnyddio'r llwybr byr hwn ers ychydig wythnosau bellach, gan argraffu pob atodiad o negeseuon e-bost lluosog ar unwaith, ac yn ddiweddar bu'n rhaid i mi ddileu llinell 9 fel y dywedodd Nilanka, sydd wedi bod yn gweithio, ond nid yw hyn yn gweithio mwyach. Rwy'n cael y blwch rhybuddio yn dweud bod y macros yn y prosiect hwn yn anabl.....ac yn y blaen... os oes gan rywun ateb i wneud i hyn weithio fel y bu cyn hyn, lmk, gan fy mod yn dewis tua 60 e-byst i gyd yn cynnwys atodiadau i'w hargraffu. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo bawb, fe wnaethom ddiweddaru'r cod VBA yn y tiwtorial ar 2022/08/03. Os oes angen i chi argraffu pob atodiad o hyd, gwiriwch y cod newydd. 😊
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, fe weithiodd hyn yn iawn i mi ddoe ond nawr mae'n dweud 'mae'r macros yn y prosiect hwn yn anabl' Unrhyw gyngor sut i'w galluogi? 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ystyr geiriau: Vielen, vielen Dank dafür! Hat uns enorm viel Arbeit erspart.Auch ich musste - wie bereits in den Kommentaren geschrieben - die neunte Zeile "Dim xAttachment As Outlook.Attachment On Error Resume Next" entfernen, dann lief der Code einfandfrei durch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hallo, ich möchte nur den Anhang der Mails von der angegebenen Adresse senden, wie kann ich das machen, danke
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio Microsoft 365 a gweithiodd hyn ar ôl dileu llinell 9. Diolch! Mae hyn wedi arbed ychydig o amser i mi.
Wedi graddio 5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl bawb,

Roeddwn wedi rhoi cynnig ar y VBA ac mae'r cod yn rhedeg ond mae llawer o ffenestri naid yn agor ar y sgrin i argraffu delweddau o'r llofnod post (mae'n debyg bod hwn yn cael ei ystyried yn atodiad). Oes unrhyw un yn gwybod sut i'w datrys?

S.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi 'na,

Mae'n ddrwg gennym y bydd argraffu delweddau yn dod â ffenestri naid i fyny. Bydd yn rhaid i chi gadarnhau pob un i lawrlwytho'r holl ddelweddau. Os nad oes angen i chi argraffu delweddau, cliciwch Canslo.

Amanda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os nad ydych am argraffu lluniau yng nghorff neges, defnyddiwch y cod isod:
Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Amanda,

Diolch am y cod. Fe weithiodd!

S.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir