¿Cómo responder normalmente en la carpeta de elementos enviados desde Outlook?

Normalmente, cuando hace clic en la función Responder en la carpeta Elementos enviados para enviar otro mensaje adicional para las personas que ha enviado, su propia dirección de correo electrónico se mostrará en el campo Para como se muestra en la siguiente captura de pantalla. Esto puede resultarle molesto al cambiar la dirección cada vez. ¿Cómo puede hacer que Outlook use la dirección del destinatario original, no la suya?

doc responder correos electrónicos enviados 1

Responda normalmente en la carpeta Elementos enviados desde Outlook con la función Responder a todos

Responda normalmente en la carpeta Elementos enviados desde Outlook con código VBA

Responda normalmente en la carpeta Elementos enviados desde Outlook con la función Responder a todos

En Outlook, el Responder a todos La función puede ayudarlo a resolver este problema, haga lo siguiente:

Cuando necesite responder el correo electrónico enviado para enviarlo de nuevo para mantener la dirección del destinatario original, haga clic en Responder a todos y la dirección del destinatario original se encuentra en el A campo como se muestra en la siguiente captura de pantalla:

doc responder correos electrónicos enviados 2

Responda normalmente en la carpeta Elementos enviados desde Outlook con código VBA

En algún momento, puede olvidar el Responder a todos función al responder el mensaje enviado, por lo que el siguiente código VBA puede ayudarlo a responder normalmente en la carpeta Elementos enviados mediante la función Responder. Haz con los siguientes pasos:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En la Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook del desplegable Proyecto1 (VbaProject.OTM) panel para abrir el modo y luego copie y pegue el siguiente código en el módulo en blanco.

Código de VBA: responda normalmente en la carpeta Elementos enviados desde 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

doc responder correos electrónicos enviados 3

3. Luego, guarde el código y reinicie Outlook para que tenga el efecto del código, ahora, al hacer clic en Responder reenviar un correo electrónico en Elementos enviados carpeta, la dirección del destinatario original se muestra en el campo Para según lo necesite.