Salve, devo creare uno script in vbscript, in grado di intercettare una email, tramite l'oggetto, e scaricare in una cartella gli allegati.

Ho trovato qualche esempio ma non riesco a farlo funzionare correttamente.

Mi dareste qualche indizio?

Grazie.

Questo e' il codice.
Funziona ma non riesco a capire come puntare su un'altra casella di posta (altro account) oppure direttamente sulla cartella "posta in arrivo".
Questo script legge tutte le email della cartellaOutlook e quando trova l'allegato con il nome che gli interessa lo scarica.
Per non fargli leggere tutte le email basta testare la dataRicezioneEmail.

Ciao


====================================================================
LocalPath = "c:\dati\"
NomeFileOut = "out.txt"
CartellaOutlook = "estrai"
AttachName = "calcolo"

'Dichiarazione costanti
Dim Outlook, olkInbox, olkItem, olkAttach
Const olFolderInbox = 6

'Dichiarazione istanze
Set Outlook = CreateObject("Outlook.Application")
Set olkInbox = OutLook.Session.GetDefaultFolder(olFolderInbox).Folders(CartellaOutlook)

'Esegue azione anche con outlook chiuso
Outlook.Session.Logon
'------------------------------------------------------

'------------------------------------------------------
'Cicla su tutte le email della cartella
For Each olkItem In olkInbox.Items
DataRicezioneEmail = replace(mid(olkItem.ReceivedTime,1,10),"/","_")

If olkItem.Attachments.Count > 0 Then

'Testa nome dell'allegato per poterlo scaricare in LocalPath
For Each olkAttach In olkItem.Attachments
if (instr(lcase(olkAttach.FileName),AttachName)) > 0 and _
dataRicezioneEmail = "04_04_2013" then

'Salva allegato con data
NomeAllegato = DataRicezioneEmail&"_"&olkAttach.FileName
msgbox LocalPath & NomeAllegato
olkAttach.SaveAsFile LocalPath &"\"& NomeAllegato

msgbox olkAttach.FileName & " Copiato"
i = i + 1
end if
Next
End If
Next
'------------------------------------------------------

'------------------------------------------------------
if i < 1 then
msgbox "Nessun allegato scaricato"
else
msgbox i & " Files copiati"
end if
'------------------------------------------------------

'------------------------------------------------------
'Chiusure
Set Outlook = nothing
Set OlkInbox = nothing

wscript.quit
'------------------------------------------------------

====================================================================