Como escrever um macro de VBA para criar respostas em HTML no Outlook 2007?

Escrito por susan hare | Traduzido por josé fabián
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como escrever um macro de VBA para criar respostas em HTML no Outlook 2007?
Configurar o e-mail para o formato HTML aumenta as opções de fontes e estilos (Email LCD display image by Alex Yeung from Fotolia.com)

O Microsoft Outlook 2007 não traz no próprio programa a possibilidade de mudar o formato das respostas para o formato HTML. É possível selecionar o formato para cada mensagem individual, mas o processo é demorado. Para forçar o formato HTML em todas as mensagens, será necessário escrever um macro no "Visual Basic for Applications" (VBA). O VBA é a linguagem de programação padrão para aplicativos do Office. Para forçar o macro a ser executado automaticamente, será preciso ignorar alguns procedimentos de eventos do Outlook.

Nível de dificuldade:
Moderadamente fácil

Outras pessoas estão lendo

Instruções

  1. 1

    Clique no menu "Tools" (Ferramentas), passe o mouse por cima de "Macro" e selecione o elemento "Visual Basic Editor" (Editor do Visual Basic).

  2. 2

    Expanda a pasta do projeto e o diretório nomeado "Microsoft Office Outlook Objects" (Objetos do Microsoft Office Outlook).

  3. 3

    Dê um duplo clique em "ThisOutlookSession" para abrir a janela de edição do código.

  4. 4

    Copie e cole o seguinte código VBA no editor de código:

    Option Explicit

    Private WithEvents objExplorer As Explorer Private WithEvents objMailItem As MailItem Private blnDiscardEvents As Boolean Private objBodyFormat As OlBodyFormat

    Private Sub Application_Startup() Set objExplorer = Application.ActiveExplorer blnDiscardEvents = False objBodyFormat = olFormatHTML End Sub

    Private Sub objExplorer_SelectionChange() On Error Resume Next Set objMailItem = objExplorer.Selection.Item(1) End Sub

    Private Sub objMailItem_Reply(ByVal Response As Object, Cancel As Boolean) If blnDiscardEvents Or objMailItem.BodyFormat = objBodyFormat Then Exit Sub End If Cancel = True blnDiscardEvents = True Dim oResponse As MailItem Set oResponse = objMailItem.Reply oResponse.Display oResponse.BodyFormat = objBodyFormat blnDiscardEvents = False End Sub

    Private Sub objMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean) If blnDiscardEvents Or objMailItem.BodyFormat = objBodyFormat Then Exit Sub End If Cancel = True blnDiscardEvents = True Dim oResponse As MailItem Set oResponse = objMailItem.ReplyAll oResponse.Display oResponse.BodyFormat = objBodyFormat blnDiscardEvents = False End Sub

    Private Sub objMailItem_Forward(ByVal Forward As Object, Cancel As Boolean) If blnDiscardEvents Or objMailItem.BodyFormat = objBodyFormat Then Exit Sub End If Cancel = True blnDiscardEvents = True Dim oResponse As MailItem Set oResponse = objMailItem.Forward oResponse.Display oResponse.BodyFormat = objBodyFormat blnDiscardEvents = False End Sub

  5. 5

    Clique no menu "File" (Arquivo) e selecione o item "Save" (Salvar).

  6. 6

    Feche o editor do Visual Basic.

  7. 7

    Clique no menu "Tools", passe o mouse por cima de "Macro" e selecione a opção "Security" (Segurança).

  8. 8

    Certifique-se de que os macros não estão desabilitados selecionando a opção "Warnings for all macros" (Advertências para todas as macros), e clique em "OK".

  9. 9

    Reinicialize o aplicativo "Microsoft Outlook".

  10. 10

    Selecione a opção "Enable Macros" (Habilitar macros) quando aparecer uma advertência durante o início do Outlook.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível