Outlook aus Excel beenden

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Sub out()
Dim outh
outh = Shell("C:\Programme\Microsoft Office\Office10\OUTLOOK.EXE")
'Sub EMail_senden()
Dim outl As Object
Dim Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = "QR"
Mail.Body = ActiveSheet.Range("V14").Value
Mail.To = "carsten.marschall@mwag.de"
Mail.Send
End Sub

Problem:
Wie schließe ich Outlook wieder
Habe vor End Sub

'Outlook schliessen
outh.Quit
eingabaut. Ergebnis: geht nicht...
Kann mir bitte einer helfen...