Hoe stuurt u elk werkblad naar een ander e-mailadres vanuit Excel?
Als uw Excel-werkboek meerdere werkbladen bevat, met op elk werkblad een e-mailadres in cel S1, wilt u die werkbladen waarschijnlijk als afzonderlijke bijlagen versturen naar de betreffende ontvangers. Handmatig uitvoeren is tijdrovend — zeker bij veel werkbladen. In deze handleiding tonen we u hoe u met VBA-code elk werkblad automatisch kunt verzenden als bijlage naar het e-mailadres dat in cel S1 van dat werkblad staat.
Elk werkblad naar verschillende E-mailadres verzenden vanuit Excel met VBA-code
Met de volgende VBA-code kunt u elk werkblad als bijlage e-mailen naar de ontvanger die vermeld staat in cel S1. Volg deze stappen:
1. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik vervolgens op Invoegen > Module en kopieer de onderstaande VBA-code naar het venster.
VBA-code: Elk werkblad als bijlage naar verschillende E-mailadres verzenden
Sub Mail_Every_Worksheet()
'Updateby ExtendOffice
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xFileExt As String
Dim xFileFormatNum As Long
Dim xTempFilePath As String
Dim xFileName As String
Dim xOlApp As Object
Dim xMailObj As Object
On Error Resume Next
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
xTempFilePath = Environ$("temp") & "\"
If Val(Application.Version) < 12 Then
xFileExt = ".xls": xFileFormatNum = -4143
Else
xFileExt = ".xlsm": xFileFormatNum = 52
End If
Set xOlApp = CreateObject("Outlook.Application")
For Each xWs In ThisWorkbook.Worksheets
If xWs.Range("S1").Value Like "?*@?*.?*" Then
xWs.Copy
Set xWb = ActiveWorkbook
xFileName = xWs.Name & " of " _
& VBA.Left(ThisWorkbook.Name, VBA.InStr(ThisWorkbook.Name, ".") - 1) & " "
Set xMailObj = xOlApp.CreateItem(0)
xWb.Sheets.Item(1).Range("S1").Value = ""
With xWb
.SaveAs xTempFilePath & xFileName & xFileExt, FileFormat:=xFileFormatNum
With xMailObj
'specify the CC, BCC, Subject, Body below
.To = xWs.Range("S1").Value
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add xWb.FullName
.Display
End With
.Close SaveChanges:=False
End With
Set xMailObj = Nothing
Kill xTempFilePath & xFileName & xFileExt
End If
Next
Set xOlApp = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
- S1 is de cel die het e-mailadres bevat waarnaar u de e-mail wilt verzenden. Als uw e-mailadres zich in een andere cel bevindt, zoals A1, kunt u de code aanpassen om die wijziging te weerspiegelen.
- U kunt CC, BCC, onderwerp en berichttekst naar eigen wens instellen in de code;
- Als u de e-mail direct wilt verzenden zonder het volgende nieuw-berichtvenster te openen, moet u .Display wijzigen in .Send.
3. Druk daarna op F5 om deze code uit te voeren; elk werkblad wordt automatisch als bijlage in het nieuw berichtvenster geplaatst, zie schermafbeelding:
4. Klik ten slotte op de knop Verzenden om de e-mails één voor één te verzenden.
Kutools voor Excel: Verstuur met één klik eenvoudig gepersonaliseerde e-mails!
Moe van het één voor één versturen van klantene-mails? Met de functie „E-mails verzenden” van Kutools voor Excel wordt communicatie sneller en professioneler! Bereid eenvoudig een Excel-bestand voor met namen, e-mailadressen, registratiecodes en plaatshouders – het systeem genereert automatisch gepersonaliseerde e-mails en verzendt er honderden met slechts één klik. Geen repetitief werk meer!
- 💡 Dynamische tijdelijke aanduidingen (zoals naam of registratiecode) vullen automatisch gepersonaliseerde inhoud in voor elke ontvanger, zodat elke e-mail uniek en op maat aanvoelt.
- 📎 Voeg gepersonaliseerde bestanden toe voor nauwkeurige levering
- 📤 Integreert naadloos met Outlook voor veilig en betrouwbaar verzenden
- 📝 Sla e-mailsjablonen op en hergebruik ze voor maximale efficiëntie
- 🎨 Wat-u-ziet-is-wat-u-krijgt-editor die gemakkelijk te gebruiken is
- 🖋 Gebruikt automatisch uw Outlook-handtekening – geen extra instellingen nodig, gewoon verzenden!
- Download Kutools voor Excel nu!
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