Outlook Lesebestätigung anfordern

Sub EMVerteiler()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Unprotect
ActiveWindow.DisplayWorkbookTabs = True
ActiveSheet.Copy
ActiveSheet.UpdateLinks = xlUpdateLinksNever
ActiveWorkbook.SaveAs Filename:="C:\DPO-Temp\Mappe1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.Dialogs(xlDialogSendMail).Show "mustermann@mustermann.de", " _
Arbeitszeitverteilungsbogen für " & ActiveSheet.Cells(6, 9)
ActiveWindow.Close
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = True
Kill "c:\DPO-Temp\mappe1.xls"
Application.DisplayAlerts = True
MsgBox " Der Verteilerbogen ist an den LoHN-Beauftragten der Anstalt versendet worden.", _
vbOKOnly + vbInformation, "Arbeitszeitverteilerbogen"
End Sub