Hoe verzendt u slechts één werkblad via Outlook vanuit Excel?
Wilt u één werkblad uit een Excel-werkmap per e-mail via Outlook verzenden? U kunt het werkblad als bijlage, in de berichttekst of als PDF-bestand meesturen — maar zijn er snellere manieren om dit in Excel voor elkaar te krijgen?
Verzend één werkblad als berichttekst vanuit Excel met de opdracht Verzenden naar e-mailontvanger
Verzend één werkblad als bijlage vanuit Excel met VBA-code
Verzend één werkblad als een PDF-bestanden vanuit Excel met VBA-code
Verzend één werkblad als berichttekst vanuit Excel met de opdracht Verzenden naar e-mailontvanger
Excel biedt de mogelijkheid om het actieve werkblad direct als berichttekst te verzenden via de opdracht **Verzenden naar e-mailontvanger**. Volg deze stappen:
Als u Excel 2007, 2010 of 2013 gebruikt, moet u eerst de opdracht Verzenden naar e-mailontvanger toevoegen aan de Snelle toegangswerkbalk.
1. Klik op het pictogram van de Snelle toegangswerkbalk aanpassen en kies Meer opdrachten. Zie schermafbeelding:
2. In het dialoogvenster Excel-opties kiest u Opdrachten die niet in het Lint staan in de vervolgkeuzelijst Opdrachten kiezen uit, selecteert u vervolgens de optie Verzenden naar e-mailontvanger en klikt u op de knop Toevoegen >> om deze opdracht toe te voegen. Klik ten slotte op OK om deze instelling op te slaan. Zie schermafbeelding:
3.De opdracht Verzenden naar e-mailontvangeris toegevoegd aan de Snelle toegangswerkbalk, zie schermafbeelding:
4. Klik vervolgens op de knop met het pictogram Verzenden naar e-mailontvanger, waarna een meldingsvenster verschijnt. In het E-mail-meldingsvenster vinkt u Het huidige werkblad als berichttekst verzenden aan en klikt u op OK. Zie schermafbeelding:
5. Er verschijnt nu een e-mailbewerkingsvak boven de werkbladgegevens. Voer uw ontvangers, onderwerp en inleiding in het desbetreffende tekstvak in. Zie schermafbeelding:
6. Klik vervolgens op Dit werkblad verzenden om het actieve werkblad als berichttekst naar de betreffende persoon te versturen.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Verzend één werkblad als bijlage vanuit Excel met VBA-code
Als u het actieve werkblad als bijlage per e-mail wilt verzenden, helpt de volgende VBA-code u daarbij.
1. Activeer het werkblad dat u wilt verzenden.
2. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Huidig werkblad verzenden als bijlage vanuit Excel
Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub
Opmerking: In de bovenstaande code kunt u de volgende gegevens aanpassen aan uw eigen voorkeuren.
- .To = „skyyang@extendoffice.com"
- .CC = „"
- .BCC = „"
- .Subject = „kte features"
- .Body = „Controleer en lees dit document."
4. Druk vervolgens op de toets F5 om deze code uit te voeren. Er verschijnt een meldingsvenster; klik op Toestaan zodra de voortgangsbalk is voltooid. Daarna is het huidige werkblad als bijlage naar uw ontvanger verzonden.
Verzend één werkblad als een PDF-bestanden vanuit Excel met VBA-code
Soms moet u uw werkbladrapport naar anderen verzenden, maar wilt u niet dat zij het kunnen wijzigen. In dat geval kunt u het werkblad vanuit Excel als PDF-bestand versturen.
1. Activeer het werkblad dat u wilt verzenden.
2. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op Invoegen>Module, en plak de volgende code in het Modulevenster.
VBA-code: Huidig werkblad verzenden als PDF-bestanden vanuit Excel
Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Opmerking: In de bovenstaande code kunt u de volgende gegevens naar wens aanpassen.
- .To = „skyyang@extendoffice.com"
- .CC = „"
- .BCC = „"
- .Subject = „kte features"
- .Body = „Controleer en lees dit document."
4. Druk vervolgens op de toets F5. Nadat de voortgangsbalk is voltooid, verschijnt er een meldingsvenster. Klik op Toestaan. Daarna wordt het actieve werkblad als PDF-bestand naar de betreffende persoon verzonden.
Opmerkingen:
1. Deze methoden zijn alleen beschikbaar als u Outlook als uw e-mailprogramma gebruikt.
2. Nadat u het huidige werkblad hebt verzonden, kunt u in Outlook controleren of de e-mail succesvol is verstuurd.
Mailinglijst maken Vervolgens e-mails verzenden |
| De Kutools voor Excel's Mailinglijst maken met hulpprogramma’s kan razendsnel: creëer een mailinglijst in een werkblad en verzend vervolgens hetzelfde onderwerp, dezelfde inhoud en dezelfde bijlagen naar meerdere e-mailadressen.en e-mails |
 |
 |
 |
Gerelateerde artikelen:
Hoe verzendt u het huidige werkboek via Outlook vanuit Excel?
Hoe verzendt u een celbereik vanuit Excel via Outlook?
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