¿Cómo llenar automáticamente el asunto del correo electrónico con el nombre del archivo adjunto en Outlook?
Para aquellos que están acostumbrados a usar el nombre del archivo adjunto como asunto de un correo electrónico en Outlook, escribir manualmente el nombre del archivo adjunto en la línea de asunto cada vez llevará mucho tiempo. Como se muestra en el gif a continuación, si desea completar la línea de asunto del correo electrónico con el nombre del archivo adjunto automáticamente cuando inserta un archivo adjunto, el método VBA en este tutorial lo ayudará.
Complete automáticamente el asunto del correo electrónico con el nombre del archivo adjunto con el código VBA
Ejecute el siguiente código VBA para completar automáticamente el asunto del correo electrónico con el nombre del archivo adjunto insertado en Outlook.
1. Inicie su Outlook, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga doble clic Proyecto1 (VbProyecto.OTM) > Objetos de Microsoft Outlook > Esta sesión de Outlook para abrir el ThisOutlookSession (Código) editor.
3. Luego copie el siguiente código VBA en el ThisOutlookSession (Código) editor.
Código de VBA: autocompletar el asunto del correo electrónico con el nombre del archivo adjunto
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
Set GInspectors = Application.Inspectors
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GMail = Item
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Dim xItem As Object
Set xItem = Inspector.CurrentItem
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
Dim xFileName As String
On Error Resume Next
If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
xFileName = Att.DisplayName
xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
GMail.Subject = xFileName
End Sub
4. Ahora debe guardar el código y reiniciar Outlook.
5. De ahora en adelante, cuando inserte un archivo adjunto en un correo electrónico que aún no tiene un asunto completado, un Kutools para Outlook aparecerá un cuadro de diálogo que le preguntará si desea utilizar el nombre del archivo adjunto como asunto, haga clic en el Sí
Luego, la línea de asunto se completará con el nombre del archivo adjunto insertado automáticamente.
Notas:
Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.
- Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
- Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
- Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
- Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
- Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
