Note: The other languages of the website are Google-translated. Back to English

¿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

Luego, la línea de asunto se completará con el nombre del archivo adjunto insertado automáticamente.

Notas:

1) Si ya completó el asunto, al insertar un archivo adjunto no aparecerá el cuadro de diálogo.
2) Si elimina un asunto existente del correo electrónico actual pero el cursor aún se muestra en la línea de asunto, al insertar un archivo adjunto tampoco aparecerá el cuadro de diálogo. Después de eliminar el asunto, debe hacer clic fuera de la línea de asunto para actualizar el cuadro de mensaje y hacer que el código funcione.
3) Si inserta varios archivos adjuntos al mismo tiempo, solo se puede usar el nombre del primer archivo adjunto como asunto del correo electrónico.

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.
tiro kutools outlook kutools pestaña 1180x121
tiro kutools outlook kutools plus pestaña 1180x121
 
Comentarios (5)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Добрый день. Подскажите пожалуйста можно ли сделать что бы тема формировалась из 2 и более файлов с разделен? Может в данном коде дописать или вообще другой существует? Заранее спасибо
Este comentario fue minimizado por el moderador en el sitio
Hola Александр,

¿Quiere decir agregar varios archivos adjuntos mientras agrega esos nombres de archivos adjuntos al mismo tiempo al asunto y luego los vincula con AND?
Este comentario fue minimizado por el moderador en el sitio
Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
Este comentario fue minimizado por el moderador en el sitio
Да, именно. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Este comentario fue minimizado por el moderador en el sitio
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL