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 Preview Font of Email Lists in All Outlook Mail Folders
- At the very outset, start your Outlook program.
- Then switch to “Developer” tab and click on the “Visual Basic” button.
- 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.
- 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
- After that, you ought to change your Outlook macro security level to low.
- Ultimately, you can back to the new VBA project and press “F5” key button to trigger this macro.
- 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:
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.
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