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
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:
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:
5. Klik na het afronden van het bericht op Verzenden knop, en dit bericht wordt naar deze ontvangers in uw werkbladlijst gestuurd.
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:
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:
5. Dan klikken Verzenden 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! |
Gerelateerd artikel:
Hoe stuur ik via Outlook gepersonaliseerde massa-e-mails naar een lijst vanuit Excel?
Beste Office-productiviteitstools
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...
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!