How to Batch Change the Styles of All Hyperlinks in Your Outlook Email

Maybe you have been weary of the default style of hyperlink in Outlook email. If you want to change the styles of all existing hyperlinks when composing a mail, you can use the approach introduced in this article.

As you can see, hyperlink is shown in blue with underlines by default in Outlook emails. If you’re tired of the default style of hyperlink, when you finish an email, you may want to batch change the styles of all existing hyperlinks in this mail. In this case, you can use a bit of scripting to realize it in bulk. Also, if you don’t know how to use VBA in Outlook, you can refer to the article – “How to Run VBA Code in Your Outlook”.

Batch Change the Styles of All Hyperlinks in Your Outlook Email

Batch Change the Styles of All Hyperlinks in an Email

  1. At first, start your Outlook program.
  2. Then, access Outlook VBA editor via “Alt + F11” key buttons.
  3. In the subsequent “Microsoft Visual Basic for Applications” window, put the following VBA code into a project or module.
Sub BatchChangeStylesOfAllHyperlinks()
    Dim objSourceMail As MailItem
    Dim objMailDocument As Word.Document
    Dim objHyperlinks As Word.Hyperlinks
 
    'Get the source email
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objSourceMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objSourceMail = ActiveExplorer.Selection.Item(1)
                objSourceMail.Display
    End Select
 
    Set objMailDocument = objSourceMail.GetInspector.WordEditor
    Set objHyperlinks = objMailDocument.Hyperlinks
 
    If objHyperlinks.Count > 0 Then
       'Change the font styles of all hyperlinks
       With objMailDocument.Styles("Hyperlink").Font
            .Name = "Cambria"
            .Underline = wdUnderlineNone
            .Color = wdColorOrange
            .Bold = True
            .Italic = True
       End With
 
       'Save the changes
       'objSourceMail.Save
    Else
       MsgBox "There isn’t hyperlink in this email!", vbExclamation + vbOKOnly
    End If
End Sub

VBA Code - Batch Change the Styles of All Hyperlinks in an Email

  1. After that, exit the current window.
  2. Later, add this new macro to Quick Access Toolbar of Message window.
  3. Finally, you can take a shot:
  • First off, compose an email containing the hyperlinks.
  • Then, click the macro in Quick Access Toolbar.
  • When macro finishes, you’ll find that the styles of hyperlinks have been changed, like the following screenshot:Change Hyperlink Styles

Salvage Your Outlook Data in Time

When you discover that your Outlook data file becomes corrupted, what would you do then? Generally speaking, in the first place, you can attempt to repair the compromised file via inbox repair tool. However, to be honest, the built-in tool is unable to fix seriously damaged file. Thus, if it fails, you should proceed to check if you have an up-to-date Outlook data backup, which will let you recover Outlook data with effortless ease. Yet, if there is not such a backup, you have no choice but to take recourse to a trustworthy external tool, like DataNumen Outlook Repair.

Author Introduction:

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

Comments are closed.