Escurecer o strSrcFolder, strTgtFolder, varDays, olkApp, olkSes, olkSrc, olkTgt, olkLst, olkItm, intCnt
Se WScript.Arguments.Count < 3="" Then="" WScript="">= 12 então
AMPM = “PM”
Mais
AMPM = “AM”
Terminar se
Terminar a função
Função OutlookFolderExists (strFolderPath)
“Finalidade: Testes para ver se um dobrador da probabilidade existe baseado em uma corda do trajeto.”
“Escrito: 4/24/2009”
“Autor: BlueDevilFan”
“Probabilidade: Todas as versões”
OutlookFolderExists = (TypeName (OpenOutlookFolder (strFolderPath)) <> “Nada”)
Função do fim
Função OpenOutlookFolder (strFolderPath)
“Finalidade: Abre um dobrador da probabilidade de um trajeto do dobrador.”
“Escrito: 4/24/2009”
“Autor: BlueDevilFan”
“Probabilidade: Todas as versões”
arrFolders não ofuscantes, varFolder, bolBeyondRoot
No resumo do erro em seguida
Se strFolderPath = "" então
Ajustar OpenOutlookFolder = nada
Mais
Fazer quando saido (strFolderPath, 1) = “\”
strFolderPath = direito (strFolderPath, Len (strFolderPath) - 1)
Laço
arrFolders = separação (strFolderPath, “\ ")
Para cada varFolder nos arrFolders
Selecionar o bolBeyondRoot do caso
Encaixotar falso
Ajustar OpenOutlookFolder = olkSes.Folders (o varFolder)
o bolBeyondRoot = retifica
Caso verdadeiro
Ajustar OpenOutlookFolder = OpenOutlookFolder.Folders (o varFolder)
Terminar seleto
Se Err.Number <> 0 então
Ajustar OpenOutlookFolder = nada
Retirar para
Terminar se
Em seguida
Terminar se
No erro 0 empreendedores
Função do fim
|