¿A menudo necesita adjuntar archivos específicos al enviar correos electrónicos específicos en Outlook? Si es así, puede que le resulte tedioso agregarlos manualmente cada vez. Este artículo le enseñará un método rápido para lograrlo con Outlook VBA.
En mi trabajo diario, con frecuencia se me pide que adjunte archivos específicos al enviar correos electrónicos específicos. Por ejemplo, todas las semanas, tengo que enviar un correo electrónico a mis superiores para informar de mi trabajo semanal. En este correo electrónico, tendré que adjuntar algunos archivos específicos, incluidos los registros de trabajo, algunos informes de estadísticas de datos, etc. Normalmente actualizo estos archivos cada semana. En el pasado, normalmente primero redactaba el cuerpo del mensaje y luego agregaba manualmente estos archivos. Sin embargo, en la actualidad, encuentro un truco más inteligente. Eso es usar Outlook VBA para automatizarlo. Si tiene requisitos similares, siga leyendo para conocer los códigos VBA concretos y las operaciones detalladas.
Adjuntar archivos específicos automáticamente al enviar correos electrónicos específicos
- Para empezar, abre Outlook y ve a la pestaña "Desarrollador".
- Luego puede buscar y hacer clic en el botón "Visual Basic", que mostrará la ventana del editor de VBA a la vez.
- En la siguiente ventana, debe hacer doble clic en el proyecto "ThisOutlookSession" en la lista de proyectos del lado izquierdo.
- A continuación, debe copiar y pegar los siguientes códigos VBA en él.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strPrompt As String
Dim nRes As Integer
'Check the email subject and recipient
If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
strPrompt = "Do you want to attach the worklog related files?"
nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
If nRes = vbYes Then
'Attach the specific files
With Item
.Attachments.Add ("C:\Attachments\WorkLog.docx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
End With
End If
End If
End Sub
- Después de eso, se le pedirá que asigne un certificado digital al nuevo proyecto.
- En primer lugar, haga clic en el botón "Herramienta" en la barra de herramientas y seleccione "Firma digital".
- Luego, en el cuadro de diálogo emergente "Firma digital", presione el botón "Elegir",
- Posteriormente, puede elegir un certificado existente.
- Por último, haga clic en una serie de "Aceptar" para asignarlo correctamente.
- Más tarde, tendrá que modificar la configuración de macros para permitir simplemente macros firmadas digitalmente.
- Eventualmente puedes intentarlo.
- Cuando haga clic en "Enviar" para enviar el correo específico que contiene las palabras específicas en el asunto o se envía a un contacto específico, verá un cuadro de mensaje, como la imagen a continuación.
- Después de eso, puede verificar el correo electrónico enviado. Seguramente encontrará los archivos preestablecidos adjuntos en el correo enviado.
Nunca posponga la reparación de errores de Outlook
A veces, aunque haya encontrado un mensaje de error en Outlook, después de cerrar el mensaje, es posible que aún pueda seguir trabajando. Pero en realidad no es una acción aconsejable. Lo que debes hacer es eliminarlos lo antes posible en lugar de dejarlos de lado. La acumulación de problemas provocará un accidente grave. Si su Outlook falla, sus datos PST de Outlook se pondrán en riesgo. Deberías saber eso datos corruptos de Outlook PST es bastante nudoso. En ese momento, no tiene más remedio que utilizar una herramienta de reparación con experiencia y buena reputación, como DataNumen Outlook Repair.
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 listo para importar y productos de software de reparación de Outlook. Para más información visite www.datanumen.com