Amortiguar el strSrcFolder, strTgtFolder, varDays, olkApp, olkSes, olkSrc, olkTgt, olkLst, olkItm, intCnt
Si WScript.Arguments.Count < 3="" Then="" WScript="">= 12 entonces
AMPM = “P.M.”
AMPM = “”
Terminar si
Terminar la función
Función OutlookFolderExists (strFolderPath)
“Propósito: Pruebas para ver si existe una carpeta de la perspectiva basado en una secuencia de la trayectoria.”
“Escrito: 4/24/2009”
“Autor: BlueDevilFan”
“Perspectiva: Todas las versiones”
OutlookFolderExists = (TypeName (OpenOutlookFolder (strFolderPath)) <> “Nada”)
Función del final
Función OpenOutlookFolder (strFolderPath)
“Propósito: Abre una carpeta de la perspectiva de una trayectoria de la carpeta.”
“Escrito: 4/24/2009”
“Autor: BlueDevilFan”
“Perspectiva: Todas las versiones”
arrFolders déviles, varFolder, bolBeyondRoot
En curriculum vitae del error después
Si strFolderPath = "" después
Fijar OpenOutlookFolder = nada
Hacer mientras que está ido (strFolderPath, 1) = “\”
strFolderPath = derecho (strFolderPath, Len (strFolderPath) - 1)
Lazo
los arrFolders = partieron (strFolderPath, “\ ")
Para cada varFolder en arrFolders
Seleccionar el bolBeyondRoot del caso
Encajonar falso
Fijar OpenOutlookFolder = olkSes.Folders (el varFolder)
el bolBeyondRoot = verdad
Caso verdad
Fijar OpenOutlookFolder = OpenOutlookFolder.Folders (el varFolder)
Terminar selecto
Si Err.Number <> 0 entonces
Fijar OpenOutlookFolder = nada
Salir para
Terminar si
Después
Terminar si
En el error 0 indicado
Función del final
|