Hoe celbereik verzenden / e-mailen via Outlook vanuit Excel?

Heeft u ooit een probleem gehad dat u na het voltooien van een rapport in een werkblad naar een reeks cellen in dit werkblad moet sturen die belangrijke gegevens naar uw specifieke ontvanger bevatten? Zijn er snelle manieren om dit bereik vanuit Excel te e-mailen zonder Outlook te openen?

Stuur celbereik als bijlage vanuit Excel met VBA-code

Stuur celbereik als body vanuit Excel met VBA-code

Stuur celbereik als bijlage vanuit Excel met VBA-code

De volgende VBA-code kan u helpen om uw geselecteerde bereik als bijlage in Excel te verzenden. Doe dit als volgt:

1. Open uw werkmap en houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: stuur celbereik als bijlage vanuit Excel

Sub SendRange()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.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 = "information of kte"
    .Body = "hello, 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
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Note: In de bovenstaande code kunt u de volgende informatie naar eigen behoefte wijzigen.

• .Aan = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "informatie van kte"
• .Body = "hallo, controleer en lees dit document."

3. Dan klikken F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren een bereik te selecteren dat u wilt verzenden. Zie screenshot:

4. Dan klikken OK, en een promptvenster verschijnt, nadat de voortgangsbalk is voltooid, klikt u op Allow, en vervolgens is het specifieke celbereik als bijlage naar uw ontvanger verzonden.

Ontgrendel Excel Magic met Kutools AI

• Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken, allemaal aangestuurd door eenvoudige opdrachten.
• Aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
• VBA-codering: Moeiteloos VBA-code schrijven en implementeren.
• Formule-interpretatie: Begrijp complexe formules met gemak.
• Tekstvertaling: Doorbreek taalbarrières binnen uw spreadsheets.

Verbeter uw Excel-mogelijkheden met AI-aangedreven tools. Nu downloaden en ervaar efficiëntie als nooit tevoren!

Stuur celbereik als body vanuit Excel met VBA-code

Als u een specifiek bereik wilt verzenden als onderdeel van de berichttekst vanuit Excel, kunt u ook de volgende VBA-code toepassen om het op te lossen.

1. Activeer je werkblad en houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: stuur cellenbereik als hoofdtekst vanuit Excel

Sub EmailRange()
'Update 20131209
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
    .Introduction = "Please read this email."
    .Item.To = "skyyang@extendoffice.com"
    .Item.Subject = "information of kte"
    .Item.Send
End With
Application.ScreenUpdating = True
End Sub

Opmerking: In de bovenstaande code kunt u de volgende informatie naar wens wijzigen.

• .Introduction = "Lees deze e-mail."
• .Item.To = "skyyang@extendoffice.com"
• .Item.Subject = "informatie van kte"

3. Dan klikken F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren dat u een bereik moet selecteren dat u wilt verzenden.

4. Dan klikken OK, en een promptvenster verschijnt, nadat de voortgangsbalk is voltooid, klikt u op Allow, en vervolgens is het specifieke celbereik als berichttekst naar uw ontvanger verzonden.

Opmerkingen:

1. Deze codes zijn alleen beschikbaar als Outlook uw e-mailprogramma is.

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

Gerelateerde artikelen:

Hoe stuur ik een werkblad alleen via Outlook vanuit Excel?

Hoe verzend ik de huidige werkmap via Outlook vanuit Excel?