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?
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:
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
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.
AI Mail Assistant dans Outlook : réponses plus intelligentes, communication plus claire (magie en un clic !) un devis GRATUIT
Rationalisez vos tâches Outlook quotidiennes avec l'assistant AI Mail de Kutools for Outlook. Cet outil puissant apprend de vos e-mails passés pour offrir des réponses intelligentes et précises, optimiser le contenu de vos e-mails et vous aider à rédiger et affiner vos messages sans effort.
Cette fonctionnalité prend en charge :
- Réponses intelligentes : obtenez des réponses élaborées à partir de vos conversations passées : personnalisées, précises et prêtes à l'emploi.
- Contenu amélioré : affinez automatiquement le texte de votre e-mail pour plus de clarté et d'impact.
- Composition sans effort : fournissez simplement des mots-clés et laissez l'IA gérer le reste, avec plusieurs styles d'écriture.
- Extensions intelligentes : développez vos idées avec des suggestions contextuelles.
- Récapitulatif : obtenez instantanément des aperçus concis des longs e-mails.
- Portée mondiale : traduisez facilement vos e-mails dans n’importe quelle langue.
Cette fonctionnalité prend en charge :
- Réponses intelligentes par e-mail
- Contenu optimisé
- Brouillons basés sur des mots clés
- Extension de contenu intelligente
- Résumé par e-mail
- Traduction multilingue
Mieux encore, cette fonctionnalité est complètement faim pour toujours! N'attendez pas—téléchargez AI Mail Assistant maintenant et profitez-en!
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
