Note: The other languages of the website are Google-translated. Back to English

Como responder em formato HTML automaticamente no Outlook?

No Microsoft Outlook, podemos definir as configurações e redigir todas as novas mensagens em formato HTML, mas não podemos responder mensagens em formato HTMT automaticamente, pois sempre responde no formato inicial das mensagens recebidas. Este artigo apresentará truques sobre como responder em formato HTML automaticamente no Outlook.

Responder em formato HTML manualmente com formatação
Responder em formato HTML automaticamente com VBA
Sempre responda em formato HTML automaticamente com o Kutools para Outlook


Responder em formato HTML manualmente com formatação

É fácil converter os formatos de Texto Simples ou Rich text para o formato HTML ao responder uma mensagem de e-mail no Outlook.

1: Selecione a mensagem de e-mail que você responderá mais tarde.

2: Clique no Resposta botão no Início (ou na barra de ferramentas do Outlook 2007) para responder à mensagem de e-mail selecionada.

3: Clique no HTML no Formatar Texto guia (ou Opções guia no Outlook 2007).

Em seguida, a mensagem de resposta é convertida para o formato HTML imediatamente.

4: Escreva esta mensagem de resposta e clique no botão ENVIAR botão.


Responder em formato HTML automaticamente com VBA

O método a seguir o ajudará a responder a todas as mensagens de e-mail no formato HTML automaticamente no Microsoft Outlook.

1: Selecione a mensagem de e-mail que você irá responder no formato HTML.

2: Pressione o outro + F11 para abrir a janela Microsoft Visual Basic for Applications.

3: Clique no inserção > Módulo.

4: Cole o seguinte código na janela do novo módulo.

Sub AlwaysReplyInHTML()
Dim oSelection As Outlook.Selection
Dim oItem As Object
'Get the selected item
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oSelection = Application.ActiveExplorer.Selection
If oSelection.Count > 0 Then
Set oItem = oSelection.Item(1)
Else
MsgBox "Please select an item first!", vbCritical, "Reply in HTML"
Exit Sub
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
Case Else
MsgBox "Unsupported Window type." & vbNewLine & "Please select or open an item first.", _
vbCritical, "Reply in HTML"
Exit Sub
End Select
    Dim oMsg As Outlook.MailItem
Dim oMsgReply As Outlook.MailItem
Dim bPlainText As Boolean
'Change the message format and reply
If oItem.Class = olMail Then
Set oMsg = oItem
If oMsg.BodyFormat = olFormatPlain Then
bPlainText = True
End If
oMsg.BodyFormat = olFormatHTML
Set oMsgReply = oMsg.Reply
If bIsPlainText = True Then
oMsg.BodyFormat = olFormatPlain
End If
oMsg.Close (olSave)
oMsgReply.Display
'Selected item isn't a mail item
Else
MsgBox "No message item selected. Please select a message first.", _
vbCritical, "Reply in HTML"
Exit Sub
End If
'Cleanup
Set oMsgReply = Nothing
Set oMsg = Nothing
Set oItem = Nothing
Set oSelection = Nothing
End Sub

5: Se você deseja responder a esta mensagem selecionada apenas em formato html, pressione o botão F5 chave para executar o código. Em seguida, a janela de mensagem de resposta aparece, por favor, escreva e pressione o ENVIAR botão para enviar o e-mail.

Dicas::
Se você quiser sempre ou com frequência responder e-mails em formato html no futuro no Outlook, continue configurando da seguinte maneira.
1) Clique no Personalize a barra de ferramentas de acesso rápido botão na faixa de opções do Outlook e clique em Mais comandos do menu suspenso.

2) No Opções do Outlook caixa de diálogo, você precisa:
2.1) Selecione Macros no Escolha comandos de lista suspensa;
2.2) Selecione Projeto1.AlwaysReplyInHTML na caixa de comando;
2.3) Clique no Adicionar botão (você pode ver que a macro selecionada é adicionada à caixa da direita);
2.4) Clique no OK botão. Veja a imagem:

3) Agora a macro é adicionada na barra de ferramentas de acesso rápido e exibida como um  ícone. Sempre que precisar responder um email em formato html, selecione o email e clique neste botão para ativá-lo.


