Persönlichen Ordner (pst) schliessen mit VBA-Makro

\’\’\’\’\’\’\’\’\’Code für VBS\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’
Dim i
Dim logOutlookOffen
Dim objOL \’New Outlook.Application
Dim objName \’Outlook.Namespace
Dim objFolder \’Outlook.MAPIFolder
logOutlookOffen = True
Set objOL = GetObject(\”\”, \”Outlook.Application\”)
If objOL Is Nothing Then
logOutlookOffen = False
Set objOL = CreateObject(\”Outlook.Application\”)
End If
Set objName = objOL.GetNamespace(\”MAPI\”)
For i = 1 To objName.Folders.Count
If objName.Folders.Item(i) = \”Archivordner\” Then
MsgBox objName.Folders.Item(i).FolderPath
Set objFolder = objName.Folders.Item(i)
objName.RemoveStore objFolder
Set objFolder = Nothing
End If
Next
Set objName = Nothing
If logOutlookOffen = False Then
objOL.Quit
End If
Set objOL = Nothing