salva allegati pdf dei messaggi di posta elettronica

option explicit

dim cartellaprg

cartellaprg = "C:\azioniprogrammate\allegati-posta-oggetto-fattura\"

dim prg1, prg2, prg3, prg4

prg1 = cartellaprg & "prg-010-salva-allegati-cartelle-pubbliche-oggetto-fattura.vbs"

prg2 = cartellaprg & "prg-020-converti-in-testo.vbs"

prg3 = cartellaprg & "prg-030-elenca-file-cartella.vbs"

prg4 = cartellaprg & "prg-040-cancella-file-messaggi.vbs"

dim prgemaildaarchiviodigitale, prgdominidaarchiviodigitale

prgemaildaarchiviodigitale = "C:\azioniprogrammate\archivio-digitale-fatture-2018\p02-cartelle-archivio-digitale.vbs"

prgdominidaarchiviodigitale = "C:\azioniprogrammate\archivio-digitale-fatture-2018\p03-elenco-domini.vbs"

dim prgriferimentipartitaiva

prgriferimentipartitaiva = "C:\azioniprogrammate\salva-allegati-posta-piva\p02-cartelle-archivio-digitale.vbs"

' = verifica che outlook sia attivo

dim sprocesso, presente, trovato

dim sComputerName, objWMIService, sQuery, objItems, objItem

trovato = 0

'This function can report names from

'TaskManager -> Processes

sComputerName = "."

Set objWMIService = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2")

sQuery = "SELECT * FROM Win32_Process"

Set objItems = objWMIService.ExecQuery(sQuery)

'iterate all item(s)

For Each objItem In objItems

sprocesso = objItem.Name

presente = instr(lcase(sprocesso), "outlook.exe")

if presente > 0 then

trovato = 1

exit for

else

trovato = 0

end if

if trovato = 0 then

'msgbox "outlook NON attivo"

else

' msgbox "outlook attivo"

call prgrammasalvaallegati

end if

' =====

sub prgrammasalvaallegati()

Dim WshShell, esegui, attesa

Set WshShell = CreateObject("WScript.Shell")

' - salva allegati da exchange - stampa, in pdf, i messaggi

esegui = prg1