Затемните strSrcFolder, strTgtFolder, varDays, olkApp, olkSes, olkSrc, olkTgt, olkLst, olkItm, intCnt
Если WScript.Arguments.Count < 3="" Then="" WScript="">= 12 после этого
AMPM = «PM»
Еще
AMPM = «AM»
Закончитесь если
Закончите функцию
Функция OutlookFolderExists (strFolderPath)
«Цель: Испытания для того чтобы увидеть если скоросшиватель внешнего вида существует после того как он основан на шнуре курса.», то
«Написано: 4/24/2009»
«Автор: BlueDevilFan»
«Внешний вид: Все варианты»
OutlookFolderExists = (TypeName (OpenOutlookFolder (strFolderPath)) <> «Ничего»)
Функция конца
Функция OpenOutlookFolder (strFolderPath)
«Цель: Раскрывает скоросшиватель внешнего вида от курса скоросшивателя.»
«Написано: 4/24/2009»
«Автор: BlueDevilFan»
«Внешний вид: Все варианты»
Тусклые arrFolders, varFolder, bolBeyondRoot
На резюме ошибки затем
Если strFolderPath = "" после этого
Установите OpenOutlookFolder = ничего
Еще
Сделайте пока о (strFolderPath, 1) = «\»
strFolderPath = право (strFolderPath, Len (strFolderPath) - 1)
Петля
arrFolders = разделили (strFolderPath, «\ ")
Для каждого varFolder в arrFolders
Выберите bolBeyondRoot случая
Покрывайте ложное
Установите OpenOutlookFolder = olkSes.Folders (varFolder)
bolBeyondRoot = True
Случай поистине
Установите OpenOutlookFolder = OpenOutlookFolder.Folders (varFolder)
Закончите отборное
Если Err.Number <> 0 после этого
Установите OpenOutlookFolder = ничего
Выходите для
Закончитесь если
Затем
Закончитесь если
На ошибке переход 0
Функция конца
|