How to Auto Print an Email after Flagging It in Your Outlook

Some users always need to print out the flagged emails in Outlook. Hence, in this article, we will introduce a method to configure Outlook to auto accomplish this.

More often than not, to follow up an email, you can flag it. Meanwhile, in order to get details about this email even after shutting down your computer, you may hope to print it out as well. Hence, usually, after you flag an email, you are used to continuing to print it. Now that this is a repetitive operation, why don’t you let your Outlook do it automatically? Perhaps you’ve already hold such an idea, but unfortunately Outlook doesn’t provide a direct feature. Well, in the followings, we will share an efficient method to realize it. Now read on to get elaborate steps.

Auto Print an Email after Flagging It in Your Outlook

Auto Print an Email after Flagging It

  1. For a start, access Outlook VBA editor by making reference to “How to Run VBA Code in Your Outlook“.
  2. Then, in the new screen, open the “ThisOutlookSession” project and copy the following VBA code into it.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

'Auto Print after flagging an email
Private Sub objMail_PropertyChange(ByVal Name As String)
    If Name = "FlagStatus" Then
       If objMail.IsMarkedAsTask = True Then
          If objMail.FlagStatus <> olFlagComplete And objMail.FlagStatus <> olNoFlag Then
             objMail.PrintOut
          End If
       End If
    End If
End Sub

VBA Code - Auto Print an Email after Flagging It

  1. Next, exit the current window and restart Outlook to activate this project.
  2. From now on, every time when you flag an email, Outlook will auto print it out, like the following screenshot.Print Flagged Emails

Cope with Outlook Damage in Time

Many users have complained a lot of about annoying and miserable PST damage. Thereby, they long for mighty approaches to fire back against such issues. But, to be honest, there is not such a versatile method. What we can do is to make efforts to make precautions, such as looking out for all potential viruses, making regular data backups, keeping a powerful and well-qualified Outlook fix tool in vicinity, like DataNumen Outlook Repair. It is able to get back your valuable Outlook data with ease, rescuing you from painful Outlook repair.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including SQL Server repair and outlook repair software products. For more information visit www.datanumen.com