Comment répondre automatiquement avec le message électronique d'origine dans Outlook?
Normalement, lorsque nous créons une règle pour compter automatiquement le courrier électronique hors du bureau, mais le message d'origine dans le corps ne sera pas inclus. Comment pouvez-vous compter automatiquement les e-mails avec le message d'origine dans Outlook? Dans cet article, je vais parler d'un code VBA pour vous aider à terminer ce travail le plus rapidement possible dans Outlook.
E-mails de réponse automatique avec message d'origine dans Outlook avec code VBA
E-mails de réponse automatique avec message d'origine dans Outlook avec code VBA
La règle Outlook normale ne peut pas vous aider à gérer le travail, mais, avec le code VBA suivant, vous pouvez le terminer rapidement et facilement. Veuillez faire comme ceci:
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 CetteSessioPerspectivesn de la Projet1 (VbaProject.OTM) volet pour ouvrir le mode, puis copiez et collez le code suivant dans le module vide.
Code VBA: e-mails de réponse automatique avec message d'origine:
Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
.HTMLBody = xStr & .HTMLBody
.Send
End With
End Sub
3. Ensuite, enregistrez et fermez la fenêtre de code, fermez ou redémarrez Outlook pour que le code VBA prenne effet. Maintenant, lorsque vous recevez des e-mails, Outlook enverra une réponse automatique avec le message d'origine comme illustré ci-dessous:
Meilleurs outils de productivité bureautique
Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook
🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...
📧 Email Automation: Absent du bureau (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 facile 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 / Boostez votre productivité Outlook avec des vues à onglets / 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
infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.