Wenn Sie alle Anhänge in mehreren ausgewählten E-Mails in großen Mengen ausdrucken möchten, können Sie die in diesem Artikel beschriebene Methode verwenden. Es wird ein Stück VBA-Code verwendet, um dies in kurzer Zeit zu erreichen.
Wie Sie sehen können, steht bei der Auswahl eines einzelnen Anhangs im Menüband "Anhänge" eine direkte Funktion zum schnellen Drucken zur Verfügung. Wenn Sie jedoch mehr als einen Anhang auswählen, wird die Schaltfläche "Schnelldruck" deaktiviert, ganz zu schweigen davon, dass alle Anhänge in vielen ausgewählten E-Mails gedruckt werden. Vorausgesetzt, Sie möchten alle Anhänge in mehreren E-Mails gleichzeitig stapelweise drucken, müssen Sie nach anderen Möglichkeiten suchen, z. B. nach Tools von Drittanbietern oder nach VBA. Wir konzentrieren uns auf dieses Bedürfnis und stellen Ihnen hier einen Teil des VBA-Codes zur Verfügung, der Ihnen helfen kann, ihn einfach mit einem Klick zu erhalten.
Batch-Druck aller Anhänge in mehreren E-Mails
- Starten Sie gleich zu Beginn Ihre Outlook-Anwendung.
- Drücken Sie dann im Hauptfenster die Tasten „Alt + F11“, um auf den VBA-Editor zuzugreifen.
- Öffnen Sie im nachfolgenden Fenster "Microsoft Visual Basic für Applikationen" ein leeres Modul.
- Kopieren Sie anschließend die folgenden VBA-Codes in ein solches Modul.
Sub BatchPrintAllAttachmentsinMultipleEmails()
Dim objFileSystem As Object
Dim strTempFolder As String
Dim objSelection As Outlook.Selection
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim objAttachment As Outlook.Attachment
Dim objShell As Object
Dim objTempFolder As Object
Dim objTempFolderItem As Object
Dim strFilePath As String
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Attachments " & Format(Now, "YYYY-MM-DD_hh-mm-ss")
'Create a new temp folder
MkDir (strTempFolder)
Set objSelection = Outlook.Application.ActiveExplorer.Selection
For Each objItem In objSelection
If TypeOf objItem Is MailItem Then
Set objMail = objItem
Set objAttachments = objMail.attachments
'Save all the attachments in the temp folder
For Each objAttachment In objAttachments
strFilePath = strTempFolder & "\" & objAttachment.FileName
objAttachment.SaveAsFile (strFilePath)
'Print all the files in the temp folder
Set objShell = CreateObject("Shell.Application")
Set objTempFolder = objShell.NameSpace(0)
Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
objTempFolderItem.InvokeVerbEx ("print")
Next objAttachment
End If
Next
End Sub
- Anschließend können Sie das neue Makro zur Symbolleiste für den Schnellzugriff hinzufügen.
- Danach sollten Sie die Sicherheitsstufe Ihres Outlook-Makros auf niedrig einstellen.
- Schließlich können Sie es versuchen.
- Wählen Sie zunächst in der E-Mail-Liste mehrere E-Mails aus, deren Anhänge Sie drucken möchten.
- Klicken Sie dann in der Symbolleiste für den Schnellzugriff auf die neue Makroschaltfläche.
- Als nächstes werden alle Anhänge in den ausgewählten E-Mails ausgedruckt.
Hüten Sie sich vor Viren, die in Makros versteckt sind
Wenn Sie die Sicherheitsstufe Ihres Outlook-Makros auf niedrig eingestellt haben, müssen Sie viele Anstrengungen unternehmen, um potenzielle Viren in böswilligen Makros zu blockieren. Dies liegt daran, dass Viren Ihre Outlook-Daten auf einmal zerstören können. Sobald Ihre Outlook-Daten beschädigt sind, werden Sie Ihr Bestes geben Outlook wiederherstellen Daten auf jeden Fall, wie zum Beispiel wieder zu einem potenten Werkzeug wie DataNumen Outlook Repair.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich korrupte SQL und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX