Ga naar hoofdinhoud

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.

Opmerkingen:

1. Als er drie afzonderlijke e-mailadressen zijn in de geselecteerde cellen, worden er drie e-mailberichten gemaakt.
2. De VBA-code werkt alleen als u Outlook als uw e-mailprogramma gebruikt.

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:

2.1) Selecteer de koptekst van de e-mailadreslijst in het Naar keuzelijst;
2.2) Voer het onderwerp van de e-mail in het Onderwerp doos;
2.3) Het samenstellen van uw e-mailtekst;
2.4) Controleer het Stuur e-mails via Outlook doos;
2.5) Klik op de Verzenden knop. Zie screenshot:

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:

1. U kunt naar de Outlook-lijst 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 op uw eigen in te stellen.

  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:

Beste Office-productiviteitstools

Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

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...

kte tabblad 201905


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hogyan választhatom ki a CC-ket ugyanúgy, mint a címzetteket? Lee ezt kérdezte :D
This comment was minimized by the moderator on the site
Hi KK,
If you want to add CC recipients with the email addresses in specified cells, you need to manually add an email address to the To line in the code, and then add a Cc line.
The two lines are as follows.
.To = ""
.Cc = xRgVal
This comment was minimized by the moderator on the site
수신인과 마찬가지의 방법으로 참조인을 선택하려면 어떻게 하나요?
This comment was minimized by the moderator on the site
Hi lee,
Sorry I don't understand your question. You may need to attach a screenshot to describe the problem more clearly.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations