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 SubNote: 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.
Opmerkingen:
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.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
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:
Opmerkingen:
Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
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?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
