Hoe stuurt u een e-mail naar het e-mailadres dat is opgegeven in Excel-cellen?
Stel dat u een lijst met e-mailadressen hebt en deze bulksgewijs direct vanuit Excel wilt versturen. Hoe pakt u dat aan? In dit artikel leest u hoe u e-mails kunt verzenden naar meerdere e-mailadressen die in cellen in Excel staan vermeld.
Verstuur e-mail naar E-mailadres opgegeven in cellen in Excel met VBA
Verstuur eenvoudig e-mail naar E-mailadres opgegeven in cellen met Kutools voor Excel
Verstuur e-mail naar E-mailadres opgegeven in cellen in Excel met VBA
Met de volgende VBA-code kunt u e-mails versturen naar het opgegeven e-mailadres in Excel. Volg deze stappen.
1. Druk in het werkblad met het e-mailadres waarnaar u e-mails wilt sturen tegelijkertijd op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het geopende venster Microsoft Visual Basic for Applications op Extra > Referenties, zoals op de onderstaande afbeelding wordt weergegeven.
3. Zoek in het dialoogvenster Referenties – VBAProject de optie Microsoft Outlook Object Library, vink deze aan en klik vervolgens op de knop OK.
4. Klik vervolgens op Invoegen > Module. Kopieer en plak daarna de onderstaande VBA-code in het modulevenster.
VBA-code: Verstuur e-mail naar E-mailadres 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 SubOpmerking: Geef uw e-mailonderwerp en -tekst op in zowel .Subject = „test" als .Body = „Beste " _ & vbNewLine & vbNewLine & _ "Dit is een test-e-mail " & _ „verzonden vanuit Excel" regels in de code.
5. Druk op de toets F5 om de code uit te voeren. Selecteer in het geopende dialoogvenster Kutools voor Excel het bereik met de e-mailadressen waarnaar u e-mails wilt sturen en klik op de knop OK. Zie afbeelding:
Er worden vervolgens e-mails gemaakt op basis van het geselecteerde e-mailadres, zoals in de onderstaande afbeelding wordt weergegeven. Klik op de knoppen Verzenden om deze e-mails te versturen.
Opmerkingen:
Verstuur e-mail naar E-mailadres opgegeven in cellen met Kutools voor Excel
In dit gedeelte wordt u de functie E-mails verzenden van Kutools voor Excel aangeraden. Met deze functie kunt u eenvoudig e-mails versturen naar e-mailadressen die zijn opgegeven in cellen in Excel. Volg deze stappen.
1. Selecteer het e-mailadres, inclusief de kopcel, in uw werkblad en klik op KUTOOLS PLUS > E-mails verzenden.
2. Voer in het verschijnende dialoogvenster E-mails verzenden de volgende instellingen uit:
3. Vervolgens verschijnt een dialoogvenster Kutools voor Excel waarin wordt vermeld hoeveel e-mails zijn verzonden. Klik op de knop OK en sluit het dialoogvenster E-mails verzenden. Zie afbeelding:
Opmerkingen:
Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.
Demo: Verstuur e-mail naar E-mailadres opgegeven in cellen met Kutools voor Excel
Gerelateerde artikelen:
- Hoe stuurt u een e-mail waarin u een beperkt bereik uit Excel naar de e-mailbody kopieert en plakt?
- Hoe stuurt u een e-mail met meerdere bijlagen vanuit Excel?
- Hoe voegt u bij het verzenden van een e-mail via VBA in Excel een handtekening toe in Outlook?
- Hoe stuurt u een e-mail wanneer de vervaldatum in Excel is bereikt?
- Hoe stuurt u automatisch een e-mail op basis van een celwaarde in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins