Comment envoyer un e-mail à des adresses e-mail spécifiées dans des cellules dans Excel?

Supposons que vous ayez une liste d'adresses e-mail et que vous souhaitiez maintenant envoyer un message électronique à ces adresses e-mail en masse directement dans Excel. Comment y parvenir? Cet article vous montrera les méthodes d'envoi d'e-mails à plusieurs adresses e-mail spécifiées dans les cellules d'Excel.

Envoyer un e-mail aux adresses e-mail spécifiées dans les cellules dans Excel avec VBA
Envoyez facilement des e-mails aux adresses e-mail spécifiées dans les cellules avec Kutools for Excel

Envoyer un e-mail aux adresses e-mail spécifiées dans les cellules dans Excel avec VBA

Le code VBA suivant peut vous aider à envoyer des e-mails aux adresses e-mail spécifiées dans Excel. Veuillez faire comme suit.

1. Dans la feuille de calcul contient les adresses e-mail auxquelles vous devez envoyer des e-mails, appuyez sur le bouton autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, veuillez cliquer Outils > Références comme ci-dessous la capture d'écran montrée.

3. dans le Références - VBAProject boîte de dialogue, veuillez trouver et vérifier la Bibliothèque d'objets Microsoft Outlook , puis cliquez sur le OK .

4. Puis clique insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA: 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

Notes: Veuillez indiquer l'objet et le corps de votre e-mail dans les deux .Subject = "test" et .Body = "Cher" _ & vbNewLine & vbNewLine & _ "Ceci est un email de test" & _ "envoi dans Excel" lignes dans le code.

5. appuie sur le F5 clé pour exécuter le code. Dans l'ouverture Kutools for Excel boîte de dialogue, veuillez sélectionner la plage contenant les adresses e-mail auxquelles vous enverrez des e-mails, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:

Ensuite, les e-mails basés sur les adresses e-mail sélectionnées sont créés comme illustré ci-dessous. Veuillez cliquer sur le Envoyer boutons pour envoyer ces e-mails.

Florales:

Envoyer un e-mail aux adresses e-mail spécifiées dans les cellules avec Kutools for Excel

Cette section vous recommandera le Envoyer des emails utilité de Kutools for Excel. Avec cet utilitaire, vous pouvez facilement envoyer des e-mails à des adresses e-mail spécifiées dans des cellules dans Excel. Veuillez faire comme suit.

1. Sélectionnez les adresses e-mail avec la cellule d'en-tête dans votre feuille de calcul, puis cliquez sur Kutools Plus > Envoyer des emails.

2. Dans le pop-up Envoyer des emails boîte de dialogue, veuillez effectuer les configurations suivantes:

3. Puis un Kutools for Excel La boîte de dialogue apparaît pour vous dire combien de courriels ont été envoyés. Veuillez cliquer sur le OK et fermez le Envoyer des emails boite de dialogue. Voir la capture d'écran:

Florales:

Démo : envoyer un e-mail aux adresses e-mail spécifiées dans les cellules avec Kutools for Excel

Articles Liés:

• Comment envoyer un e-mail en copiant et en collant une plage spécifiée dans le corps de l'e-mail dans Excel?
• Comment envoyer un e-mail avec plusieurs pièces jointes dans Excel?
• Comment insérer une signature dans un e-mail Outlook lors de l'envoi par vba dans Excel?
• Comment envoyer un e-mail si la date d'échéance a été respectée dans Excel?
• Comment envoyer automatiquement un e-mail en fonction de la valeur de la cellule dans Excel?