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

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.


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés