Obscurcir le strSrcFolder, strTgtFolder, varDays, olkApp, olkSes, olkSrc, olkTgt, olkLst, olkItm, intCnt
Si WScript.Arguments.Count < 3="" Then="" WScript="">= 12 puis
AMPM = « P.M. »
Autrement
AMPM = « AM »
Finir si
Finir la fonction
Fonction OutlookFolderExists (strFolderPath)
« But : Essais pour voir si une chemise de perspectives existe basé sur une corde de chemin. »
« Écrit : 4/24/2009 »
« Auteur : BlueDevilFan »
« Perspectives : Toutes les versions »
OutlookFolderExists = (TypeName (OpenOutlookFolder (strFolderPath)) <> « Rien »)
Fonction de fin
Fonction OpenOutlookFolder (strFolderPath)
« But : Ouvre une chemise de perspectives d'un chemin de chemise. »
« Écrit : 4/24/2009 »
« Auteur : BlueDevilFan »
« Perspectives : Toutes les versions »
Faibles arrFolders, varFolder, bolBeyondRoot
Sur le résumé d'erreur après
Si strFolderPath = puis ""
Placer OpenOutlookFolder = rien
Autrement
Faire tandis que parti (strFolderPath, 1) = « \ »
strFolderPath = droit (strFolderPath, Len (strFolderPath) - 1)
Boucle
les arrFolders = se sont dédoublés (strFolderPath, « \ ")
Pour chaque varFolder dans les arrFolders
Choisir le bolBeyondRoot de cas
Enfermer faux
Placer OpenOutlookFolder = olkSes.Folders (le varFolder)
le bolBeyondRoot = rectifient
Cas vrai
Placer OpenOutlookFolder = OpenOutlookFolder.Folders (le varFolder)
Finir choisi
Si Err.Number <> 0 puis
Placer OpenOutlookFolder = rien
Sortir pour
Finir si
Après
Finir si
Sur l'erreur 0 GoTo
Fonction de fin
|