Botão de faixa de opções do Outlook 2010 para alterar a fonte possível?

Question

É possível adicionar um botão à faixa de opções do Outlook 2010 que alterará a fonte do texto realçado para "Courier New" e reduzirá o tamanho da fonte para 10 pontos? Não o documento inteiro, apenas o texto destacado.

Ter que clicar duas vezes na fonte e duas vezes no tamanho da fonte para fazer isso é agravante para o meu túnel do carpo.

    

Answer 1

usar uma macro funcionará, mas requer a ativação de macros que o Outlook avisará.

link mostra como ativar maros, criar um macro e adicioná-lo à faixa de opções.

link tem código no resposta que irá realizar alterações no texto atualmente selecionado.

Para alterar a fonte para correio novo, 10 pontos, negrito, preto, estou usando essa macro derivada do segundo link:

Sub ChangeSelectedFontToCode()
 Dim msg As Outlook.MailItem
 Dim insp As Outlook.Inspector

 Set insp = Application.ActiveInspector

 If insp.CurrentItem.Class = olMail Then
     Set msg = insp.CurrentItem

     If insp.EditorType = olEditorHTML Then ' outlook 2003
         Set hed = msg.GetInspector.HTMLEditor
         Set rng = hed.Selection.createRange
         rng.pasteHTML "<b><font style='color: black; font-size: 10pt; font-family:Courier New;'>" & rng.Text & "</font></b>"
     End If

     If insp.EditorType = olEditorWord Then ' outlook 2013
         Set hed = msg.GetInspector.WordEditor
         Set appWord = hed.Application
         Set rng = appWord.Selection
         rng.Font.Size = 10
         rng.Font.Color = wdColorBlack
         rng.Font.Bold = True
         rng.Font.Name = "Courier New"

         rng.Collapse Direction:=wdCollapseEnd
     End If

 End If

 Set appWord = Nothing
 Set insp = Nothing
 Set rng = Nothing
 Set hed = Nothing
 Set msg = Nothing

 End Sub