¿Utiliza a menudo el nombre del archivo adjunto como asunto del correo electrónico en Outlook? Si es así, debe esperar que Outlook pueda completarlo automáticamente. Este artículo presentará un método útil para hacerlo realidad con Outlook VBA.
Muchos usuarios están acostumbrados a escribir manualmente el nombre del archivo adjunto en el asunto del correo electrónico. En este caso, si Outlook pudiera hacerlo automáticamente, sería mucho más conveniente. Además, algunos usuarios suelen olvidar rellenar el asunto. Por lo tanto, al pulsar el botón "Enviar", reciben un mensaje de advertencia de "sin asunto". En tal caso, si Outlook pudiera rellenar automáticamente el asunto con el nombre del archivo adjunto, podrían evitar la molesta advertencia de "sin asunto". En resumen, se cree que muchos usuarios de Outlook desean un método que permita a Outlook rellenar automáticamente el asunto del correo electrónico con el nombre del archivo adjunto. Afortunadamente, con la ayuda de Outlook VBA, podemos lograrlo con suma facilidad. Aquí están los códigos VBA detallados y los pasos a seguir.
Autocompletar la línea de asunto del correo electrónico con el nombre del archivo adjunto
- En primer lugar, puedes abrir Outlook y cambiar a la pestaña "Desarrollador".
- Luego, debajo de esta pestaña, debe hacer clic en el botón "Visual Basic", que mostrará el editor de VBA.
- En la siguiente ventana, primero debe ubicar el proyecto "ThisOutlookSession" en la lista de proyectos en el lado derecho.
- A continuación, haga doble clic para abrir este proyecto. Y luego copie los siguientes códigos en él.
Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem
Private Sub Initialize_handlers()
Set olInspectors = Application.Inspectors
End Sub
Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
Dim olItem As Object
Set olItem = Inspector.CurrentItem
If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub
Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
If olMail.Subject = "" Then
'If you don't want the prompt,
'Just delete the Msgbox line and its corresponding "End if".
If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
olMail.Subject = Attachment.DisplayName
End If
End If
End Sub
- Después de eso, debe continuar asignando un certificado digital al proyecto de VBA actual como de costumbre.
- En primer lugar, utilice la utilidad incorporada "Certificados digitales para proyectos VBA" para generar un certificado digital.
- Posteriormente, puede firmar la macro actual.
- Luego salga del editor de VBA y cambie la configuración de macro a "Notificaciones para macros firmadas digitalmente, todas las demás macros deshabilitadas".
- Finalmente puedes intentarlo.
- Crea un nuevo correo electrónico.
- Si no ha llenado el asunto y tiene la intención de adjuntar un archivo, recibirá un mensaje, como la siguiente imagen:
- Cuando seleccione "Sí", el asunto se completará con el nombre del archivo adjunto a la vez.
Hacer frente a los problemas frecuentes de Outlook
Siempre que haya utilizado Outlook durante décadas, debe haber encontrado muchos problemas de Outlook. Entonces, ¿qué acciones suele realizar al encontrarse con ellos? Se sugiere descubrirlos y erradicarlos lo antes posible. Es porque la acumulación de problemas puede dañar sus datos de Outlook en cualquier momento. Por lo tanto, incluso si Outlook puede funcionar con normalidad, es mejor que aplique la herramienta de reparación de la bandeja de entrada o la Utilidad de reparación de errores de Outlook PSTdel ADN, tales como los DataNumen Outlook Repair, para escanear sus archivos PST para detectar y resolver errores.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparar dañado SQL Server base de datos de CRISPR Medicine News y productos de software de reparación de Outlook. Para más información visite www.datanumen.com