Oscurare lo strSrcFolder, lo strTgtFolder, i varDays, il olkApp, i olkSes, il olkSrc, il olkTgt, il olkLst, il olkItm, intCnt
Se WScript.Arguments.Count < 3="" Then="" WScript="">= 12 allora
AMPM = “PM„
Altrimenti
AMPM = “„
Concluder se
Concludere la funzione
Funzione OutlookFolderExists (strFolderPath)
“Scopo: Prove per vedere se un dispositivo di piegatura di prospettiva esiste basato su una stringa del percorso.„
“Scritto: 4/24/2009„
“Autore: BlueDevilFan„
“Prospettiva: Tutte le versioni„
OutlookFolderExists = (TypeName (OpenOutlookFolder (strFolderPath)) <> “Niente„)
Funzione di conclusione
Funzione OpenOutlookFolder (strFolderPath)
“Scopo: Apre un dispositivo di piegatura di prospettiva da un percorso del dispositivo di piegatura.„
“Scritto: 4/24/2009„
“Autore: BlueDevilFan„
“Prospettiva: Tutte le versioni„
arrFolders fiochi, varFolder, bolBeyondRoot
Sul riassunto di errore dopo
Se strFolderPath = "" allora
Regolare OpenOutlookFolder = niente
Altrimenti
Fare mentre andato (strFolderPath, 1) = “\„
strFolderPath = di destra (strFolderPath, Len (strFolderPath) - 1)
Ciclo
i arrFolders = hanno spaccato (strFolderPath, “\ ")
Per ogni varFolder in arrFolders
Selezionare il bolBeyondRoot di caso
Mettere falso
Regolare OpenOutlookFolder = olkSes.Folders (varFolder)
il bolBeyondRoot = allinea
Caso allineare
Regolare OpenOutlookFolder = OpenOutlookFolder.Folders (varFolder)
Concludere prescelto
Se Err.Number <> 0 allora
Regolare OpenOutlookFolder = niente
Uscire per
Concluder se
Dopo
Concluder se
Sull'errore 0 di avanzamento
Funzione di conclusione
|