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

Hvordan udskrives alle vedhæftede filer i en / flere e-mails i Outlook?

Som du ved, udskriver det kun e-mail-indholdet, f.eks. Header, body, når du klikker på filet > Print i Microsoft Outlook, men udskriv ikke vedhæftede filer. Her viser vi dig, hvordan du nemt udskriver alle vedhæftede filer i en valgt e-mail i Microsoft Outlook.


Udskriv alle vedhæftede filer i en e-mail-besked en efter en

Microsoft Outlook giver os Hurtig udskrivning funktion, som kan hjælpe dig med at udskrive vedhæftede filer i en e-mail-besked en efter en.

1. Vælg den e-mail-meddelelse, hvis vedhæftede filer du vil udskrive senere.

2. Klik på en vedhæftet fil i denne e-mail.

3. Klik på Hurtig udskrivning knappen i handlinger gruppe på Vedhæftede filer fane.

Bemærk: Vedhæftningsværktøjer aktiveres ikke, før du klikker på vedhæftede filer i e-mails.

4. En dialogboks til åbning af mailvedhæftning kommer ud, og klik venligst på Åbne .

Bemærk, at dette trin åbner den valgte vedhæftede fil og udskriver den valgte vedhæftede fil på samme tid.

Hvis du vil udskrive andre vedhæftede filer i denne e-mail, skal du gentage trin 2 til trin 4.

Gem / eksporter hurtigt alle vedhæftede filer fra flere e-mails i Outlook

Normalt kan vi gemme vedhæftede filer fra en e-mail ved at aktivere Vedhæftningsværktøjer og anvende Gem alle vedhæftede filer funktion i Outlook. Men hvad nu hvis du gemmer vedhæftede filer fra flere e-mails eller fra hele mailmappen i Outlook? Prøv Kutools til Outlook Gem alle (Vedhæftede filer) -funktion.


gem vedhæftede filer i flere e-mails kto9

Batchudskriv alle vedhæftede filer i en e-mail-besked

Hvis der er mange vedhæftede filer i den ene e-mail, vil det være tidskrævende at udskrive dem én efter én. Og den følgende metode vil lede dig gennem batchudskrivning af alle vedhæftede filer i en valgt e-mail-meddelelse.

1. Vælg den e-mail-meddelelse, hvis vedhæftede filer du vil udskrive senere.

2. I Outlook 2010 eller nyere versioner skal du klikke på filet > Print > Udskriftsindstillinger. Se følgende skærmbillede:

3. I dialogboksen Udskriv skal du kontrollere Udskriv vedhæftede filer. Vedhæftede filer udskrives kun til standardprinteren valgmulighed i Printindstillinger sektion.

4. Klik på Print .

5. Klik i dialogboksen Åbning af vedhæftet fil ved at åbne Åbne knappen for at gå videre. (Bemærk: Denne dialogboks vises for hver vedhæftet fil separat.)

Nu vil alle vedhæftede filer i denne valgte e-mail blive udskrevet på én gang.


Batchudskriv alle vedhæftede filer og billeder i flere udvalgte e-mails

For at udskrive alle vedhæftede filer i flere e-mails samt alle billederne i meddelelsesteksten i Outlook, skal du følge nedenstående trin for at anvende en VBA-kode.

1. Hold på mailinglisten Ctrl or Flytte taster for at vælge flere e-mails, hvis vedhæftede filer du vil udskrive.

2. Trykke andre + F11 nøgler sammen for at åbne vinduet Microsoft Visual Basic til applikationer.

3. Klik på i vinduet Microsoft Visual Basic for Applications Værktøj > Referencer. Og tjek derefter Microsoft Scripting Runtime mulighed som vist nedenfor. Når du er færdig, klik OK.

4. Klik indsatte > Moduler, og indsæt derefter under VBA-kode i det nye modulvindue.

VBA: Udskriv alle vedhæftede filer i flere Outlook-e-mails

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. Trykke F5 eller klik på Kør knappen for at køre denne VBA-kode. Nu vil du se, at alle vedhæftede filer i de valgte e-mails og billederne i teksten er printet ud.

Bemærk:

  • Hvert billede vil vise en pop-up dialogboks for at bede dig om bekræftelse af udskrivning. Mens andre typer filer vil blive udskrevet direkte.
  • Hvis der er billeder i en e-mail-signatur, vil de også vise pop op-dialogbokse.
  • Hvis du får Makroerne i dette projekt er deaktiveret fejl, tjek venligst denne vejledning: Sådan aktiveres og deaktiveres makroer i Outlook?

Batchudskriv alle vedhæftede filer i flere udvalgte e-mails undtagen billeder i brødteksten

For kun at udskrive vedhæftede filer i flere e-mails, men billederne i meddelelsesteksten i Outlook, skal du følge nedenstående trin for at anvende en VBA-kode.

1. Hold på mailinglisten Ctrl or Flytte taster for at vælge flere e-mails, hvis vedhæftede filer du vil udskrive.

2. Trykke andre + F11 nøgler sammen for at åbne vinduet Microsoft Visual Basic til applikationer.

3. Klik på i vinduet Microsoft Visual Basic for Applications Værktøj > Referencer. Og tjek derefter Microsoft Scripting Runtime mulighed som vist nedenfor. Når du er færdig, klik OK.

4. Klik indsatte > Moduler, og indsæt derefter under VBA-kode i det nye modulvindue.

VBA: Udskriv alle vedhæftede filer i flere Outlook-e-mails

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. Trykke F5 eller klik på Kør knappen for at køre denne VBA-kode. Nu vil du se, at alle vedhæftede filer i de valgte e-mails er printet ud.

Bemærk:

  • Hvert vedhæftede billede vil vise en pop-up dialogboks for at bede dig om bekræftelse af udskrivning. Mens andre typer filer vil blive udskrevet direkte.
  • Billeder i meddelelsesteksten udskrives ikke.
  • Hvis du får Makroerne i dette projekt er deaktiveret fejl, tjek venligst denne vejledning: Sådan aktiveres og deaktiveres makroer i Outlook?

 


Demo: udskriv en eller alle vedhæftede filer i en Outlook-e-mail


Tip: I denne video, Kutools fanen tilføjes af Kutools til Outlook. Hvis du har brug for det, skal du klikke her at have en 60-dages gratis prøveperiode uden begrænsning!


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (23)
Bedømt 5 ud af 5 · 1 vurderinger
Denne kommentar blev minimeret af moderatoren på webstedet
Dette er meget nyttigt, men hjælper mig ikke med Office 365??
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg kunne selv finde ud af denne del - det, jeg forsøger at finde ud af, er, hvorfor vedhæftede filer ikke udskrives på trods af det. En fejlmeddelelse dukker op for hver vedhæftet fil, der spørger, om jeg vil "åbne" eller "gemme". At vælge en af ​​mulighederne giver præcis disse resultater - med andre ord, stadig ingen udskrivning, blot en åbning eller lagring. Jeg har 20 vedhæftede filer fra 4 e-mails. Jeg ønsker virkelig ikke at skulle åbne 80 dokumenter bare for at kunne udskrive dem. Der er helt klart nogle "red mig fra mig selv" sikkerhedsindstillinger, der skal udslettes, så jeg kan bruge min egen computer og det styresystem, jeg har købt og betalt for. DET har jeg brug for at vide.
Denne kommentar blev minimeret af moderatoren på webstedet
Dobbeltklik på e-mail for at "pop-out" af sig selv. Højreklik på en af ​​de vedhæftede filer, og klik på "vælg alle", derefter "hurtig print".
Denne kommentar blev minimeret af moderatoren på webstedet
Enig med Leah, det virker ikke. Det udskriver bare hoveddelen af ​​e-mailen og den første vedhæftede fil, ikke dem alle. Har brug for instruktioner om, hvordan du udskriver dem alle ved at bruge "vælg alle"-indstillinger vist ovenfor.
Denne kommentar blev minimeret af moderatoren på webstedet
hvis du vil udskrive alle vedhæftede filer samlet i 1 e-mail, gør du her. lav først en mappe på dit skrivebord....Jeg kaldte min "print". gå til e-mailen med de vedhæftede filer....fremhæv alle de vedhæftede filer, højreklik, gem alle vedhæftede filer i udskriftsmappen. Åbn udskriftsmappen.....fremhæv dem alle.....højreklik.....udskriv.



