Macro para Outlook 2016

Creo que estás tratando de ejecutar un código VBA que y es para Microsoft Word, en lugar de Microsoft Outlook. Outlook maneja los correos electrónicos en HTML, en lugar de los objetos de Word, por lo que la forma de manejar el formato de párrafo es un poco diferente.

Si quieres cambiar el formato de los párrafos en un correo electrónico en Outlook, tendrias que crear un correo en Word con el formato que deseas, y luego enviar ese correo desde Word. Un ej de eso que he visto sería de este estilo:

Public Sub Formato()
  Dim doc As Word.Document
  Dim rng As Word.Range
  ' Crea un nuevo documento en Word
  Set doc = Word.Documents.Add
  Set rng = doc.Range
  ' Añade y formatea el texto
  With rng
      .Text = "Aquí va tu texto"
      .ParagraphFormat.Alignment = wdAlignParagraphJustify
      .ParagraphFormat.SpaceBefore = 12
      .ParagraphFormat.LeftIndent = InchesToPoints(1)
  End With
  ' Crea un nuevo correo electrónico en Outlook
  Dim olApp As Outlook.Application
  Dim olMail As Outlook.MailItem
  Set olApp = New Outlook.Application
  Set olMail = olApp.CreateItem(olMailItem)
  ' Copia el contenido del documento de Word en el cuerpo del correo electrónico
  rng.Copy
  olMail.GetInspector.WordEditor.Content.Paste
  ' Muestra el correo electrónico
  olMail.Display
  ' Limpia
  doc.Close False
  Set rng = Nothing
  Set doc = Nothing
  Set olMail = Nothing
  Set olApp = Nothing
End Sub

Espero te sea de ayuda. saludos.