Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es copien tots els fitxers adjunts de diversos correus electrònics a un nou correu electrònic a Outlook?

En general, és fàcil copiar fitxers adjunts d'un correu electrònic a un altre amb còpia i enganxat a Outlook. Però, què hi ha de la còpia dels fitxers adjunts des de diversos correus electrònics a un de nou? Aquest article us mostrarà les solucions.

Kutools per Outlook: 100 + Noves eines avançades per a Outlook.
Pestanya d'Office: Activa l'edició i la navegació amb pestanyes a l'oficina, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menú Classic: Porta menús antics i barres d'eines cap enrere a Office 2007, 2010, 2013, 2016 i 2019.

Copieu tots els fitxers adjunts de diversos correus electrònics a un correu electrònic nou

Aquest article introduirà un VBA per copiar ràpidament tots els fitxers adjunts de diversos correus electrònics a un altre nou a Outlook. Feu el següent:

1. Seleccioneu diversos missatges de correu electrònic els fitxers adjunts que copieu i premeu Alt + F11 claus per obrir la finestra de Microsoft Visual Basic per a aplicacions.
Nota: Holding Ctrl clau, podeu seleccionar diversos correus electrònics no adyacentes fent clic a ells un per un; tenint Canviar clau, podeu seleccionar diversos correus electrònics adjacents fent clic al primer i l'últim.

2. Clic Insereix > Mòduls, i després enganxeu el codi VBA per sota de la finestra del mòdul nou.

VBA: copieu tots els fitxers adjunts des de diversos correus electrònics a un de 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. Premeu F5 la clau o la Correr botó per executar aquest VBA.

Ara veureu que tots els fitxers adjunts es copien dels correus electrònics seleccionats i es van enganxar a un correu electrònic nou.


Copieu tots els fitxers adjunts des d'un missatge de correu electrònic al correu electrònic de resposta

Si teniu instal·lat Kutools for Outlook, podeu aplicar-lo Respon amb l'adjunt funció per copiar fàcilment tots els fitxers adjunts des d'un missatge de correu electrònic al correu electrònic de resposta a Outlook. Feu el següent:

Kutools per Outlook - Amb més complements de Outlook pràctics 20, gratuïts per intentar sense limitacions en 60 dies

Seleccioneu el correu electrònic que respondreu i feu clic a Kutools > Respon amb l'adjunt > Respon amb l'adjunt. Mostra la captura de pantalla:

Ara veureu que tots els fitxers adjunts es copien automàticament al correu electrònic de resposta.


Articles Relacionats



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l'anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.