Lorsque les utilisateurs envoient des e-mails à leurs clients ou à leurs patrons, il est assez difficile d'en garder la trace. Dans ce cas, Excel est très utile. Par conséquent, "envoyer un e-mail automatique à partir de Excel à Outlook" s'est avéré être une approche permettant de gagner du temps. Macros Excel VBA et le HYPERLINK peut envoyer des e-mails automatiques ou créer un brouillon à l'aide d'entrées Excel.

Disons que nous avons Salaire restructuré de l'employé données dans Excel et nous voulons envoyer un email automatique en utilisant Outlook .

Dans cet article, nous démontrons de multiples variantes de Macros VBA et le HYPERLINK pour envoyer un courriel automatique à partir de Excel à Outlook .

Télécharger le classeur Excel

⧭ Ouverture de Microsoft Visual Basic et insertion du code dans le module

Avant de procéder à la démonstration d'une quelconque méthode, il est nécessaire de connaître les moyens d'ouvrir et d'insérer un Module dans le Microsoft Visual Basic dans Excel.

🔄 Ouverture de Microsoft Visual Basic : Il y a principalement 3 les moyens d'ouvrir Microsoft Visual Basic fenêtre.

1. utilisation des raccourcis clavier : Appuyez sur ALT+F11 tout à fait pour ouvrir Microsoft Visual Basic fenêtre.

2. Utilisation de l'onglet Développeur : Dans une feuille de calcul Excel, allez à Onglet Développeur > ; Sélectionner Visual Basic . le Microsoft Visual Basic apparaît.

3. en utilisant l'onglet Feuille de travail : Accédez à n'importe quelle feuille de calcul, Clic droit sur elle> ; Choisir Afficher le code (de la Contexte Menu ).

🔄 Insertion d'un module dans Microsoft Visual Basic : Il y a 2 façons d'insérer un Module sur Microsoft Visual Basic fenêtre,

1. Utiliser les options de la feuille : Après avoir ouvert le Microsoft Visual Basic sélectionnez une Feuille de travail > ; Clic droit sur elle> ; Sélectionner Insérer (de la Menu contextuel )> ; puis choisir Module .

2. Utilisation de la barre d'outils : Vous pouvez également le faire en sélectionnant Insérer (de la Barre d'outils )> ; alors choisir Module .

4 façons simples d'envoyer un courriel automatique d'Excel à Outlook

Méthode 1 : Utilisation d'une macro VBA pour envoyer automatiquement un courriel à des destinataires sélectionnés à l'aide d'Outlook

Nous voulons créer une exécution de Macro Bouton qui nous permet d'envoyer simplement un courrier à des destinataires sélectionnés en un seul clic.

Étape 1 : Allez à la Insérer tab> ; Formes > ; Sélectionnez l'une des formes proposées (c'est-à-dire, Rectangulaire : Coins arrondis ).

Étape 2 : Faites glisser le Icône Plus où vous voulez insérer le Forme comme le montre l'image ci-dessous.

Étape 3 : Choisissez une préférence Remplissage de la forme et Grandes lignes Couleur puis cliquez dessus avec le bouton droit de la souris. Cliquez sur Modifier le texte pour insérer du texte.

Étape 4 : Utilisez le instruction pour ouvrir Microsoft Visual Basic et insérer Module Collez la macro suivante dans le fichier Module .

 Sub ExcelToOutlookSR() Dim mApp As Object Dim mMail As Object Dim SendToMail As String Dim MailSubject As String Dim mMailBody As String For Each r In Selection SendToMail = Range("C" & ; r.Row) MailSubject = Range("F" & ; r.Row) mMailBody = Range("G" & ; r.Row) Set mApp = CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) With mMail .To = SendToMail .Subject = MailSubject.Body = mMailBody .Display ' Vous pouvez utiliser .Send End With Next r End Sub 

➤ dans le code,

1 - démarrer la macro-procédure en déclarant les variables sous forme de Objet et Chaîne de caractères .

2 - exécuter un VBA POUR boucle pour chaque ligne de la sélection afin d'assigner l'email Envoyer à , Sujet et Corps en utilisant des entrées de ligne.

3 - affecter des variables.

4 - effectuer le VBA avec pour remplir Outlook des articles tels que Envoyer à , Objet du courrier etc. Ici, la macro n'exécute que la commande Afficher commande pour faire ressortir Outlook avec un brouillon d'email. Cependant, si Envoyer est utilisée à la place ou après la commande Affichez, Outlook enverra l'e-mail créé aux destinataires sélectionnés.

5 - terminer le VBA POUR boucle.

Étape 5 : Retournez à la feuille de calcul. Cliquez avec le bouton droit de la souris sur l'icône de la feuille de calcul. Forme puis sélectionnez Attribuer une macro de la Menu contextuel options.

Étape 6 : Sélectionnez la Macro (c'est-à-dire, ExcelToOutlookSR ) dans le cadre du Nom de la macro et choisissez le Macro en comme Ce cahier d'exercices Cliquez sur OK .

Étape 7 : Maintenant, dans la feuille de calcul, sélectionnez un ou plusieurs employés puis cliquez sur le bouton Bouton de forme .

Étape 8 : Les invites d'Excel Outlook pour le déjeuner et crée ou envoie des e-mails aux employés sélectionnés. Lorsque vous sélectionnez deux des employés, Outlook génère deux brouillons d'e-mails différents prêts à être envoyés.

Comme la macro ne fournit que le Afficher commandement, Outlook affiche simplement le brouillon du courriel sans l'envoyer. Utilisez l'option Envoyer pour envoyer automatiquement des courriels à partir de Excel à Outlook en utilisant des entrées de cellules.

Lire la suite : Macro Excel pour l'envoi automatique d'un courriel (3 exemples pertinents)

Méthode 2 : Envoi automatique d'e-mails d'Excel à Outlook en fonction de la valeur d'une cellule spécifique

Que faire si nous voulons envoyer un e-mail automatique après avoir atteint les objectifs de l'UE ? Excel à Outlook Un code macro peut faire ce travail facilement.

Supposons que nous ayons Données trimestrielles sur les ventes comme illustré ci-dessous, après avoir atteint un objectif (c'est-à-dire, Ventes> ; 2000 ) demandera automatiquement Outlook pour envoyer un courriel à partir d'Excel à un identifiant de courriel assigné.

Étape 1 : Tapez le code macro suivant dans n'importe quel Module .

 Option Explicit Dim Rng As Range Sub Worksheet_Change(ByVal mRng As Range) On Error Resume Next If mRng.Cells.Count> ; 1 Then Exit Sub Set Rng = Intersect(Range("F17"), mRng) If Rng Is Nothing Then Exit Sub If IsNumeric(mRng.Value) And Target.Value> ; 2000 Then Call ExcelToOutlook End If End Sub ExcelToOutlook() Dim mApp As Object Dim mMail As Object Dim mMailBody As String Set mApp =CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) mMailBody = "Greetings Sir" & ; vbNewLine & ; vbNewLine & ; _ "Notre point de vente a réalisé un chiffre d'affaires trimestriel supérieur à l'objectif." & ; vbNewLine & ; _ "C'est un courrier de confirmation." & ; vbNewLine & ; vbNewLine & ; _ "Regards" & ; vbNewLine & ; _ "Outlet Team" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Notification on Achieving Sales Target" .Body = mMailBody .Display 'ou vous pouvez utiliser .Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ A partir de l'image ci-dessus, dans les sections,

1 - attribuer une cellule (c'est-à-dire, F17 ) dans une fourchette pour exécuter la VBA IF Si la déclaration donne lieu à Véritable la macro appelle une autre macro pour l'exécution.

2 - déclarer des types de variables et les affecter pour remplir Outlook des entrées.

3 - faire VBA avec pour affecter des variables aux entrées de courrier électronique. Utilisez l'instruction Envoyer au lieu de Afficher dans le cas où vous souhaitez envoyer directement des e-mails sans les réviser. L'e-mail du destinataire est inséré dans la macro. Utilisez d'autres méthodes dans le cas où vous souhaitez une insertion automatique de l'identifiant e-mail du destinataire.

4 - supprimer certaines variables de l'assignation.

Étape 2 : Utilisez le F5 pour exécuter la macro. Dans un instant, Excel récupère Outlook avec un brouillon d'email créé automatiquement comme indiqué ci-dessous. Vous pouvez cliquer sur Envoyer ou l'envoi automatique en utilisant Envoyer dans la macro.

Lire la suite : Envoyer automatiquement des e-mails depuis Excel en fonction du contenu des cellules (2 méthodes)

Lectures similaires

• Comment voir qui est dans un fichier Excel partagé (avec des étapes rapides)
• Activer le partage de classeur dans Excel
• Comment partager un fichier Excel pour plusieurs utilisateurs
• Comment appliquer une macro pour envoyer un courriel à partir d'Excel avec une pièce jointe ?

Méthode 3 : Utilisation d'une macro VBA pour envoyer un courriel avec une feuille de calcul active depuis Excel par Outlook

Alternativement, il peut y avoir des cas où nous avons besoin d'envoyer une entière Feuille active à une adresse de courriel assignée. Dans ce cas, nous pouvons utiliser une balise Fonction personnalisée VBA à appeler dans une macro.

Étape 1 : Insérez la macro ci-dessous dans le fichier Module .

 Function ExcelOutlook(mTo, mSub As String, Optional mCC As String, Optional mBd As String) As Boolean On Error Resume Next Dim mApp As Object Dim rItem As Object Set mApp = CreateObject("Outlook.Application") Set rItem = mApp.CreateItem(0) With rItem .To = mTo .CC = "" .Subject = mSub .Body = mBd .Attachments.Add ActiveWorkbook.FullName .Display 'or you can use .Send End With Set rItem = NothingSet mApp = Nothing End Function Sub OutlookMail() Dim mTo As String Dim mSub As String Dim mBd As String mTo = "[email protected]" mSub = "Quarterly Sales Data" mBd = "Greetings Sir" & ; vbNewLine & ; vbNewLine & ; _ "Kindly find Outlet's Quarterly Sales data attached with this mail." & ; vbNewLine & ; _ "It's a notification mail." & ; vbNewLine & ; _ "Regards" & ;vbNewLine & ; _ "Outlet Team" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Successfully created the Mail draft or Sent" End If End Sub 

➤ D'après l'image ci-dessus, les sections du code,

1 - déclarer et définir les variables.

2 - attribuer les commandes en utilisant le VBA avec Utilisez le Afficher ou Envoyer pour la révision ou l'envoi direct d'e-mails respectivement.

3 - effacer les variables précédemment définies.

4 - attribuer le VBA avec des commandes avec des textes.

5 - exécuter le Fonction personnalisée VBA .

Étape 2 : Pour exécuter la macro, appuyez sur F5 et instantanément, Excel fait apparaître les Outlook avec une ébauche d'email à réviser semblable à l'image ci-dessous. Ensuite, vous pouvez l'envoyer.

Lire la suite : Comment envoyer des emails en masse depuis Outlook en utilisant Excel (3 façons)

Méthode 4 : Envoi automatique d'un courriel d'Excel à Outlook à l'aide de la fonction HYPERLINK

Le site HYPERLINK génère un lien cliquable dans les cellules d'Excel pour amener Outlook comme moyen d'envoyer des e-mails automatiques à partir d'Excel.

Étape 1 : Tapez la formule suivante dans la cellule H5 .

Le site HYPERLINK La fonction prend "MailTo :"&C5& ;"?Subject="&F5& ;"&cc="&$D$2& ;"&body="G 5 comme lien_location et "Cliquez ici" comme nom_amical .

Étape 2 : Hit ENTER pour coller le lien, puis cliquez sur le lien.

Étape 3 : Excel vous amène à Outlook Et vous voyez tous les Outlook Les entrées sont remplies avec des données assignées provenant d'Excel. Cliquez sur Envoyer .

Étape 4 : Faites glisser le Poignée de remplissage pour appliquer la formule à d'autres cellules.

Lire la suite : Comment envoyer automatiquement un courriel lorsque la condition est remplie dans Excel ?

Conclusion

Variantes de macros VBA et HYPERLINK peut être utile lors de l'envoi automatique d'e-mails d'Excel vers Outlook. J'espère que vous trouverez votre méthode préférée parmi celles décrites ci-dessus. Commentez, si vous avez d'autres questions ou si vous avez quelque chose à ajouter.