Para corrigir rode o seguinte script vbs
Dim iCall FolderSelect()Public Sub FolderSelect() Dim objOutlook Set objOutlook = CreateObject("Outlook.Application") Dim F, Folders Set F = objOutlook.Session.PickFolder If Not F Is Nothing Then Dim Result Result [...]