Hoe een werkblad alleen via Outlook vanuit Excel verzenden?

Als u een enkel werkblad uit een werkboek in Excel via Outlook wilt e-mailen, kunt u het werkblad als bijlage, als inhoud van de e-mail of als PDF-bestand versturen. Maar zijn er snellere manieren om dit probleem in Excel aan te pakken?

Enkel werkblad als e-mailinhoud verzenden vanuit Excel met de opdracht 'Verzenden naar e-mailontvanger'

Enkel werkblad als bijlage verzenden vanuit Excel met VBA-code

Enkel werkblad als PDF-bestand verzenden vanuit Excel met VBA-code

Enkel werkblad als e-mailinhoud verzenden vanuit Excel met de opdracht 'Verzenden naar e-mailontvanger'

Excel ondersteunt ons om het actieve werkblad als e-mailinhoud te verzenden door gebruik te maken van de opdracht 'Verzenden naar e-mailontvanger'. U kunt als volgt te werk gaan:

Als u Excel 2007, 2010 of 2013 gebruikt, moet u deze opdracht 'Verzenden naar e-mailontvanger' eerst toevoegen aan de Snelle Toegang-werkbalk.

1. Klik op het pictogram van de Werkbalk voor Snelle Toegang aanpassen en kies Meer Opdrachten, zie schermafbeelding:

2. En in het dialoogvenster Excel-opties, kies Opdrachten niet in de lint in de keuzelijst Opdrachten kiezen uit, selecteer vervolgens de optie Verzenden naar e-mailontvanger en klik 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-mailontvanger is ingevoegd in de Snelle Toegang-werkbalk, zie schermafbeelding:

4. Klik vervolgens op dit pictogram Verzenden naar e-mailontvanger, en er verschijnt een pop-up venster, in het E-mail pop-up venster, vink Verzend het huidige werkblad als berichtinhoud aan en klik op OK. Zie schermafbeelding:

5. Er wordt een e-mailbewerkingsvenster weergegeven boven de werkbladgegevens, waar u uw ontvangers, onderwerp en introductie kunt invoeren in de bijbehorende tekstvakken. Zie schermafbeelding:

6. Klik vervolgens op Verzend dit werkblad om het actieve werkblad als berichtinhoud naar een specifieke persoon te sturen.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Enkel werkblad als bijlage verzenden vanuit Excel met VBA-code

Als u het actieve werkblad als bijlage wilt e-mailen, kan de volgende VBA-code u helpen.

1. Activeer uw werkblad dat u wilt verzenden.

2. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

3. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: huidig werkblad als bijlage verzenden 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 informatie naar eigen behoefte wijzigen.

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte features"
• .Body = "Controleer en lees dit document a.u.b."

4. Druk vervolgens op de toets F5 om deze code uit te voeren, en er verschijnt een pop-up venster, klik op Toestaan wanneer de voortgangsbalk is voltooid, en vervolgens is het huidige werkblad verzonden naar uw ontvanger als bijlage.

Enkel werkblad als PDF-bestand verzenden vanuit Excel met VBA-code

Soms moet u uw werkbladrapport naar anderen verzenden, maar wilt u niet dat anderen het kunnen wijzigen. In dit geval kunt u het werkblad als PDF-bestand vanuit Excel verzenden.

1. Activeer uw werkblad dat u wilt verzenden.

2. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

3. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: huidig werkblad als PDF-bestand verzenden 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 informatie naar eigen behoefte wijzigen.

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte features"
• .Body = "Controleer en lees dit document a.u.b."

4. Druk vervolgens op de toets F5, en er verschijnt een pop-up venster, klik op Toestaan nadat de voortgangsbalk is voltooid, dan is het actieve werkblad verzonden naar de specifieke persoon als PDF-bestand.

Opmerkingen:

1. Deze methoden zijn alleen beschikbaar wanneer u Outlook als uw e-mailprogramma gebruikt.

2. Nadat u het huidige werkblad hebt verzonden, kunt u naar uw Outlook gaan om te controleren of de e-mail succesvol is verzonden.

Mailinglijst maken en e-mails verzenden

De functies Mailinglijst maken en E-mails verzenden van Kutools voor Excel kunnen snel een mailinglijst in een werkblad maken en vervolgens hetzelfde onderwerp, dezelfde inhoud en dezelfde bijlagen naar meerdere e-mailadressen verzenden.

Ga naar Download

Gerelateerde artikelen:

Hoe het huidige werkboek via Outlook vanuit Excel verzenden?

Hoe een bereik van cellen via Outlook vanuit Excel verzenden / e-mailen?