Wenn Sie eine neue E-Mail erstellen und alle Anhänge in mehreren anderen E-Mails an die neue E-Mail anhängen möchten, können Sie die in diesem Artikel beschriebene Methode verwenden. Es wird Ihnen beibringen, VBA zu verwenden, um es wie eine Brise zu bekommen.
Manchmal müssen Sie möglicherweise alle Anhänge aus mehreren E-Mails in eine neue E-Mail stapelweise kopieren. Natürlich können Sie dies auch manuell tun, indem Sie sie zuerst auf dem lokalen Laufwerk speichern und dann einzeln an eine neu erstellte E-Mail anhängen. Auf diese Weise wird es jedoch anscheinend eine ziemlich mühsame Aufgabe sein. Warum nutzen Sie VBA nicht, um es schnell zu realisieren? Im Folgenden werden wir Ihnen die aufwändigen Vorgänge und die entsprechenden VBA-Codes vorstellen.
Kopieren Sie alle Anhänge aus mehreren E-Mails in eine neue E-Mail
- Starten Sie zunächst Ihr Outlook-Programm wie gewohnt.
- Drücken Sie anschließend im Outlook-Hauptfenster die Tasten „Alt + F11“.
- Fügen Sie im nachfolgenden Fenster "Microsoft Visual Basic für Applikationen" ein neues Modul ein oder öffnen Sie ein Modul, das nicht verwendet wird.
- Kopieren Sie dann die folgenden VBA-Codes und fügen Sie sie in ein solches Modul ein.
Sub NewEmailwithAttachmentsinSeveralEmails()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim objFileSystem As Object
Dim strFilePath As String
Dim objNewMail As Outlook.MailItem
Set objSelection = Outlook.Application.ActiveExplorer.Selection
Set objNewMail = Outlook.Application.CreateItem(olMailItem)
On Error Resume Next
For Each objMail In objSelection
For Each objAttachment In objMail.attachments
'Save all the attachments to temporary folder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
objAttachment.SaveAsFile (strFilePath)
'Add the attachments to the new email
objNewMail.attachments.Add (strFilePath)
'Delete the temporary files
objFileSystem.DeleteFile (strFilePath)
Next
Next
'Show the new email
objNewMail.Display
End Sub
- Danach sollten Sie das neue VBA-Projekt zur Symbolleiste für den Schnellzugriff hinzufügen. Sie können es unter „Outlook-Optionen“ abschließen.
- Später sollten Sie die Sicherheitsstufe Ihres Outlook-Makros auf niedrig ändern.
- Endlich können Sie es versuchen.
- Drücken Sie zunächst die Strg-Taste und wählen Sie mehrere E-Mails aus, deren Anhänge Sie kopieren möchten.
- Klicken Sie dann auf die neue Makroschaltfläche in der Symbolleiste für den Schnellzugriff.
- Sofort wird eine neue E-Mail mit allen angehängten Anhängen angezeigt.
Fordern Sie häufige Outlook PST-Probleme heraus
Da ab und zu Probleme mit Outlook PST auftreten können, sollten Sie große Anstrengungen unternehmen, um Ihre PST-Daten zu schützen. Zum Beispiel sollten Sie Ihre PST-Daten regelmäßig sichern, damit Sie die Daten zurückerhalten können beschädigtes Outlook Daten aus Backups, ohne ins Schwitzen zu geraten. Darüber hinaus müssen Sie ein seriöses Werkzeug in der Nähe halten, 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 mdf reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX