¿Cómo renombrar y guardar los archivos adjuntos de un correo electrónico en una carpeta en Outlook?
En Outlook, normalmente recibe mensajes con archivos adjuntos. ¿Ha intentado cambiar el nombre de los archivos adjuntos de un mensaje y guardarlos en una carpeta, tal como se muestra en la siguiente captura de pantalla? Por supuesto, puede guardarlos en una carpeta y renombrarlos uno por uno, pero en realidad cuento con un código VBA que le permite cambiar rápidamente el nombre de todos los archivos adjuntos al mismo nombre y guardarlos en una sola carpeta.
Cambiar el nombre y guardar los archivos adjuntos con el mismo nombre en una carpeta
Cambiar el nombre y guardar los archivos adjuntos en una carpeta con Kutools para Outlook
Cambiar el nombre y guardar los archivos adjuntos con el mismo nombre en una carpeta
1. Seleccione el mensaje cuyos archivos adjuntos desea guardar y renombrar con un nombre idéntico.
2. Pulse las teclas «Alt» + "F11" . A continuación, en el panel "Project1", haga doble clic en «ThisOutlookSession» para crear un nuevo script en blanco en la sección derecha y copie y pegue allí el código.
VBA: Cambiar el nombre y guardar archivos adjuntos
Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object 'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
For Each xAttachment In xItem.Attachments
xFilePath = xSaveFolder & xAttachment.FileName
xAttachment.SaveAsFile xFilePath
Set xFile = xFSO.GetFile(xFilePath)
xCount = 1
Saved = False
xExt = "." & xFSO.GetExtensionName(xFilePath)
xTmpName = xNewName
xNewName = xTmpName & xExt
If xFSO.FileExists(xSaveFolder & xNewName) = False Then
xFile.Name = xNewName
xNewName = xTmpName
Else
xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
While Saved = False
xNewName = xTmpName & xCount & xExt
If xFSO.FileExists(xSaveFolder & xNewName) = False Then
xFile.Name = xNewName
xNewName = xTmpName
Saved = True
Else
xCount = xCount + 1
End If
Wend
End If
Next
Next
Set xFSO = Nothing
End Sub
3. Haga clic en «Herramientas» > «Referencias» y, en el cuadro de diálogo que aparece, active la casilla «Microsoft Script Runtime».
 |  |  |
4. Haga clic en «Aceptar» y pulse la tecla «F5» para ejecutar el código. A continuación, aparecerá un cuadro de diálogo «Examinar en busca de carpetas» que le permitirá seleccionar o crear una carpeta donde guardar los archivos adjuntos.
5. Haga clic en Aceptar y, a continuación, asigne un nombre a los archivos adjuntos.
6. Haga clic en «Aceptar». Ahora los archivos adjuntos se han renombrado con el mismo nombre; en caso de duplicados, se les añadirá un número como sufijo.
Responder al mensaje con los archivos adjuntos originales en Outlook |
| Como todos sabemos, los archivos adjuntos se eliminan del mensaje original al responder a un destinatario en Outlook. Si desea responder conservando los archivos adjuntos, puede probar la función que le permite incluir los archivos originales en su respuesta y que además funciona con todos los mensajes.¡Haga clic para probar todas las funciones gratis durante 30 días!Kutools para OutlookResponder con archivo adjunto |
 |
| Kutools para Outlook: con decenas de complementos útiles para Outlook, pruébelos gratis sin limitaciones durante 30 días. |
Cambiar el nombre y guardar los archivos adjuntos en una carpeta con Kutools para Outlook
En realidad, existe una función en «Kutools para Outlook», una práctica herramienta complementaria para Outlook que te permite renombrar todos los archivos adjuntos antes de guardarlos o enviarlos.
Instalación gratuita Kutools para Outlook, y luego siga los pasos que se indican a continuación:
1. Active el correo electrónico en el panel de navegación o en la ventana del mensaje, según prefiera, y haga clic en «Kutools» > «Herramientas de archivos adjuntos» > «Renombrar todos».
2. En el cuadro de diálogo que aparece, escriba el nuevo nombre que desea asignar a cada archivo adjunto. Haga clic en «Aceptar» y los archivos se renombrarán automáticamente con el nuevo nombre.
3. Haga clic con el botón derecho en uno de los archivos adjuntos, seleccione «Guardar todos los archivos adjuntos», haga clic en «Aceptar» y, a continuación, elija una carpeta donde guardar los archivos adjuntos según sus necesidades. Así, los archivos adjuntos renombrados se guardarán en la carpeta seleccionada.
Las mejores herramientas de productividad para Office
¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!
📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...
📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…
📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...
🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…
👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...
👩🏼🤝👩🏻Contactos y calendario: Crear contactos en lote a partir de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.
🚀 Descarga con un solo clic — Obtenga todos los complementos de Office
Muy recomendado: Kutools for Office (5 en 1)
Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!
- ✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
- 🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
- 🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint