Eu fui com uma solução Macro, embora o script possa não estar correto (Acabei de ler um pouco sobre o VBA ontem). Não consegui encontrar um estilo constante, então adicionei as propriedades que me interessavam (uma sombra).
Public Sub AddShadow()
Dim document As document
Dim shape As InlineShape
If Application.ActiveInspector Is Nothing Then
Exit Sub
End If
If Not (TypeOf Application.ActiveInspector.CurrentItem Is MailItem) Then
Exit Sub
End If
Set document = Application.ActiveInspector.CurrentItem.GetInspector.WordEditor
For Each shape In document.InlineShapes
With shape
If .Type = wdInlineShapePicture And .Width > 70 And .Height > 70 Then
With .Shadow
.Visible = msoTrue
.Style = msoShadowStyleOuterShadow
.Blur = 30
.Transparency = 0.29
End With
End If
End With
Next
End
End Sub