VBScript: Luk outlook pænt med kladde åben

Jeg vil gerne via et VBScript lukke Outlook pænt ned, og hvis der er åbne vinduer, som fx. en kladde, skal denne gemmes også. Har fundet noget kode på nettet, men kan ikke få det til at virke. Kører Win 7 og Outlook 2010. Har prøvet at udlæse om der bliver registreret kladder, og den tæller fra 0 til 1 når jeg åbner en ny kladde, så den del virker.

Får fejl: Wrong number of arguments or invalid property assignment: 'Inspectors'

Kode:
Dim oOL 'As Outlook.Application
Set oOL = GetObject(, "Outlook.Application")
If oOL Is Nothing Then
'no need to do anything, Outlook is not running
Else
'Outlook running
Do while oOL.Inspectors.Count <> 0
    lngCount = oOL.Inspectors.Count
    For i = lngCount To 1 Step -1   
        oOL.Inspectors(i).CurrentItem.Save
        oOL.Inspectors(i).Close True
    Next
Loop
oOL.Session.Logoff
oOL.Quit
End If
Set oOL = Nothing