How to Batch Change the Font & Preview Font of Email Lists in All Outlook Mail Folders

If you dislike the default font and preview font of the email list and want to customize it, you can change it as per your preference. This article will teach you how to change the font of email list in all email folders in batches.

As we all know, it is very simple to change the view font of email list. You can just go to “View” tab and click on “View Settings”. Then in the new popup dialog box, hit “Other Settings” button, which will bring out another dialog box. In it, you can change the view font at will. However, if you want to change the view font of all email folders, the standard way will be a bit tedious. Thus, here we will teach you a faster way, which uses VBA to enable you to change the font in bulk.

Batch Change the Font & Preview Font of Email Lists in All Outlook Mail Folders

Batch Change the Preview Font of Email Lists in All Outlook Mail Folders

  1. At the very outset, start your Outlook program.
  2. Then switch to “Developer” tab and click on the “Visual Basic” button.
  3. Next in the “Microsoft Visual Basic for Applications” window, you could open a module which is not in use or straightly insert a new module.
  4. Subsequently, copy and paste the following VBA code into this module.
Private Sub BatchChangeViewFont_EmailList_AllMailFolders()
    Dim objFolders As Outlook.folders
    Dim objFolder As Outlook.Folder
 
    'Change "Outlook Data File" to the real name of your own Outlook data file
    Set objFolders = Outlook.Application.Session.folders("Outlook Data File").folders
 
    For Each objFolder In objFolders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Complete!", vbExclamation, "Batch Change View Font"
End Sub
 
Private Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objTableView As Outlook.TableView
    Dim strFontName As String
    Dim objSubfolder As Outlook.Folder
 
    'Only work on mail folder
    If objCurrentFolder.DefaultItemType = olMailItem Then
       'Get the folder view
       Set objTableView = objCurrentFolder.CurrentView
 
       'Change the view font
       strFontName = "Comic Sans MS"
       With objTableView
            .AutoPreviewFont.Name = strFontName
            .AutoPreviewFont.Color = olColorRed
            .AutoPreviewFont.Bold = True
            .ColumnFont.Name = strFontName
            .RowFont.Name = strFontName
            .Apply
            .Save
       End With
    End If
 
    'Process the subfolders recursively
    If objCurrentFolder.folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

VBA Code - Batch Change the Preview Font of Email Lists in All Outlook Mail Folders

  1. After that, you ought to change your Outlook macro security level to low.
  2. Ultimately, you can back to the new VBA project and press “F5” key button to trigger this macro.
  3. After it completes, you can see that the email list in all mail folders of the predefined Outlook file displays in the changed font, like the following image:Change Font of Mail List

What to Do in Case of Outlook Crash

You may get panic when coming across sudden Outlook crash, worried about the health of your Outlook data file. To be honest, most of time, your file will not get corrupt. But, if unfortunately, file becomes compromised and inaccessible, you had better resort to a preeminent tool, such as DataNumen Outlook Repair. It is well versed in Outlook repair.

Author Introduction:

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

Comments are closed.