¿Cómo cambiar el nombre de los archivos adjuntos en la ventana de Outlook sin guardarlos en el disco?
Para los archivos adjuntos del mensaje de correo electrónico recibido, es posible que desee cambiar el nombre de estos archivos adjuntos para reconocerlos fácilmente en el trabajo futuro. En realidad, no hay una función incorporada de Outlook para que pueda cambiar el nombre de los archivos adjuntos directamente en la ventana de Outlook sin guardarlos en el disco. En este artículo, le mostraremos métodos para cambiar el nombre de los archivos adjuntos en Outlook.
Guarde y cambie el nombre de los archivos adjuntos automáticamente con el código VBA en Outlook
Cambie fácilmente el nombre de los archivos adjuntos en el correo electrónico sin guardarlos en el disco con Kutools para Outlook
Guarde y cambie el nombre de los archivos adjuntos con el código VBA en Outlook
En esta sección, proporcionaremos un código VBA para guardar automáticamente los archivos adjuntos del correo electrónico seleccionado. Después de guardar, puede ver que la fecha de la última modificación de los archivos adjuntos se agregó como prefijo a los nombres de los archivos adjuntos originales. Haz lo siguiente.
1. En el Documentos carpeta, cree una nueva carpeta llamada Archivos adjuntos para guardar y cambiar el nombre de los archivos adjuntos de un correo electrónico seleccionado.
2. Seleccione el correo electrónico con archivos adjuntos que desea guardar y cambie el nombre con fechas modificadas.
3. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, y luego pegue el código VBA debajo en la ventana del Módulo.
Código VBA: guarde los archivos adjuntos y agregue la fecha de modificación antes del nombre del archivo
Public Sub saveattachmentsadddate()
Dim itm As Outlook.MailItem
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim fso As Object
Dim oldName
Dim file As String
Dim DateFormat As String
Dim newName As String
Dim enviro As String
enviro = CStr(Environ("USERPROFILE"))
saveFolder = enviro & "\Documents\Attachments\"
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each itm In Selection
For Each objAtt In itm.Attachments
file = saveFolder & objAtt.DisplayName
objAtt.SaveAsFile file
'Get the file name
Set oldName = fso.GetFile(file)
DateFormat = Format(oldName.DateLastModified, "yyyy-mm-dd ")
newName = DateFormat & objAtt.DisplayName
oldName.Name = newName
Set objAtt = Nothing
Next
Next
Set fso = Nothing
End Sub
4. presione el F5 para ejecutar el código, y los archivos adjuntos en el correo electrónico seleccionado se guardan en la carpeta "\ Documentos \ Archivos adjuntos \" y la última fecha de modificación de los archivos adjuntos se agregó como prefijo a los nombres de los archivos adjuntos originales automáticamente.
Notas:
Cambie fácilmente el nombre de los archivos adjuntos en el correo electrónico sin guardarlos en el disco con Kutools para Outlook
Aquí muy recomendado el Cambiar el nombre de los archivos adjuntos característica de Kutools para Outlook. Con esta función, puede cambiar el nombre de los archivos adjuntos directamente en la ventana de Outlook sin guardarlos en el disco.
Kutools para Outlook : con más de 100 útiles complementos de Outlook, gratis para probar sin límite en 60 días.
1. Después de la instalación Kutools para Outlook, seleccione un correo electrónico cuyos archivos adjuntos cambiará de nombre, y luego haga clic en Kutools > Herramientas de adjunto > Cambiar el nombre de todos.
2. En el Cambio de nombre de archivos adjuntos cuadro de diálogo, puede ver que el nombre de todos los archivos adjuntos del correo electrónico seleccionado se enumeran en el Nombre columna. Haga doble clic en el nombre de un archivo adjunto para editarlo y luego haga clic en el OK Para guardar los cambios.
Tips: Puede modificar todos los nombres de los archivos adjuntos o simplemente modificar cualquiera de los nombres de los archivos adjuntos que necesite en el cuadro de diálogo.
Luego, los archivos adjuntos se renombran en la ventana de correo electrónico seleccionada.
Note: Puede cambiar el nombre de un determinado archivo adjunto seleccionándolo en el Panel de lectura, haciendo clic en Kutools > rebautizar, en el cuadro de diálogo de cambio de nombre, escribiendo un nuevo nombre en el Nombre cuadro y luego haciendo clic en el OK botón para guardarlo. Ver captura de pantalla:
Si desea tener una prueba gratuita de esta utilidad, vaya a descarga gratis el software primero, y luego vaya a aplicar la operación según los pasos anteriores.
Artículos relacionados:
- ¿Cómo guardar todos los archivos adjuntos de varios correos electrónicos en una carpeta en Outlook?
- ¿Cómo mantener los archivos adjuntos al responder en Outlook?
- ¿Cómo eliminar todos los archivos adjuntos del correo electrónico en Outlook?
Las mejores herramientas de productividad de oficina
Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva
🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...
📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/CCO automático según reglas al enviar correo electrónico / Reenvío automático (reglas avanzadas) / Agregar saludo automáticamente / Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...
📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente / Bloquear correos electrónicos fraudulentos por sujetos y otras personas / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Consolidar carpetas ...
📁 Archivos adjuntos profesionales: Guardar lote / Separación de lotes / Comprimir por lotes / Ahorro automático / Desconexión automática / Autocompresión ...
???? Interfaz mágica: 😊Más emojis bonitos y geniales / Aumente su productividad en Outlook con vistas con pestañas / Minimizar Outlook en lugar de cerrar ...
👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes / Correos electrónicos antiphishing / 🕘Mostrar zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorios de cumpleaños ...
Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.