Cómo imprimir automáticamente la primera página de correos electrónicos entrantes importantes en Outlook

A algunos usuarios les gustaría permitir que Outlook imprima automáticamente los correos electrónicos entrantes importantes. Además, si dicho correo electrónico es demasiado largo, para no desperdiciar papeles, Outlook solo imprimirá la primera página. Ahora, en este artículo, expondremos cómo realizarlo mediante programación.

Imprimir manualmente la primera página de un correo es bastante fácil. Puede cambiar las opciones de impresión antes de imprimir. Sin embargo, si espera que Outlook pueda identificar automáticamente la longitud del correo electrónico e imprimir automáticamente la primera página de un correo electrónico muy largo, debe buscar otros medios, como el siguiente.

Impresión automática de la primera página de correos electrónicos entrantes importantes

1. Para empezar, debe iniciar su aplicación Outlook con normalidad.
2. Luego, en la ventana principal de Outlook, debe presionar las teclas "Alt + F11".
3. Posteriormente, accederá al editor de VBA con éxito.
4. En esta nueva ventana, debe abrir un módulo vacío, en el que debe copiar el siguiente código VBA en este módulo.

Sub PrintFirstPage_ImportantIncomingEmails(objMail As Outlook.MailItem)
    Dim objWordApp As Word.Application
    Dim objTempWordDocument As Word.Document
    Dim objMailDocument As Word.Document
    Dim lPageCount As Long
 
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    objMailDocument.Range.Copy
    
    Set objWordApp = CreateObject("Word.Application")
    Set objTempWordDocument = objWordApp.Documents.Add
    objWordApp.Visible = True
    objTempWordDocument.Activate
 
    objTempWordDocument.Range.Paste
 
    lPageCount = objTempWordDocument.ComputeStatistics(wdStatisticPages)
 
    'If the email takes up more than one page
    If lPageCount > 1 Then
       'Only print the first page
       objTempWordDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"
    Else
       'Otherwise, print the whole email
       objMail.PrintOut
    End If
 
    objMail.Close olDiscard
    objMail.UnRead = True
 
    objTempWordDocument.Close False
    objWordApp.Quit
End Sub

5. Después de eso, puede salir de la ventana actual.
6. Luego vaya al menú "Archivo" y haga clic en el botón "Administrar reglas y alertas".
7. En el cuadro de diálogo emergente "Reglas y alertas", haga clic en el botón "Nueva regla".
8. A continuación, en el nuevo cuadro de diálogo del "Asistente de reglas", seleccione "Aplicar regla en los mensajes que recibo" y presione "Siguiente".
9. En la segunda pantalla del "Asistente de reglas", debe especificar las condiciones, es decir, definir qué correos electrónicos son importantes para usted, como los que provienen de remitentes específicos, etc.
10. Después de eso, haga clic en "Siguiente", que lo llevará a la siguiente pantalla, en la que deberá establecer la acción de la regla. Seleccione "Ejecutar un script" y opte por la macro agregada anteriormente.
11. Más tarde, haga clic en varios "Siguiente" hasta que aparezca la última pantalla: "Finalizar configuración de reglas", en la que puede especificar un nombre para esta regla y verificar la configuración de la regla una vez más.
12. Por último, haga clic en "Finalizar" para guardar esta nueva regla.
13. Finalmente, desde entonces, cada vez que un nuevo correo electrónico entrante importante ingresa a su buzón, Outlook imprimirá automáticamente su primera página si es demasiado larga.

Extraiga el máximo de datos de archivos PST dañados

Quizás se haya dado cuenta de la vulnerabilidad de Outlook. Bajo esta circunstancia, no debe dejar piedra sin remover para salvaguardar sus datos de Outlook. Sin embargo, la mayoría de las veces, encontrará que los datos de Outlook pueden corromperse simplemente debido a un cierre repentino. Por lo tanto, debe hacer preparativos para casos inesperados. Corrupción de Outlook, incluidas las copias de seguridad regulares de PST y una potente herramienta de reparació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 recuperar sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com