Note: The other languages of the website are Google-translated. Back to English

 Hoe stuur ik e-mail naar meerdere ontvangers in een lijst vanuit Excel via Outlook?

Als u meerdere e-mailadressen in een kolom met een werkblad heeft, en u wilt nu rechtstreeks vanuit Excel een e-mail naar deze lijst met ontvangers sturen zonder Outlook te openen. In dit artikel zal ik het hebben over het tegelijkertijd verzenden van e-mail naar meerdere ontvangers vanuit Excel.

Stuur e-mail naar meerdere ontvangers vanuit Excel met VBA-code

Stuur e-mail naar meerdere ontvangers met de huidige werkmap als bijlage met behulp van VBA-code


pijl blauw rechts bel Stuur e-mail naar meerdere ontvangers vanuit Excel met VBA-code

U kunt een VBA-code gebruiken om een ​​bericht naar meerdere ontvangers tegelijk te verzenden, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klik Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: stuur e-mail 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. En druk vervolgens op F5 toets om deze code uit te voeren, verschijnt er een promptvenster om u eraan te herinneren de adressenlijst te selecteren, zie screenshot:

doc meerdere ontvangers verzenden 1

4. Dan klikken OK, en een Outlook Bericht venster wordt weergegeven, kunt u zien dat alle geselecteerde e-mailadressen zijn toegevoegd aan het Naar veld, en dan kunt u het onderwerp invoeren en uw bericht opstellen, zie screenshot:

doc meerdere ontvangers verzenden 2

5. Klik na het afronden van het bericht op Verstuur knop, en dit bericht wordt naar deze ontvangers in uw werkbladlijst gestuurd.


pijl blauw rechts bel Stuur e-mail naar meerdere ontvangers met de huidige werkmap als bijlage met behulp van VBA-code

Als u een bericht naar meerdere ontvangers moet sturen met de huidige werkmap als bijlage, kunt u de volgende VBA-code toepassen.

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: stuur e-mail naar meerdere ontvangers met de huidige werkmap 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 na het plakken van de code op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren de adressen te selecteren waarnaar u een bericht wilt verzenden, zie screenshot:

doc meerdere ontvangers verzenden 3

4. Dan klikken OK knop, en een Outlook Bericht venster wordt weergegeven, zijn alle e-mailadressen toegevoegd aan het Naar veld, en je huidige werkmap is ook als bijlage ingevoegd, en dan kun je het onderwerp invoeren en je bericht opstellen, zie screenshot:

doc meerdere ontvangers verzenden 4

5. Dan klikken Verstuur om dit bericht naar de lijst met ontvangers te sturen met de huidige werkmap als bijlage.


Stuur gepersonaliseerde e-mails naar meerdere ontvangers met verschillende bijlagen:

met Kutools for Excel's Stuur emails functie kunt u snel gepersonaliseerde e-mails naar meerdere ontvangers sturen met verschillende bijlagen vanuit Excel via Outlook als u dat nodig hebt. Tegelijkertijd kunt u de berichten ook naar een specifieke persoon CC of Bcc sturen. Klik om Kutools voor Excel te downloaden!

doc gepersonaliseerde e-mails verzenden 18 1


Gerelateerd artikel:

Hoe stuur ik via Outlook gepersonaliseerde massa-e-mails naar een lijst vanuit Excel?


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren 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...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
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 elke dag honderden muisklikken!
officetab onderkant
Comments (12)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Dit is geweldig, precies wat ik wil. Is er hoe dan ook een functie toe te voegen waarmee je een bericht aan de onderwerpregel kunt toevoegen met behulp van code .... Ik wil niets in het berichtvak
Deze opmerking is gemaakt door de moderator op de site
Hallo, De VBA-code werkt goed voor mij, bedankt. Is er een manier waarop ik een cel kan maken met een soort knop die de pop-up "selecteer mailinglijst" activeert? Jake
Deze opmerking is gemaakt door de moderator op de site
Hallo, bedankt voor de code. Is er een manier waarop ik een opdrachtknop op de Excel kan maken en dan door op die knop te klikken kan hetzelfde Excel-blad als bijlage naar meerdere ontvangers worden verzonden.
Deze opmerking is gemaakt door de moderator op de site
Hoe kan ik dit doen met behulp van de BCC-lijn?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Robbert,
Nadat de code is uitgevoerd, wordt het nieuwe berichtvenster geopend, u hoeft alleen de BCC-regel in te voegen onder het tabblad Optie, zie de volgende schermafbeelding:


Ik hoop dat het je kan helpen, bedankt!
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om dit te gebruiken om vanuit een gedeelde e-mail te verzenden? Ik kan geen .SendOnBehalfOf-veld invoegen.
Deze opmerking is gemaakt door de moderator op de site
Hoi ! Elke maand zou ik dezelfde e-mail moeten sturen voor verschillende providers, maar ze zouden niet in dezelfde e-mail moeten staan..... hoe kan ik dezelfde e-mail sturen voor verschillende bestemmingen zonder iedereen in dezelfde e-mail ?
Deze opmerking is gemaakt door de moderator op de site
Hallo Vinicius,
Om dezelfde e-mail afzonderlijk naar meerdere ontvangers te sturen, kan het volgende artikel u helpen, bekijk het alstublieft.
https://www.extendoffice.com/documents/excel/3560-excel-send-personalized-email.html
Deze opmerking is gemaakt door de moderator op de site
Morning,


