Como imprimir automaticamente a primeira página de e-mails importantes recebidos no Outlook

Alguns usuários gostariam de deixar o Outlook imprimir automaticamente os e-mails importantes recebidos. Além disso, se tal e-mail for muito longo, para não desperdiçar papéis, o Outlook imprimirá apenas a primeira página. Agora, neste artigo, vamos expor como realizá-lo programaticamente.

Imprimir manualmente a primeira página de um e-mail é muito fácil. Você pode apenas alterar as opções de impressão antes de imprimir. No entanto, se você espera que o Outlook possa identificar automaticamente o comprimento do e-mail e imprimir automaticamente a primeira página de um e-mail muito longo, você deve procurar outros meios, como o seguinte.

Imprima automaticamente a primeira página de e-mails importantes recebidos

1. Para começar, você precisa iniciar seu aplicativo Outlook normalmente.
2. Em seguida, na janela principal do Outlook, você precisa pressionar as teclas "Alt + F11".
3. Posteriormente, você acessará o editor VBA com sucesso.
4. Nesta nova janela, você deve abrir um módulo vazio, no qual você deve copiar o seguinte código VBA para 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. Depois disso, você pode sair da janela atual.
6. Em seguida, vá ao menu “Arquivo” e clique no botão “Gerenciar regras e alertas”.
7. Na caixa de diálogo pop-up “Regras e alertas”, clique no botão “Nova regra”.
8. Em seguida, na nova caixa de diálogo do “Assistente de Regras”, selecione “Aplicar regra às mensagens recebidas” e clique em “Avançar”.
9. Na segunda tela do “Assistente de Regras”, você deve especificar as condições, ou seja, definir quais e-mails são importantes para você, como provenientes de remetentes específicos, etc.
10. Depois disso, clique em “Avançar”, que o levará à próxima tela, na qual você precisará definir a ação da regra. Selecione “Executar um script” e opte pela macro adicionada anteriormente.
11. Posteriormente, clique em vários “Next” até obter a última tela – “Finish rule setup”, na qual você pode especificar um nome para esta regra e verificar a configuração da regra mais uma vez.
12. Por fim, clique em “Concluir” para salvar esta nova regra.
13. Finalmente, desde então, toda vez que um novo e-mail importante entra em sua caixa de correio, o Outlook imprime automaticamente sua primeira página se for muito longa.

Extraia dados máximos de arquivos PST corrompidos

Talvez você tenha percebido a vulnerabilidade do Outlook. Nessa circunstância, você não deve deixar pedra sobre pedra para proteger seus dados do Outlook. No entanto, na maioria das vezes, você descobrirá que os dados do Outlook podem ser corrompidos simplesmente devido a um desligamento repentino. Assim, você tem que fazer preparativos para imprevistos Corrupção do Outlook, incluindo backups PST regulares e uma ferramenta de correção potente, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperar sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com