Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe e-mail naar e-mailadressen te verzenden die in cellen in Excel worden gespecificeerd?

Stel dat u een lijst met e-mailadressen heeft en nu wilt u deze e-mailadressen bulksgewijs rechtstreeks naar Excel sturen. Hoe het te bereiken? In dit artikel worden methoden weergegeven voor het verzenden van e-mail naar meerdere e-mailadressen die in cellen in Excel zijn opgegeven.

Verzend e-mail naar e-mailadressen gespecificeerd in cellen in Excel met VBA

Verzend e-mail naar e-mailadressen gespecificeerd in cellen met Kutools voor Excel

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Leesindeling (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik ...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde ... Voorkom dubbele cellen; Bereiken vergelijken ...
  • Selecteer Dubbele of Unieke rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkmappen; Willekeurig selecteren ...
  • Kopieer exact meerdere cellen zonder de formuleverwijzing te wijzigen; Automatisch verwijzingen maken naar meerdere bladen; Kogels invoegen, selectievakjes en meer ...
  • Favoriete en snel formules, reeksen, grafieken en afbeeldingen invoegen; Versleutel cellen met wachtwoord; Maak een mailinglijst en verzend e-mails ...
  • Tekst extraheren, tekst toevoegen, verwijderen op positie, spatie verwijderen; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen ...
  • Super Filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd Sorteren op maand / week / dag, frequentie en meer; Speciaal filter op vet, cursief ...
  • Werkboeken en werkbladen combineren; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Convert xls, xlsx en PDF ...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.

Verzend e-mail naar e-mailadressen gespecificeerd 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. Doe alsjeblieft als volgt.

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

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

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

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

VBA-code: stuur e-mail naar e-mailadressen die in cellen in Excel zijn gespecificeerd

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: Geef in beide uw onderwerp en hoofdtekst van e-mail aan .Onderwerp = "test" en .Body = "Geachte" _ & vbNewLine & vbNewLine & _ "Dit is een testmail" & _ "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 met de e-mailadressen waarnaar u e-mails stuurt en klik op de OK knop. Zie screenshot:

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

Notes:

1. Als er drie geselecteerde e-mailadressen in geselecteerde cellen bestaan, worden er drie e-mailberichten gemaakt.

2. De VBA-code werkt alleen als u Outlook gebruikt als uw e-mailprogramma.


Verzend e-mail naar e-mailadressen gespecificeerd in cellen met Kutools voor Excel

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

Kutools for Excel : met meer dan 300 handige Excel invoegtoepassingen, gratis om te proberen zonder beperking in 60-dagen.

1. Selecteer de e-mailadressen met de headercel in uw werkblad en klik vervolgens op Enterprise > Stuur emails. Zie screenshot:

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

2.1) Selecteer de kop van de e-mailadreslijst in de Naar keuzelijst;

2.2) Voer het e-mailonderwerp in de Onderwerp doos;

2.3) Samenstellen van uw e-mailtekst;

2.4) Controleer de Verzend e-mails via Outlook doos;

2.5) Klik op de Verstuur knop. Zie screenshot:

3. Dan een Kutools for Excel dialoogvenster verschijnt om u te laten weten hoeveel e-mails zijn verzonden. Klik op de OK knop en sluit de Stuur emails dialoog venster. Zie screenshot:

Notes:

1. U kunt naar de Outlook gaan Verzonden items map om te controleren op de verzendende e-mails.

2. U kunt ook een andere server gebruiken door op te klikken Uitgaande serverinstellingen om de verzendmodus naar uw eigen modus in te stellen.

Tip.Als u een gratis proefversie van dit hulpprogramma wilt hebben, gaat u naar download de software vrij eerst en vervolgens de bewerking volgens de bovenstaande stappen toepassen.


Demo: stuur e-mail naar e-mailadressen gespecificeerd in cellen met Kutools voor Excel

Kutools for Excel bevat meer dan handige Excel-gereedschappen van 300. Gratis om te proberen zonder beperking in 60-dagen. Download de gratis proefversie nu!


Gerelateerde artikelen:


  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905
  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.