Hoe een e-mail naar meerdere ontvangers in een lijst vanuit Excel via Outlook versturen?
Als u meerdere e-mailadressen in een kolom van een werkblad hebt, en u wilt nu een e-mail naar deze lijst met ontvangers rechtstreeks vanuit Excel versturen zonder Outlook te openen. In dit artikel zal ik bespreken hoe u tegelijkertijd een e-mail naar meerdere ontvangers vanuit Excel kunt versturen.
E-mail naar meerdere ontvangers vanuit Excel verzenden met VBA-code
E-mail naar meerdere ontvangers vanuit Excel verzenden met VBA-code
U kunt een VBA-code gebruiken om een bericht naar meerdere ontvangers tegelijk te verzenden, doe het volgende:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.
VBA-code: E-mail naar meerdere ontvangers verzenden
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 vervolgens op de F5-toets om deze code uit te voeren, er verschijnt een pop-upvenster dat u eraan herinnert de adreslijst te selecteren, zie screenshot:
4. Klik vervolgens op OK, en er wordt een Outlook-berichtenvenster weergegeven, u kunt zien dat alle geselecteerde e-mailadressen zijn toegevoegd aan het 'Aan'-veld, en vervolgens kunt u het onderwerp invoeren en uw bericht opstellen, zie screenshot:
5. Nadat u het bericht hebt voltooid, klikt u op de knop Verzenden, en dit bericht wordt verzonden naar de ontvangers in uw werkbladlijst.
Persoonlijke e-mails naar meerdere ontvangers verzenden met verschillende bijlagen: Met de functie E-mails verzenden van Kutools voor Excel kunt u snel persoonlijke e-mails naar meerdere ontvangers met verschillende bijlagen vanuit Excel via Outlook verzenden zoals u nodig hebt. Tegelijkertijd kunt u de berichten ook CC of BCC naar een specifieke persoon sturen. Klik hier om Kutools voor Excel te downloaden!
|
E-mail naar meerdere ontvangers met huidig werkboek als bijlage verzenden door middel van VBA-code
Als u een bericht naar meerdere ontvangers moet verzenden met het huidige werkboek als bijlage, kunt u de volgende VBA-code gebruiken.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.
VBA-code: E-mail naar meerdere ontvangers verzenden met 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. Nadat u de code hebt geplakt, drukt u op de F5-toets om deze code uit te voeren, er verschijnt een pop-upvenster dat u eraan herinnert de adressen te selecteren waarnaar u het bericht wilt verzenden, zie screenshot:
4. Klik vervolgens op de knop OK, en er wordt een Outlook- berichtenvenster weergegeven, alle e-mailadressen zijn toegevoegd aan het 'Aan'-veld, en uw huidige werkboek is ook als bijlage ingevoegd, en vervolgens kunt u het onderwerp invoeren en uw bericht opstellen, zie screenshot:
5. Klik vervolgens op de knop Verzenden om dit bericht naar de lijst met ontvangers te verzenden met het huidige werkboek als bijlage.
Gerelateerd artikel:
Hoe persoonlijke bulk-e-mails naar een lijst vanuit Excel via Outlook verzenden?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen 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.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen