¿Cómo enumerar todos los nombres de los archivos adjuntos en el cuerpo del mensaje al redactar un correo electrónico en Outlook?
¿Hay alguna buena forma de insertar todos los nombres de los archivos adjuntos en el cuerpo del mensaje al redactar un correo electrónico en Outlook? En este artículo, hablaré sobre cómo resolver este trabajo en Outlook.
Enumere todos los nombres de los archivos adjuntos en el cuerpo del mensaje al redactar un correo electrónico con código VBA
Siga los siguientes pasos para completar esta tarea:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En la Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook del desplegable Proyecto1 (VbaProject.OTM) panel para abrir el modo y luego copie y pegue el siguiente código en el módulo en blanco.
Código de VBA: enumere todos los nombres de archivos adjuntos en el cuerpo del mensaje:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As MailItem
If Item.Class = olMail Then
Set xMailItem = Item
If xMailItem.Attachments.Count > 0 Then
AddAttachmentNamesToBody
End If
End If
End Sub
3. Luego sigue haciendo clic recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto, vea la captura de pantalla:
Código de VBA: enumere todos los nombres de archivos adjuntos en el cuerpo del mensaje:
Public Sub AddAttachmentNamesToBody()
Dim xMailItem As MailItem
Dim xAttachment As Attachment
Dim xFileName As String
Dim xInspector As Outlook.Inspector
Dim xDoc As Word.Document
Dim xWdSelection As Word.Selection
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
If xMailItem.Attachments.Count = 0 Then
Exit Sub
End If
xFileName = ""
For Each xAttachment In xMailItem.Attachments
If xFileName = "" Then
xFileName = " <" & xAttachment.FileName & "> "
Else
xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
End If
Next xAttachment
Set xInspector = Outlook.Application.ActiveInspector()
Set xDoc = xInspector.WordEditor
Set xWdSelection = xDoc.Application.Selection
xWdSelection.HomeKey Unit:=wdStory
xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
Set xMailItem = Nothing
End Sub
4. Y luego haz clic Herramientas > Referencias existentes Microsoft Visual Basic para aplicaciones ventana, en el aparecido Referencias-Proyecto1 cuadro de diálogo, comprobar Biblioteca de objetos de Microsoft Word Opción de la Referencias disponibles cuadro de lista, ver captura de pantalla:
5. Hacer clic OK para salir del cuadro de diálogo, entonces debe agregar el botón de macro en el Acceso rapido a la barra de herramientas. En el nuevo Mensaje ventana, elija Más comandos del desplegable Personalizar la barra de herramientas de acceso rápido desplegable, ver captura de pantalla:
6. En la Opciones de outlook cuadro de diálogo, realice las siguientes operaciones:
(1.) Seleccione Macros del desplegable Elija comandos de la lista desplegable;
(2.) Haga clic en el nombre de la macro que acaba de insertar;
(3.) Y luego haga clic en Añada para agregar la macro al Personalizar la barra de herramientas de acceso rápido.
7. Luego haga clic OK para cerrar el cuadro de diálogo, ahora, el botón de macro se ha insertado en el Acceso rapido a la barra de herramientas, ver captura de pantalla:
8. Ahora, cuando cree un mensaje nuevo y haga clic en el botón de macro, los nombres de los archivos adjuntos se insertarán encima del cuerpo del mensaje como se muestra a continuación:
Enumere todos los nombres de los archivos adjuntos en el cuerpo del mensaje al redactar un correo electrónico con una función simple
Puede ser que el código anterior le resulte algo difícil de aplicar, si tiene Kutools para Outlook, Con su Copiar nombres función, puede copiar rápidamente los nombres de los archivos adjuntos de un mensaje y pegarlos en cualquier lugar que necesite.
Después de instalar Kutools para Outlook, haz lo siguiente:
1. Primero, cree el nuevo correo electrónico que necesita y luego haga clic en Kutools > Copiar nombres en el nuevo Mensaje ventana, ver captura de pantalla:
2. Y luego, aparecerá un cuadro emergente para recordarle que los nombres de los archivos adjuntos se han copiado al portapapeles, vea la captura de pantalla:
3. Ahora solo necesitas presionar Ctrl + V teclas juntas para pegar los nombres de los archivos adjuntos en el cuerpo del mensaje que necesita, vea la captura de pantalla:
Artículos más relativos:
- Responder a todos con archivos adjuntos originales en Outlook
- Normalmente, cuando aplica la función Responder a todos para responder el mensaje a todos los destinatarios en Outlook, los archivos adjuntos originales se perderán automáticamente. ¿Es posible adjuntar archivos adjuntos originales al responder a todos en Outlook?
- Descargar/guardar archivos adjuntos de Outlook en una carpeta determinada
- En términos generales, puede guardar todos los archivos adjuntos de un correo electrónico haciendo clic en Archivos adjuntos> Guardar todos los archivos adjuntos en Outlook. Pero, si necesita guardar todos los archivos adjuntos de todos los correos electrónicos recibidos y recibir correos electrónicos, ¿lo ideal? Este artículo presentará dos soluciones para descargar automáticamente archivos adjuntos de Outlook a una carpeta determinada.
- Cambiar la ubicación predeterminada para guardar archivos adjuntos en Outlook
- ¿Está harto de encontrar la ubicación del archivo adjunto que ha especificado cada vez que inicia Outlook? En este tutorial, le mostraremos cómo cambiar la ubicación predeterminada del archivo adjunto. Después de eso, la carpeta para guardar archivos adjuntos especificada se abrirá automáticamente cada vez que guarde los archivos adjuntos aunque reinicie Outlook.
- Eliminar todos los archivos adjuntos del correo electrónico en Outlook
- Normalmente, cuando obtiene una vista previa de un correo electrónico, puede eliminar un archivo adjunto haciendo clic derecho y seleccionando el elemento Eliminar archivo adjunto. A veces puede haber muchos archivos adjuntos en un mensaje de correo electrónico y será tedioso eliminarlos uno por uno. Aquí le presentamos dos trucos sencillos para eliminar todos los archivos adjuntos en un correo electrónico y eliminar todos los archivos adjuntos de varios correos electrónicos también 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.