Hoe verstuurt u een e-mail naar e-mailadressen die in cellen in Excel zijn opgegeven?

Stel, u heeft een lijst met e-mailadressen en u wilt nu een e-mailbericht in bulk naar deze adressen sturen, rechtstreeks vanuit Excel. Hoe doet u dat? In dit artikel laten we u verschillende methoden zien om e-mails te versturen naar meerdere e-mailadressen die in cellen in Excel zijn opgegeven.

E-mail versturen naar e-mailadressen die in cellen in Excel zijn opgegeven met VBA
Eenvoudig e-mails versturen naar e-mailadressen die in cellen zijn opgegeven met Kutools voor Excel

E-mail versturen naar e-mailadressen die in cellen in Excel zijn opgegeven met VBA

Met de volgende VBA-code kunt u e-mails versturen naar de opgegeven e-mailadressen in Excel. Volg hiervoor de onderstaande stappen.

1. Open het werkblad met de e-mailadressen waarnaar u wilt mailen en druk gelijktijdig op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het geopende Microsoft Visual Basic for Applications-venster op Tools > References, zoals weergegeven in de onderstaande schermafbeelding.

3. Zoek en vink in het dialoogvenster References – VBAProject de optie Microsoft Outlook Object Library aan en klik vervolgens op de knop OK.

4. Klik vervolgens op Invoegen > Module. Kopieer en plak daarna de onderstaande VBA-code in het Module-venster.

VBA-code: E-mail versturen naar e-mailadressen die in cellen in Excel zijn opgegeven

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

Opmerking: Geef uw e-mailonderwerp en -tekst op in zowel .Subject = "test" als .Body = "Dear " _ & vbNewLine & vbNewLine & _ "This is a test email " & _ "sending in Excel" regels in de code.

5. Druk op de F5-toets om de code uit te voeren. In het geopende Kutools voor Excel-dialoogvenster selecteert u het bereik met de e-mailadressen waarnaar u wilt mailen en klikt u op OK. Zie schermafbeelding:

Daarna worden er e-mails aangemaakt op basis van de geselecteerde e-mailadressen, zoals te zien is op de onderstaande schermafbeelding. Klik op de knop Verzenden om deze e-mails te versturen.

Opmerkingen:

E-mail versturen naar e-mailadressen die in cellen zijn opgegeven met Kutools voor Excel

In dit gedeelte bevelen we de functie E-mail verzenden van Kutools voor Excel aan. Met deze functie kunt u eenvoudig e-mails versturen naar e-mailadressen die in cellen in Excel zijn opgegeven. Volg hiervoor de onderstaande stappen.

1. Selecteer de e-mailadressen inclusief de koptekstcel in uw werkblad en klik vervolgens op Kutools Plus > E-mail verzenden.

2. Stel in het pop-upvenster E-mail verzenden de volgende opties in:

3. Vervolgens verschijnt er een Kutools voor Excel-dialoogvenster waarin wordt aangegeven hoeveel e-mails er zijn verzonden. Klik op OK en sluit het venster E-mail verzenden. Zie schermafbeelding:

Opmerkingen:

Demo: E-mail versturen naar e-mailadressen die in cellen zijn opgegeven met Kutools voor Excel

Gerelateerde artikelen:

• Hoe verstuurt u een e-mail met een opgegeven bereik dat wordt gekopieerd en geplakt in de e-mailtekst in Excel?
• Hoe verstuurt u een e-mail met meerdere bijlagen in Excel?
• Hoe voegt u een handtekening toe aan een Outlook-e-mail bij het verzenden via VBA in Excel?
• Hoe verstuurt u een e-mail als de vervaldatum is bereikt in Excel?
• Hoe automatisch een e-mail versturen op basis van een celwaarde in Excel?