Comment répondre normalement dans le dossier des éléments envoyés depuis Outlook?

Normalement, lorsque vous cliquez sur Fonction de réponse dans le dossier Éléments envoyés pour envoyer un autre message supplémentaire aux personnes que vous avez envoyées, votre propre adresse e-mail sera affichée dans le champ À comme la capture d'écran suivante. Cela peut être ennuyeux pour vous de changer l'adresse à chaque fois. Comment Outlook pourrait-il utiliser l'adresse du destinataire d'origine, pas la vôtre?

doc réponse a envoyé des e-mails 1

Répondre normalement dans le dossier Éléments envoyés depuis Outlook avec la fonctionnalité Répondre à tous

Répondre normalement dans le dossier Éléments envoyés depuis Outlook avec le code VBA

Répondre normalement dans le dossier Éléments envoyés depuis Outlook avec la fonctionnalité Répondre à tous

Dans Outlook, le Répondre à tous La fonctionnalité peut vous aider à résoudre ce problème, procédez comme suit:

Lorsque vous devez répondre à l'e-mail envoyé pour l'envoyer à nouveau pour conserver l'adresse du destinataire d'origine, veuillez cliquer sur Répondre à tous et l'adresse du destinataire d'origine se trouve dans le À champ comme illustré ci-dessous:

doc réponse a envoyé des e-mails 2

Répondre normalement dans le dossier Éléments envoyés depuis Outlook avec le code VBA

Parfois, vous pouvez oublier le Répondre à tous lorsque vous répondez au message envoyé, le code VBA ci-dessous peut vous aider à répondre normalement dans le dossier Éléments envoyés en utilisant la fonction Répondre. Faites avec les étapes suivantes:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook du Projet1 (VbaProject.OTM) volet pour ouvrir le mode, puis copiez et collez le code suivant dans le module vide.

Code VBA: Répondez normalement dans le dossier Éléments envoyés depuis 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 réponse a envoyé des e-mails 3

3. Ensuite, enregistrez le code et redémarrez Outlook pour prendre l'effet de code, maintenant, en cliquant sur Répondre renvoyer un e-mail dans Éléments envoyés dossier, l'adresse du destinataire d'origine est affichée dans le champ À selon vos besoins.