Como responder normalmente na pasta de itens enviados do Outlook?
Normalmente, quando você clica no recurso Responder na pasta Itens enviados para enviar outra mensagem adicional para as pessoas que você enviou, seu próprio endereço de e-mail será exibido no campo Para conforme a seguinte captura de tela mostrada. Isso pode ser irritante para você alterar o endereço a cada vez. Como poderia fazer o Outlook usar o endereço do destinatário original, não o seu?
Responda normalmente na pasta Itens Enviados do Outlook com o recurso Responder a Todos
Responda normalmente na pasta Itens enviados do Outlook com o código VBA
Responda normalmente na pasta Itens Enviados do Outlook com o recurso Responder a Todos
No Outlook, o Responder todos recurso pode ajudá-lo a resolver este problema, faça o seguinte:
Quando você precisar responder o e-mail enviado para enviar novamente e manter o endereço do destinatário original, clique Responder todos botão, e o endereço do destinatário original está localizado no Para campo conforme a seguinte captura de tela mostrada:
Responda normalmente na pasta Itens enviados do Outlook com o código VBA
Às vezes, você pode esquecer o Responder todos ao responder a mensagem enviada, portanto, o código VBA abaixo pode ajudá-lo a responder normalmente na pasta Itens Enviados usando o recurso Responder. Faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook do Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir no módulo em branco.
Código VBA: responda normalmente na pasta Itens enviados do Outlook:
Option Explicit
Private WithEvents GExplorer As Explorer
Private WithEvents GMailItem As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
On Error Resume Next
Set GMailItem = GExplorer.Selection.Item(1)
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xResponse As MailItem
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim i As Integer
Dim xTo As String, xCC As String, xBCC As String, xName As String
On Error Resume Next
If Application.ActiveExplorer.CurrentFolder <> Session.GetDefaultFolder(olFolderSentMail) Then
Exit Sub
End If
Cancel = True
Set xResponse = GMailItem.Reply
Set xRecipients = GMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
Set xRecipient = xRecipients.Item(i)
xName = xRecipient.Name
If Left(xName, 1) = "'" Then
xName = Mid(xName, 2, Len(xRecipient.Name) - 2)
End If
Select Case xRecipient.Type
Case olTo
xTo = xName & ";" & xTo
Case olCC
xCC = xName & ";" & xCC
Case olBCC
xBCC = xName & ";" & xBCC
End Select
Next
With xResponse
.To = xTo
.CC = xCC
.BCC = xBCC
End With
xResponse.Recipients.ResolveAll
xResponse.Display
End Sub
3. Em seguida, salve o código e reinicie o Outlook para que o código tenha efeito, agora, ao clicar Resposta para reenviar um e-mail em Itens enviados pasta, o endereço do destinatário original é exibido no campo Para conforme necessário.
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.