Sempre responda em formato HTML automaticamente com o Kutools para Outlook

Kutools para Outlook : com mais de 100 suplementos úteis do Outlook, grátis para experimentar sem limitação em 60 dias.

Aqui, recomendo um utilitário útil - Formatação de resposta fixa of Kutools para Outlook. Com este utilitário, você pode facilmente especificar uma formatação de resposta, como HTML, texto simples e RTF, e corrigir a formatação especificada como o formato de resposta para todos os emails de resposta futuros.

1. Clique Kutools > Formatação Fixa > Formatação de resposta fixa > Definir formatação de resposta. Veja a imagem:

2. No Definir formatação de resposta caixa de diálogo, selecione o HTML opção e, em seguida, clique no botão OK botão.

3. Agora clique Formatação Fixa > Formatação de resposta fixaHabilitar formatação de resposta fixa na guia Kutools para habilitar o utilitário.

A partir de agora, o Outlook sempre responde um e-mail em formato HTML.

Se você deseja ter um teste gratuito deste utilitário, vá para baixe gratuitamente o software primeiro e, em seguida, aplique a operação de acordo com as etapas acima.


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (24)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
VOCÊ É UM VERDADEIRO!!! :lol: O script VBA funciona perfeitamente, não preciso mais deletar minha assinatura, converter manualmente para HTML e depois reinserir minha assinatura em TODAS as mensagens que envio!
Este comentário foi feito pelo moderador no site
Você é um gênio amigo!!! Obrigado... Tenho outra pergunta.. Você sabe como remover os marcadores de parágrafo quando eles aparecem automaticamente ao redigir uma resposta no Outlook. Obrigada
Este comentário foi feito pelo moderador no site
Excelente, herói! Realmente funciona, economiza tempo e energia.
Este comentário foi feito pelo moderador no site
Estou usando e amando isso há um mês (obrigado!), mas hoje quebrou. Outras pesquisas on-line me dizem que pode ter sido uma atualização do Outlook que o quebrou - alguma ideia?
Este comentário foi feito pelo moderador no site
Isso parece funcionar no remetente do qual recebi o e-mail txt, mas não para outros remetentes. Eu tenho que executar novamente isso para cada remetente? FYI, Outlook 365 para uma conta de email do Exchange em uma máquina com Windows 7.
Este comentário foi feito pelo moderador no site
ótimo trabalho, mas está me dando um erro: Set oMsgReply = oMsg.Reply não pôde sed msg
Este comentário foi feito pelo moderador no site
Bom trabalho. mas na verdade eu tenho um pequeno erro que pode estar conflitante com a opção em execução: Set oMsgReply = oMsg.Reply você pode me dizer se você experimenta um erro relacionado à linha de código acima. rgds
Este comentário foi feito pelo moderador no site
Obrigado por isso, mas estou tendo problemas. Copiei/colei e o número foi colocado acima do texto quando o colei e recebi a mensagem de erro - "erro de compilação: procedimento externo inválido" Então tentei apenas apagar os números e sair do teste e obtive: Erro de tempo de execução - não foi possível enviar mensagem. - Em seguida, cliquei em Debug e obtive o mesmo erro que os outros: Set oMsgReply = oMsg.Reply Thoughts?
Este comentário foi feito pelo moderador no site
Não abra o e-mail, apenas destaque-o no Outlook. Alt + F11 insira o módulo F5 Novo e-mail deve abrir como HTML para responder
Este comentário foi feito pelo moderador no site
Obrigado, funcionou. Você é o cara!
Este comentário foi feito pelo moderador no site
Por favor, você conhece as teclas 'Alt F11' e 'F5' apropriadas ao usar o Outlook 2016 em um Mac?
Isso com certeza é uma omissão irritante da Microsoft. Muito Obrigado. Espero que você possa ajudar.
Este comentário foi feito pelo moderador no site
isso altera apenas o e-mail que selecionei. como você muda isso para todos os e-mails?
Este comentário foi feito pelo moderador no site
Mesma coisa para mim. Você conseguiu alguma ajuda?
Este comentário foi feito pelo moderador no site
Muito obrigado por esta macro!
Este comentário foi feito pelo moderador no site
Eu segui todas as etapas listadas, mas quando pressiono F5 para executar o módulo, recebo uma mensagem de erro informando que as macros deste projeto foram desabilitadas. Eu até tentei entrar nas configurações do Outlook e dizer ao Outlook para ativar todas as macros. Qualquer ajuda seria muito apreciada!
Este comentário foi feito pelo moderador no site
A execução da macro funciona para uma instância, mas como replicá-la para ocorrer em todas as instâncias?
Este comentário foi feito pelo moderador no site
Olá,

Isso funciona muito bem, obrigado. Mas... não responde a todos. Apenas o remetente do e-mail recebido é adicionado à resposta. O que devo mudar no código para que ele faça "Responder a todos" em vez de "Responder"?


Obrigado!
Este comentário foi feito pelo moderador no site
Oi,

quanto a responder a todos - é muito simples - basta alterar a 31ª linha de código:

Defina oMsgReply = oMsg.Reply --> altere "oMsg.ReplyAll" ou altere "oMsg.Forward"

E para solicitar "todos os e-mails" basta fazer isso:
Ao invés de criar botões no acesso rápido, crie novos botões diretamente na faixa de opções (Personalizar Faixa de Opções), crie um "Personalizado" ("Novo Grupo") lá e crie botões a partir de macros (primeira macro para "responder a todos", segunda macro para "frente").

E o grupo "Responder" original pode ser removido da faixa de opções ;)

De qualquer forma, extendoffice.com é um ótimo site do qual às vezes extraio dados - muito obrigado... ;)
Este comentário foi feito pelo moderador no site
Isso é ótimo e resolve uma frustração de longo prazo com o Outlook! Como alguém sem experiência com codificação VBA, posso obter um pouco mais de conselhos sobre como configurar a funcionalidade de responder a tudo e encaminhar. Eu tenho o 'replyinHTML' funcionando (com um botão de faixa de opções personalizado para ele), mas não tenho certeza de como fazer as outras opções funcionarem. Devo criar um novo projeto ou novo módulo dentro do projeto existente com o código modificado na linha 31?
Qualquer ajuda apreciada - obrigado!
Este comentário foi feito pelo moderador no site
Oi, você deve salvá-los, respectivamente, como três módulos diferentes. :)
Este comentário foi feito pelo moderador no site
Obrigado!
Este comentário foi feito pelo moderador no site
Eu tenho usado essa macro por alguns anos. Infelizmente, ele começou a mudar o conjunto de caracteres do e-mail respondido para algum conjunto de caracteres desconhecido, por exemplo, "整瑸栯浴㭬挠慨獲瑥甽晴㠭㸢਍䴼呅⁁䅎䕍∽敇" que não é traduzível. Alguém mais se deparou com esse problema e, se sim, você conseguiu encontrar uma correção?
Este comentário foi feito pelo moderador no site
Oi lá,

Tente o código abaixo:
Sub AlwaysReplyInHTML()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMail As Outlook.MailItem
Dim xMailReply As Outlook.MailItem
'On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
  Case "Explorer"
    Set xSelection = Application.ActiveExplorer.Selection
    If xSelection.Count > 0 Then
      Set xItem = xSelection.Item(1)
    Else
      MsgBox "Please select an item first!", vbCritical, "Kutools for Outlook"
      Exit Sub
    End If
  Case "Inspector"
    Set xItem = Application.ActiveInspector.CurrentItem
  Case Else
    MsgBox "Unsupported Window type." & vbNewLine & "Please select or open an item first.", vbCritical, "Kutools for Outlook"
    Exit Sub
End Select
If xItem.Class = olMail Then
  Set xMail = xItem
  Set xMailReply = xMail.Reply
  xMailReply.Display
  xMailReply.BodyFormat = olFormatHTML
Else
  MsgBox "No message item selected. Please select a message first.", vbCritical, "Kutools for Outlook"
  Exit Sub
End If
Set xMailReply = Nothing
Set xMail = Nothing
Set xItem = Nothing
Set xSelection = Nothing
End Sub
Este comentário foi feito pelo moderador no site
Obrigado vou dar uma chance. Tenha um bom dia.
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos