2 métodos rápidos para crear nuevos correos electrónicos a partir de una plantilla con Outlook VBA

Dado que muchos usuarios piensan que es engorroso encontrar y usar plantillas de correo electrónico de Outlook, en este artículo mostraremos 2 métodos rápidos para crear nuevos correos electrónicos usando una plantilla con Outlook VBA.

Por lo general, para usar una plantilla de correo electrónico de Outlook, primero debe buscarla haciendo clic en "Nuevos elementos" > "Más elementos" > "Elegir formulario". Luego, en el cuadro de diálogo "Elegir formulario", localice y abra las plantillas deseadas en "Plantillas de usuario en el sistema de archivos", como se muestra en la siguiente captura de pantalla.

Evidentemente, es muy problemático. Por lo tanto, aquí presentaremos 2 medios rápidos, que pueden crear rápidamente nuevos correos electrónicos usando plantillas con la ayuda de Outlook VBA. Siga leyendo para obtenerlos en detalle.

Método 1: cree una nueva plantilla de correo electrónico directamente con Outlook VBA

1. Primero, vaya a la pestaña "Desarrollador" en la ventana principal de Outlook.
2. Luego haga clic en el botón “Visual Basic”, que abrirá una nueva ventana.
3. A continuación, copie y pegue los siguientes códigos VBA en un módulo.

Sub CreateNewMail()
    Dim obApp As Object
    Dim NewMail As MailItem
 
    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItem(olMailItem)
 
    'You can change the concrete info as per your needs
    With NewMail
         .Subject = Date & " Test Email"
         .To = "example@mail.com"
         .Body = "Dear Johnny," & vbCrLf & vbCrLf & "I'm glad to write this email to you .......... " & vbCrLf & vbCrLf & "This is just a test email template with Outlook VBA" & vbCrLf & vbCrLf & vbCrLf & "Yours Truly," & vbCrLf & vbCrLf & "John Smith"
         .Attachments.Add ("C:\Attachments\Test File.docx")
         .Importance = olImportanceHigh
         .Display
    End With
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

4. Después de eso, salga de la ventana "Visual Basic". Ahora siga los pasos a continuación para agregar esta macro a la barra de herramientas de acceso rápido:

• Al principio, haga clic en la flecha hacia abajo en la barra de herramientas de acceso rápido y seleccione "Más comandos".
• Luego, en la nueva ventana emergente, establezca "Elegir comandos de" en "Macros".
• Después de eso, lanza el correcto.
• A continuación, haga clic en el botón "Agregar".
• Posteriormente, puede cambiar su apariencia. Haga clic en el botón "Modificar". En el nuevo cuadro de diálogo, asígnele un nuevo nombre y especifique un icono para él.
• Por último, haga clic en dos "Aceptar".

5. Finalmente, puede hacer clic en el icono de macro en la barra de herramientas de acceso rápido. Inmediatamente, aparecerá una nueva ventana de mensaje, como la siguiente imagen.

Método 2: crear un nuevo correo electrónico a partir de una plantilla existente con Outlook VBA

1. En primer lugar, debe tener una plantilla de correo electrónico preparada a mano. Cree un nuevo correo electrónico en el formato deseado, papelería y guárdelo como plantilla de Outlook. Para conocer los pasos detallados, consulte el artículo "Cómo mejorar la eficiencia de su trabajo a través de plantillas de Outlook”. Además, escriba la ruta de la carpeta de guardado de este archivo de plantilla.
2. Luego acceda a la ventana "Visual Basic" y abra un nuevo módulo como el Consejo 1.
3. Posteriormente, deberás copiar y pegar la siguiente captura de pantalla:

Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem
 
    Set obApp = Outlook.Application
    'Change the template file folder path according to your case
    Set NewMail = obApp.CreateItemFromTemplate("C:\Users\Test\Documents\Test Mail.oft")
    NewMail.Display
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

4. Después de eso, siga el Paso 5 en el Consejo 1 anterior para agregar la nueva macro a la Barra de herramientas de acceso rápido.
5. Eventualmente puedes intentarlo. Recibirá el nuevo correo electrónico usando la plantilla, como la imagen a continuación:

Comparación de los 2 métodos

Hacer frente a errores ocasionales de Outlook

Aunque Outlook es rico en funciones, aún es susceptible a varios problemas. Además, el más molesto es que los usuarios no pueden iniciar Outlook. En general, puede ocurrir desde Outlook corrupto. Así que puede ir al "Panel de control" para reparar la suite ofimática. Si el problema persiste, debe recurrir a una herramienta de reparación con experiencia, 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 reparación SQL Server mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com