Salt la conținutul principal

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.

Office Tab - Activați editarea cu file și navigarea în Microsoft Office, făcând munca o briză
Kutools pentru Outlook - Îmbunătățiți Outlook cu peste 100 de caracteristici avansate pentru o eficiență superioară
Îmbunătățiți-vă Outlook 2021 - 2010 sau Outlook 365 cu aceste funcții avansate. Bucurați-vă de o perioadă de încercare gratuită cuprinzătoare de 60 de zile și îmbunătățiți-vă experiența prin e-mail!

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:

Kutools pentru Outlook: Setul de instrumente Outlook definitiv cu peste 100 de instrumente la îndemână. Încercați-l GRATUIT timp de 60 de zile, fără limitări, fără griji!   Citeşte mai mult ...   Începeți încercarea 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ă


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

📧 Automatizare e-mail: În afara biroului (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: Amintește-ți cu ușurință e-mailurile  /  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 ProSalvaț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   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  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 ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations