Hoe stuur ik e-mail naar e-mailadressen die zijn opgegeven in cellen in Excel?

Stel dat u een lijst met e-mailadressen heeft en nu wilt u een e-mailbericht in bulk rechtstreeks in Excel naar deze e-mailadressen sturen. Hoe bereik je dit? Dit artikel toont u methoden voor het verzenden van e-mail naar meerdere e-mailadressen die zijn opgegeven in cellen in Excel.

Stuur e-mail naar e-mailadressen die zijn opgegeven in cellen in Excel met VBA
Verzend eenvoudig e-mail naar e-mailadressen die in cellen zijn opgegeven met Kutools voor Excel

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

De volgende VBA-code kan u helpen bij het verzenden van e-mails naar de opgegeven e-mailadressen in Excel. Ga als volgt te werk.

1. In het werkblad staan ​​de e-mailadressen waarnaar u e-mails moet sturen, druk op de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de opening Microsoft Visual Basic voor toepassingen venster, klik dan Tools > Referenties zoals hieronder getoond screenshot.

3. In de Referenties - VBAProject dialoogvenster, zoek en controleer het Microsoft Outlook-objectbibliotheek optie en klik vervolgens op het OK knop.

4. Dan klikken Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.

VBA-code: stuur e-mail naar e-mailadressen die zijn opgegeven in cellen in 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

Note: Geef in beide het onderwerp en de hoofdtekst van uw e-mail op .Subject = "test" en .Body = "Beste" _ & vbNewLine & vbNewLine & _ "Dit is een test-e-mail" & _ "verzenden in Excel" regels in de code.

5. druk de F5 sleutel om de code uit te voeren. In de opening Kutools for Excel dialoogvenster, selecteer het bereik dat de e-mailadressen bevat waarnaar u e-mails wilt sturen en klik vervolgens op het OK knop. Zie screenshot:

Vervolgens worden e-mails gemaakt op basis van geselecteerde e-mailadressen, zoals hieronder wordt getoond. Klik op het Verzenden knoppen om deze e-mails te verzenden.

Notes:

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

In deze sectie wordt u het Stuur emails nut van Kutools for Excel. Met dit hulpprogramma kunt u eenvoudig e-mails verzenden naar e-mailadressen die zijn opgegeven in cellen in Excel. Ga als volgt te werk.

1. Selecteer de e-mailadressen met de koptekstcel in uw werkblad en klik op Koetools Plus > Stuur emails.

2. In het opduiken Stuur emails dialoogvenster, voer de volgende configuraties uit:

3. Vervolgens een Kutools for Excel Er verschijnt een dialoogvenster om u te vertellen hoeveel e-mails er zijn verzonden. Klik op het OK knop en sluit het Stuur emails dialoog venster. Zie screenshot:

Notes:

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

Gerelateerde artikelen:

• Hoe e-mail verzenden met het kopiëren en plakken van een opgegeven bereik in de e-mailtekst in Excel?
• Hoe stuur ik een e-mail met meerdere bijlagen in Excel?
• Hoe een handtekening in Outlook-e-mail invoegen bij verzending via VBA in Excel?
• Hoe e-mail verzenden als de vervaldatum is bereikt in Excel?
• Hoe automatisch e-mail verzenden op basis van celwaarde in Excel?