Ik ben nieuw in het schrijven en gebruiken van macro's in Excel. Mijn eerste poging was om te proberen een subset massa-e-mail te maken van een grote hoofdlijst. Ik knipte en plakte de eerste routine en probeerde het vervolgens te gebruiken, het enige wat ik deed was de cellen markeren die ik had aangevraagd. er is geen Outlook-e-mail aangemaakt, wat heb ik verkeerd gedaan? Om mijn eigenlijke verzoek uit te breiden, wil ik e-mails echt targeten op postcode of andere subsets. hoe maak ik een macro die een kolom doorzoekt naar een bepaalde postcode en een e-mail maakt met alle gevonden ontvangers?

dank je

Steve
Deze opmerking is gemaakt door de moderator op de site
Ik heb deze code, mijn probleem is dat er één e-mail wordt aangemaakt voor elke keer dat de voorwaarde niet compleet is, maar ik wil alle informatie die de voorwaarde niet bereikt in slechts één e-mail plaatsen

Sub EnviarCorreo()
Dim Out-app als object
Dim OutMail als object
Dim lLaatste rij zo lang
Dim lRij zo lang
Dim sSendTo As String
Dim sSendCC As String
Dim sSendBCC As String
Dim sSubject As String
Dim sTemp als string

Stel OutApp = CreateObject ("Outlook.Application") in
OutApp.Session.Logon

' Wijzig het volgende indien nodig
sSendTo = ""
sSendCC = ""
sSendBCC = ""
sSubject = "Vervaldatum bereikt"

Set OutMail = OutApp.CreateItem (0)

lLastRow = Cellen(Rijen.Aantal, 3).Einde(xlOmhoog).Rij
Voor lRij = 3 Naar lLaatsteRij
Als Cellen(lRij, 9) <> "S" Dan
Als Cellen(lRij, 2) <= Datum Dan

On Error Resume Next
Met OutMail
.Naar = sVerzendenNaar
Als sSendCC > "" Dan .CC = sSendCC
Als sSendBCC > "" Dan .BCC = sSendBCC
.Onderwerp = sOnderwerp

sTemp = "Hallo!" & vbCrLf & vbCrLf
sTemp = sTemp & "De vervaldatum is bereikt "
sTemp = sTemp & "voor dit project:" & vbCrLf & vbCrLf


'DIT IS WAT IK WIL HERHALEN OP EMAIL BODY
' Gaat ervan uit dat de projectnaam in kolom B . staat
sTemp = sTemp & "ID:"
sTemp = sTemp & " " & Cellen(lRij, 1)
sTemp = sTemp & " Beschrijving: "
sTemp = sTemp & " " & Cellen(lRij, 5)
sTemp = sTemp & "Neem de juiste"
sTemp = sTemp & "actie." & vbCrLf & vbCrLf
sTemp = sTemp & "Bedankt!" & vbCrLf
'TOT HIER



.Body = sTemp
' Verander het volgende in .Verzenden als je wilt
' stuur het bericht zonder eerst te beoordelen
.Scherm
Eindigt met
Set OutMail = Niets

Cellen(lRij, 9) = "S"
Cells(lRow, 10) = "E-mail verzonden op: " & Now()
End If
End If
Volgende lRij
Set OutApp = Niets
End Sub
Deze opmerking is gemaakt door de moderator op de site
Is het mogelijk om de code voor het kiezen van de CC's uit een lijst op dezelfde manier te pimpen na het kiezen van de TO's? Met de bestaande code is het niet mogelijk om CC's op dezelfde manier te kiezen als de TO's (hoofdadressen). 
Deze opmerking is gemaakt door de moderator op de site
Hallo Eugen, graag geholpen. Het is mogelijk om de code voor het kiezen van de CC's uit een lijst op dezelfde manier te pimpen na het kiezen van de TO's. En de code is in principe hetzelfde met de TO's VBA-code. Er moet slechts één wijziging worden aangebracht. Verander gewoon de ".To = xEmailAddr" in ".Cc = xEmailAddr". Zie de schermafbeelding. En u kunt tegelijkertijd de CC's en de TO's uit een lijst kiezen. Maak gewoon de ".To = xEmailAddr" en ".Cc = xEmailAddr" allemaal opgenomen in de VBA-code. Plak de volgende code in het modulevenster.
Sub verzendenmultiple()
'bijwerken door' Extendoffice
Dim xOTApp als object
Dim xMIitem als object
Dim xCell als bereik
Dim xRg als bereik
Dim xEmailAddr As String
Dim xTxt als string
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Selecteer de adressenlijst:", "Kutools for Excel", xTxt, , , , , 8)
Als xRg niets is, sluit dan Sub af
Stel xOTApp = CreateObject ("Outlook.Application") in
Voor elke xCell In xRg
Als xCell.Value zoals "*@*" Dan
If xEmailAddr = "" Dan
xEmailAddr = xCell.Value
Anders
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Volgende
Stel xMItem = xOTApp.CreateItem(0) in
Met xMIitem
.Aan = xE-mailAdr
.Cc = xEmailAddr
.Scherm
Eindigt met
End Sub

Hoop dat het je probleem kan oplossen. Een fijne dag verder. Met vriendelijke groet, Mandy
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties