Comment insérer la signature Outlook lors de l'envoi d'un email dans Excel ?

Supposons que vous souhaitiez envoyer un email directement depuis Excel, comment pouvez-vous ajouter la signature par défaut d'Outlook dans l'email ? Cet article propose deux méthodes pour vous aider à ajouter la signature Outlook lors de l'envoi d'un email dans Excel.

Insérer une signature dans un email Outlook lors de l'envoi via VBA Excel
Insérez facilement la signature Outlook lors de l'envoi d'un email dans Excel avec un outil incroyable
Plus de tutoriels pour l'envoi d'emails dans Excel...

Insérer une signature dans un email Outlook lors de l'envoi via VBA Excel

Par exemple, il y a une liste d'adresses email dans une feuille de calcul. Pour envoyer des emails à toutes ces adresses dans Excel et ajouter la signature par défaut d'Outlook dans les emails, veuillez appliquer le code VBA ci-dessous pour y parvenir.

1. Ouvrez la feuille de calcul contenant la liste d'adresses email auxquelles vous souhaitez envoyer un email, puis appuyez sur les touches Alt + F11.

2. Dans la fenêtre Microsoft Visual Basic for Applications qui s'ouvre, cliquez sur Insertion > Module, puis copiez le code VBA 2 ci-dessous dans la fenêtre de code du module.

3. Maintenant, vous devez remplacer la ligne .Body dans VBA 2 par le code de VBA 1. Ensuite, déplacez la ligne .Afficher sous la ligne Avec xMailOut.

VBA 1 : Modèle d'envoi d'emails avec la signature par défaut d'Outlook dans Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2 : Envoyer un email aux adresses spécifiées dans les cellules d'Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

La capture d'écran suivante peut vous aider à identifier facilement les différences après modification du code VBA.

4. Appuyez sur la touche F5 pour exécuter le code. Une boîte de sélection Kutools for Excel apparaît, veuillez sélectionner les adresses email auxquelles vous enverrez les emails, puis cliquez sur OK.

Les emails sont alors créés. Vous pouvez voir que la signature par défaut d'Outlook est ajoutée à la fin du corps de l'email.

Conseils :

• 1. Vous pouvez modifier le corps de l'email dans le code VBA 1 en fonction de vos besoins.
• 2. Après avoir exécuté le code, si une boîte de dialogue d'erreur apparaît indiquant que le type défini par l'utilisateur n'est pas défini, veuillez fermer cette boîte de dialogue, puis aller cliquer sur Outils > Références dans la fenêtre Microsoft Visual Basic for Applications fenêtre qui s'ouvre. Références – VBAProject cochez la case Bibliothèque d'objets Microsoft Outlook case et cliquez OK. Ensuite, exécutez à nouveau le code.
  

Insérez facilement la signature Outlook lors de l'envoi d'un email dans Excel avec un outil incroyable

Si vous êtes débutant en VBA, nous vous recommandons vivement l'utilitaire Send Emails de Kutools for Excel. Avec cette fonctionnalité, vous pouvez facilement envoyer des emails basés sur certains champs dans Excel et ajouter la signature Outlook. Veuillez procéder comme suit.

Tout d'abord, vous devez créer une liste de diffusion avec différents champs sur lesquels vous enverrez des emails.

Vous pouvez créer manuellement une liste de diffusion selon vos besoins ou utiliser la fonction Créer une liste de diffusion pour la créer rapidement.

1. Cliquez sur Kutools Plus > Créer une liste de diffusion.

2. Dans la boîte de dialogue Créer une liste de diffusion, spécifiez les champs dont vous avez besoin, choisissez où afficher la liste, puis cliquez sur le bouton OK.

3. Maintenant, un exemple de liste de diffusion est créé. Comme il s'agit d'une liste d'exemple, vous devez modifier les champs pour correspondre au contenu nécessaire (plusieurs lignes sont autorisées).

4. Après cela, sélectionnez toute la liste (y compris les en-têtes), cliquez sur Kutools Plus > Envoyer des emails.

5. Dans la boîte de dialogue Envoyer des emails :

• 5.1) Les éléments de la liste de diffusion sélectionnée sont automatiquement placés dans les champs correspondants ;
• 5.2) Terminez le corps de l'email ;
• 5.3) Cochez les cases Envoyer l'email via Outlook et Utiliser les paramètres de signature d'Outlook ;
• 5.4) Cliquez sur le bouton Envoyer. Voir la capture d'écran :

Les emails sont maintenant envoyés. Et la signature par défaut d'Outlook est ajoutée à la fin du corps de l'email.

Articles connexes :