Cum să copiați toate atașamentele de la mai multe e-mailuri la un e-mail nou în Outlook？
În general, este ușor să copiați atașamente de la un e-mail la altul cu copierea și lipirea în Outlook. Dar ce zici de copierea atașamentelor de la mai multe e-mailuri la una nouă? Acest articol va introduce soluțiile pentru dvs.
Copiați toate atașamentele de la mai multe e-mailuri la un e-mail nou
Copiați toate atașamentele dintr-un e-mail în e-mailul de răspuns
Copiați toate atașamentele de la mai multe e-mailuri la un e-mail nou
Acest articol va introduce un VBA pentru a copia rapid toate atașamentele de la mai multe e-mailuri la unul nou în Outlook. Vă rugăm să faceți următoarele:
1. Selectați mai multe e-mailuri ale căror atașamente le veți copia și apăsați Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.
notițe: Deținere Ctrl tasta, puteți selecta mai multe e-mailuri neadiacente făcând clic pe ele unul câte unul; deținere Schimba , puteți selecta mai multe e-mailuri adiacente făcând clic pe primul și pe ultimul.
2. Clic Insera > Module, și apoi lipiți mai jos codul VBA în noua fereastră a modulului.
VBA: copiați toate atașamentele din mai multe e-mailuri într-una nouă
Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String
Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If
For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub
3. presa F5 tasta sau Alerga pentru a rula acest VBA.
Acum veți vedea că toate atașamentele sunt copiate din e-mailurile selectate și lipite într-un e-mail nou.
Copiați toate atașamentele dintr-un e-mail în e-mailul de răspuns
Dacă aveți instalat Kutools pentru Outlook, îl puteți aplica Răspundeți cu atașament caracteristică pentru a copia cu ușurință toate atașamentele dintr-un e-mail în e-mailul său de răspuns din Outlook. Vă rugăm să faceți următoarele:
Deblocați eficiența maximă a e-mailului cu Kutools pentru Outlook! Acces 70 caracteristici puternice absolut gratuit, pentru totdeauna. Descărcați versiunea gratuită acum!
Selectați adresa de e-mail la care veți răspunde și faceți clic Kutools > Răspundeți cu atașament > Răspundeți cu atașament. Vedeți captura de ecran:
Acum veți vedea că toate atașamentele sunt copiate automat în e-mailul de răspuns.
Articole pe aceeaşi temă
Cum se copiază atașamentul la un alt e-mail în Outlook?
Cele mai bune instrumente de productivitate de birou
Ultime știri: Kutools pentru lansări Outlook Versiune gratuită!
Experimentați noul Kutools pentru Outlook Versiune GRATUITĂ cu peste 70 de funcții incredibile, pe care o poți folosi PENTRU TOTDEAUNA! Faceți clic pentru a descărca acum!
📧 Automatizare e-mail: Răspuns automat (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Rechemare e-mailuri / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Amintește-ți când vin e-mailuri importante / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
