Come stampare automaticamente la prima pagina di importanti e-mail in arrivo in Outlook

Condividi ora:

Alcuni utenti vorrebbero consentire a Outlook di stampare automaticamente le e-mail importanti in arrivo. Inoltre, se tale email è troppo lunga, per non sprecare carta, Outlook stamperà solo la prima pagina. Ora, in questo articolo, esporremo come realizzarlo a livello di codice.

Stampare manualmente la prima pagina di una mail è piuttosto semplice. Puoi semplicemente modificare le opzioni di stampa prima di stampare. Tuttavia, se speri che Outlook possa identificare automaticamente la lunghezza dell'e-mail e stampare automaticamente la prima pagina di un'e-mail molto lunga, devi cercare altri mezzi, come il seguente.

Stampa automaticamente la prima pagina delle e-mail importanti in arrivo nel tuo Outlook

Stampa automatica della prima pagina delle e-mail importanti in arrivo

  1. Per cominciare, devi avviare la tua applicazione Outlook normalmente.
  2. Quindi, nella finestra principale di Outlook, è necessario premere i tasti "Alt + F11".
  3. Successivamente, accederai all'editor VBA con successo.
  4. In questa nuova finestra, dovresti aprire un modulo vuoto, in cui dovresti copiare il seguente codice VBA in questo modulo.
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

Codice VBA: stampa automaticamente la prima pagina di importanti e-mail in arrivo

  1. Successivamente, puoi uscire dalla finestra corrente.
  2. Quindi vai al menu "File" e fai clic sul pulsante "Gestisci regole e avvisi".
  3. Nella finestra di dialogo popup "Regole e avvisi", fare clic sul pulsante "Nuova regola".
  4. Successivamente, nella nuova finestra di dialogo della "Creazione guidata regole", seleziona "Applica regola ai messaggi che ricevo" e fai clic su "Avanti".
  5. Nella seconda schermata di "Regole guidate", dovresti specificare le condizioni, vale a dire definire quali e-mail sono importanti per te, come provenienti da mittenti specifici, ecc.
  6. Successivamente, fai clic su "Avanti", che ti porterà alla schermata successiva, in cui dovrai impostare l'azione della regola. Seleziona "Esegui uno script" e opta per la macro aggiunta in precedenza.Selezionare l'azione della regola "Esegui uno script".
  7. Successivamente, fai clic su diversi "Avanti" fino a visualizzare l'ultima schermata - "Termina configurazione regola", in cui puoi specificare un nome per questa regola e controllare nuovamente l'impostazione della regola.
  8. Infine fai clic su "Fine" per salvare questa nuova regola.
  9. Infine, da allora, ogni volta che una nuova importante email in arrivo entra nella tua casella di posta, Outlook stamperà automaticamente la sua prima pagina se è troppo lunga.

Estrai i dati massimi dai file PST danneggiati

Forse ti sei reso conto della vulnerabilità di Outlook. In questa circostanza, non devi lasciare nulla di intentato per salvaguardare i tuoi dati di Outlook. Tuttavia, il più delle volte, scoprirai che i dati di Outlook possono essere danneggiati semplicemente a causa di un arresto improvviso. Quindi, devi fare i preparativi per imprevisti Corruzione di Outlook, inclusi backup PST regolari e un potente strumento di correzione, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com

Condividi ora:

I commenti sono chiusi.