Sub closeOutLook()
Dim oOl As Object
Set oOl = CreateObject("Outlook.Application")
oOl.Quit
Set oOl = Nothing
End Sub
Sub closeOutLook()
Dim oOl As Object
Set oOl = CreateObject("Outlook.Application")
oOl.displayAlerts=false
oOl.Quit
Set oOl = Nothing
End Sub