Outlook Lesebestätigung

Sub SendAndSetFlag()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Dim oOLAttach As Object
Dim sFile As String, sRec As String, s

Sub As String
Dim sBody As String
Set oOL = CreateObject("Outlook.Application")
sRec = Range("B1").Value
sFile = Range("B2").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
s

Sub = "Textdatei"
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(sRec)
.Subject = sSub
Set oOLAttach = .Attachments.Add(sFile)
.FlagStatus = olFlagMarked
.Send
oOLRecip.Resolve
End With
Set oOL = Nothing
End Sub


Hierzu möchte ich fragen, wie man zusätzlich eine Lesebestätigung für diese eine Mail anfordern kann. 

Vielen Dank für Eure Hilfe

Gruß

Michael Heering