Bei Abbruch kein Laufzeitfehler?

Sub Mail(ByVal d As String)
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfanger
.Recipients.Add "ich@ich.de"
'Betreff
.Subject = "nothing"
'Nachricht
.Body = " als .txt oder .xls.Datei"
'Lesebestätigung aus
.ReadReceiptRequested = False
'Anhang
.Attachments.Add d
.display
End With
Set olApp = Nothing
End Sub