nu hvis bare jeg kunne finde ud af at udskrive alle de vedhæftede filer i 200 e-mails uden at åbne hver enkelt og udskrive den.
Denne kommentar blev minimeret af moderatoren på webstedet
Kutools til Outlooks Funktionen Frigør alle (vedhæftede filer) kan hjælpe dig med at downloade alle vedhæftede filer fra flere e-mails med flere klik! https://www.extendoffice.com/product/kutools-for-outlook/outlook-detach-attachments.html
Denne kommentar blev minimeret af moderatoren på webstedet
hvis en pdf har samme navn, udskriver makroen kun én pdf, hvordan kan jeg ændre koden for at ændre pdf-navnet?
Denne kommentar blev minimeret af moderatoren på webstedet
VBA-koden giver syntaks er fejl
Denne kommentar blev minimeret af moderatoren på webstedet
på linje 9 virkede det for mig at fjerne "On Error Resume Next".
Denne kommentar blev minimeret af moderatoren på webstedet
ja det virkede også bare for mig. Tak skal du have!
Denne kommentar blev minimeret af moderatoren på webstedet
Tak 
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg har brugt denne genvej i et par uger nu, og har udskrevet alle vedhæftede filer fra flere e-mails på én gang, og jeg har for nylig været nødt til at fjerne linje 9, som Nilanka sagde, som har virket, men det virker ikke længere. Jeg får advarselsboksen, der siger, at makroerne i dette projekt er deaktiveret.....og så videre... hvis nogen har en løsning til at få dette til at fungere, som det har været før nu, så lmk, da jeg vælger omkring 60 e-mails, der alle indeholder vedhæftede filer, der skal udskrives. Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Denne kommentar blev minimeret af moderatoren på webstedet
Hej alle sammen, vi opdaterede VBA-koden i selvstudiet den 2022/08/03. Hvis du stadig har brug for at udskrive alle vedhæftede filer, skal du kontrollere den nye kode. 😊
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, det fungerede fint for mig i går, men nu siger den "makroerne i dette projekt er deaktiveret" Nogen råd til, hvordan man aktiverer dem? 
Denne kommentar blev minimeret af moderatoren på webstedet
Denne kommentar blev minimeret af moderatoren på webstedet
Vielen, vielen Thank dafür! Hat uns enorm viel Arbeit erspart.Auch ich muste - wie bereits in the Kommentaren skrevet - die neunte Zeile "Dim xAttachment As Outlook. Attachment On Error Resume Next" entfernen, dann love der Code einfandfrei durch.
Denne kommentar blev minimeret af moderatoren på webstedet
hallo, ich möchte nur den Anhang der Mails von der angegebenen Adresse senden, wie kann ich das machen, danke
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg bruger Microsoft 365, og dette virkede efter sletning af linje 9. Tak! Dette har sparet lidt tid for mig.
Bedømt 5 ud af 5
Denne kommentar blev minimeret af moderatoren på webstedet
Kære alle,

Jeg havde prøvet VBA, og koden kører, men mange popups åbnes på skærmen for at udskrive billeder fra mailsignaturen (det betragtes åbenbart som en vedhæftet fil). Nogen der ved hvordan man løser det?

S.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej der,

Beklager, at udskrivning af billeder vil vise pop op-vinduer. Du skal bekræfte hver for at downloade alle billederne. Hvis du ikke har brug for at udskrive billeder, skal du klikke på Annuller.

Amanda
Denne kommentar blev minimeret af moderatoren på webstedet
Hvis du ikke ønsker at udskrive billeder i brødteksten af ​​en meddelelse, skal du bruge koden nedenfor:
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
Denne kommentar blev minimeret af moderatoren på webstedet
Kære Amanda,

Tak for koden. Det virkede!

S.
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL