Господа, нуждаюсь в вашей помощи.

Задача: вытащить список папок Outlook в текстовый файл/Excel.

Порывшись в инете, нашел такой скриптец:


Он на каждую папку выкидывает окно с ее названием. Теперь вывод этого всего нужно направить в файл (txt, с переносом строки после каждой записи).
По-идее это не сложно, но я в VBA ноль.

Буду признателен за помощь.

Ципихович Эндрю,
Создаете .vbx файл, копипастите туда скрипт, сохраняете, запускаете, просто даблкликнув на файл.

Но все уже решилось на пауэршеле

# powershell get-folder

$outlook = New-Object -com Outlook.Application
$inbox = $outlook.Session.GetDefaultFolder(6)
$folders = $inbox.Folders

function get-folder($f)
{
$f.FolderPath >> C:\Scripts\folders.txt

# check subfolders
if($f.Folders)
{
foreach($t in $f.Folders)
{
get-folder($t)
}
}
}

# execute
foreach ($folder in $folders)
{
get-folder($folder)
}