Hoe stuurt u vanuit Excel via Outlook een e-mail naar meerdere ontvangers uit een lijst?
In veel werkpleksituaties komt u lijsten met e-mailadressen tegen die zijn opgeslagen in een kolom van een Excel-werkblad – bijvoorbeeld voor het verspreiden van nieuwsbrieven, het verzenden van facturen of het informeren van deelnemers over een evenement. In plaats van elk adres handmatig in te voeren of Outlook te openen om afzonderlijke e-mails op te stellen, kunt u dit proces stroomlijnen door Excel direct berichten te laten verzenden naar alle ontvangers. Deze handleiding biedt gedetailleerde oplossingen om tegelijkertijd e-mails naar meerdere ontvangers te versturen vanuit Excel, geïntegreerd met Outlook – zodat u tijd bespaart en fouten voorkomt.
Verstuur een e-mail naar meerdere ontvangers vanuit Excel met VBA-code
Alternatieve oplossing: Verstuur E-mailadres gescheiden door puntkomma’s met een Excel-formule
Verstuur een e-mail naar meerdere ontvangers vanuit Excel met VBA-code
Als u dezelfde e-mail tegelijkertijd naar een groep mensen wilt sturen en hun adressenlijst in een kolom van een werkblad hebt staan, kunt u VBA-code gebruiken om deze taak te automatiseren. Deze methode is bijzonder handig voor batchmeldingen of groepsupdates, zonder dat u de ontvangers handmatig in Outlook hoeft toe te voegen. Volg deze stappen:
1. Druk op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen. Als u het tabblad Ontwikkelaar nog niet hebt ingeschakeld, vindt u de instructies hiervoor in de instellingen van Excel.
2. Klik in het VBA-venster op Invoegen > Module. Hiermee opent u een leeg modulevenster waarin u uw code kunt invoeren. Plak de volgende code hierin:
VBA-code: E-mail verzenden naar meerdere ontvangers
Sub sendmultiple()
'updateby Extendoffice
Dim xOTApp As Object
Dim xMItem As Object
Dim xCell As Range
Dim xRg As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOTApp = CreateObject("Outlook.Application")
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
Set xMItem = xOTApp.CreateItem(0)
With xMItem
.To = xEmailAddr
.Display
End With
End Sub
3. Druk op F5(of klik op Uitvoeren) om de code uit te voeren. U krijgt dan een dialoogvenster te zien waarin u wordt gevraagd de lijst met e-mailadressen uit uw werkblad te selecteren. Selecteer in deze stap eenvoudig alle cellen met de vereiste e-mailadressen, zodat de code alleen ontvangers meeneemt die voldoen aan het e-mailformaat ()*@*). Zie screenshot:
4. Nadat u de adressen hebt geselecteerd, klikt u op OK. Outlook opent automatisch een nieuw Bericht-venster met de geselecteerde adressen al ingevuld in het veld Aan. U kunt nu het onderwerp instellen en uw bericht naar wens opstellen. In het venster kunt u indien nodig nog aanpassingen maken voor personalisatie of verduidelijking. Zie screenshot:
5. Zodra uw bericht klaar is, klikt u op de knop Verzenden om de e-mail tegelijkertijd naar alle genoemde ontvangers te versturen. Zo vergeet u geen enkel adres en versnelt u de groepscommunicatie.
Tip: Zorg ervoor dat Outlook is geïnstalleerd en als standaard e-mailprogramma is ingesteld, zodat deze methode soepel verloopt. Mocht u problemen ondervinden—bijvoorbeeld dat het dialoogvenster niet verschijnt—controleer dan de macro-beveiligingsinstellingen in Excel.
Toepasselijke scenario’s: Gebruik deze methode voor teamaankondigingen, evenementmeldingen of het verzenden van identieke informatie naar meerdere personen. Het voordeel? Snelheid en nauwkeurigheid met minimaal handmatig invoeren. De beperking is dat personalisatie per individuele ontvanger niet mogelijk is.
Probleemoplossing: Als het Outlook-berichtvenster niet opent, controleer dan eerst of Outlook normaal draait en is ingesteld als standaard e-mailprogramma. Zorg er ook voor dat alle geselecteerde cellen geldige e-mailadressen bevatten—hoewel foutafhandeling is ingebouwd, leveren lege of onjuist opgemaakte cellen geen optimale resultaten op.
Verstuur gepersonaliseerde e-mails naar meerdere ontvangers met verschillende bijlagen: Voor meer geavanceerde vereisten—zoals het verzenden van unieke bijlagen, aangepaste inhoud of het automatisch toevoegen van CC/Bcc—maakt de Kutools voor ExcelE-mails verzenden-functie het razendsnel en eenvoudig om gepersonaliseerde e-mails vanuit Excel via Outlook te versturen. Met deze functie kunt u e-mails per ontvanger aanpassen, afzonderlijke bijlagen toevoegen en ontvangers naar wens in CC of Bcc plaatsen voor nog flexibelere bulkverzending.Klik om Kutools voor Excel te downloaden!
|
Verstuur een e-mail naar meerdere ontvangers met de Huidig werkboek als bijlage met behulp van VBA-code
Als u uw huidige Excel-werkboek als bijlage naar een groep ontvangers wilt sturen, dan automatiseert de volgende VBA-oplossing dit proces naadloos. Deze methode is perfect voor het delen van rapporten, financiële samenvattingen of samenwerkingsdocumenten met meerdere stakeholders.
1. Open Excel en druk op ALT + F11 om de omgeving Microsoft Visual Basic for Applications te starten.
2.Navigeer in de VBA-editor naar Invoegen>Module, en kopieer en plak de onderstaande code in het modulevenster:
VBA-code: E-mail verzenden naar meerdere ontvangers met de Huidig werkboek als bijlage
Sub EmailAttachmentRecipients()
'updateby Extendoffice
Dim xOutlook As Object
Dim xMailItem As Object
Dim xRg As Range
Dim xCell As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutlook = CreateObject("Outlook.Application")
Set xMailItem = xOutlook.CreateItem(0)
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
With xMailItem
.To = xEmailAddr
.CC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set xOutlook = Nothing
Set xMailItem = Nothing
End Sub
3. Druk op F5 om de code uit te voeren. Er verschijnt een dialoogvenster waarin u de cellen met e-mailadressen kunt selecteren. Dit mechanisme helpt u eenvoudig alle relevante ontvangers uit uw werkblad op te nemen en zorgt ervoor dat alleen correct opgemaakte e-mailadressen worden toegevoegd. Zie de volgende screenshot:
4.Nadat u de selectie heeft bevestigd, klikt u op OK. Outlook opent automatisch een nieuw Bericht-venster met de geselecteerde ontvanger in het veld Aan en het momenteel geopende werkboek als bijlage. U kunt de berichtinhoud en het onderwerp vervolgens naar wens aanpassen voordat u het verzendt. Zie screenshot:
5. Klik op de knop Verzenden om uw e-mail — met het werkboek als bijlage — tegelijkertijd naar alle geselecteerde ontvangers te versturen.
Waarschuwing: Als uw werkboek gevoelige informatie bevat, controleer dan zorgvuldig uw lijst met ontvangers voordat u het bericht verzendt. Mocht u een foutmelding krijgen bij het toevoegen van het bestand als bijlage, zorg er dan voor dat het werkboek is opgeslagen, niet openstaat in een ander programma en dat Outlook correct is ingesteld voor het automatisch verzenden van e-mails.
Gebruiksvoorbeelden: Deze oplossing wordt veel gebruikt voor het verspreiden van periodieke rapporten, het indienen van samenwerkingswerkboeken of het delen van referentiebestanden met teams of klanten. Het is efficiënt voor bulkdocumentverzending, maar staat geen afzonderlijke bijlagen per ontvanger toe.
Veelvoorkomende problemen: Als het dialoogvenster niet opent of de e-mail niet wordt verzonden, controleer dan eerst of u macro-machtigingen heeft verleend en of uw werkboek is opgeslagen voordat u de code uitvoert. Controleer daarnaast of er lege cellen in uw selectie zitten, aangezien de code inhoud overslaat die niet voldoet aan standaard e-mailindelingen.
Alternatieve oplossing: Verstuur E-mailadres gescheiden door puntkomma’s met een Excel-formule
Als u snel een lijst met e-mailadressen in één cel wilt samenstellen—gescheiden door puntkomma’s voor eenvoudig kopiëren naar de velden Aan, CC of Bcc van Outlook—dan bieden Excel-formules een snelle en eenvoudige oplossing, vooral als u geen macro’s wilt gebruiken.
1. Stel dat uw e-mailadres vermeld staat in kolom A, rijen 1 tot en met 7. Voer de volgende formule in een lege cel in (bijvoorbeeld B1):
=TEXTJOIN(";",TRUE,A1:A7)2. Druk op Enter. Het resultaat is één enkele tekstreeks met alle e-mailadressen uit het geselecteerde bereik, gescheiden door puntkomma’s. U kunt deze cel vervolgens kopiëren en direct plakken in de ontvangervelden van Outlook.
Formuleparameters:
- TEXTJOIN: Voegt een bereik van cellen samen met het opgegeven scheidingsteken – in dit geval een puntkomma.
- WAAR: Laat lege cellen in het bereik buiten beschouwing. Alle geldige e-mailadressen worden samengevoegd zonder tussenruimtes.
- A1:A10: Pas dit bereik aan op uw lijst met e-mailadressen.
Voordelen: Deze aanpak werkt zonder macro’s, waardoor het perfect is voor omgevingen waar VBA beperkt is. Ideaal om een samengestelde lijst razendsnel naar elk e-mailplatform te kopiëren – niet alleen Outlook.
Beperkingen: In tegenstelling tot VBA wordt er geen e-mail automatisch gemaakt of verzonden, maar het verhoogt wel de efficiëntie bij het verwerken van ontvangerlijsten.
Tip: Als uw lijst wijzigt, pas dan het formulebereik dienovereenkomstig aan. Voor indelingen met andere scheidingstekens dan puntkomma’s, vervangt u ";" door uw voorkeursteken.
Gerelateerd artikel:
Hoe verstuur ik gepersonaliseerde massa-e-mails vanuit Excel via Outlook naar een lijst?
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