Tabellenbereich als Email versenden

Sub Mail_senden()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add "empfaenger@provider.de"
'Betreff
.Subject = "Test-Mail"
'Nachricht
.Body = "Das ist eine e-Mail" & Chr(13) & _
"Viele Grüße..." & Chr(13) & Chr(13)
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
.Attachments.Add "c:\Dok1.doc"
.Send
End With
Set olApp = Nothing
End Sub