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

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?

resposta doc enviar emails 1

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:

resposta doc enviar emails 2


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 de 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

resposta doc enviar emails 3

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.


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 (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos