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

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

Insérer la signature dans le courrier électronique Outlook lors de l'envoi par Excel VBA
Insérez facilement la signature Outlook lors de l'envoi d'un e-mail dans Excel avec un outil incroyable
Plus de tutoriels pour l'envoi dans Excel ...

Insérer la signature dans le courrier électronique Outlook lors de l'envoi par Excel VBA

Par exemple, il existe une liste d'adresses e-mail dans une feuille de calcul, pour envoyer des e-mails à toutes ces adresses dans Excel et ajouter la signature Outlook par défaut dans les e-mails. Veuillez appliquer le code VBA ci-dessous pour y parvenir.

1. Ouvrez la feuille de calcul contenant la liste d'adresses e-mail à laquelle vous souhaitez envoyer un e-mail, puis appuyez sur le bouton autre + F11 clés.

2. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module, puis copiez le ci-dessous VBA2 dans la fenêtre de code du module.

3. Vous devez maintenant remplacer le .Corps faire la queue VBA2 avec le code en VBA1. Après cela, déplacez la ligne .Afficher sous la ligne Avec xMailOut.

VBA 1 : modèle d'envoi d'e-mails 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 e-mail aux adresses e-mail spécifiées dans les cellules dans 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 à trouver facilement les différences après avoir modifié le code VBA.

4. appuie sur le F5 clé pour exécuter le code. Puis un Kutools for Excel la boîte de sélection apparaît, veuillez sélectionner les adresses e-mail auxquelles vous enverrez des e-mails, puis cliquez sur D'ACCORD.

Ensuite, les e-mails sont créés. Vous pouvez voir que la signature par défaut d'Outlook est ajoutée à la fin du corps de l'e-mail.

Conseils:

• 1. Vous pouvez modifier le corps de l'e-mail 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 pour avertir que le type défini par l'utilisateur n'est pas défini, fermez cette boîte de dialogue, puis cliquez sur Outils > Références dans le Microsoft Visual Basic pour applications la fenêtre. Dans l'ouverture Références - VBAProject fenêtre, vérifiez la Bibliothèque d'objets Microsoft Outlook boîte et cliquez D'ACCORD. Et puis exécutez à nouveau le code.
  

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

Si vous êtes un novice en VBA, je recommande vivement le Envoyer des emails utilité de Kutools for Excel pour vous. Avec cette fonctionnalité, vous pouvez facilement envoyer des e-mails en fonction de certains champs dans Excel et leur ajouter une signature Outlook. Veuillez faire comme suit.

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

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

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

2. dans le Créer une liste de diffusion boîte de dialogue, spécifiez les champs dont vous avez besoin, choisissez l'emplacement de sortie de la liste, puis cliquez sur le bouton OK .

3. Un exemple de liste de diffusion est maintenant créé. Comme il s'agit d'un exemple de liste, vous devez modifier les champs pour certains contenus nécessaires. (plusieurs lignes sont autorisées)

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

5. dans le Envoyer des emails boite de dialogue:

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

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

Articles Liés: