Newsgroup: it.comp.aiuto
Titolo: Recupero allegati da e-mail

Ciao a tutti.
Questo problema mi assilla da tempo. Ho circa un migliaio di e-mail aventi 
come allegato delle gif animate. Vorrei salvarle in una directory in una 
sola manovra senza doverle passare tutte singolarmente.
C'è la possibilità di fare questo a mezzo di un prg?
Grazie.
Rob.

"Joshua"

Si salvi le email in formato eml le trasformi in formato mim
e le puoi estrarre tutte con winzip
lo puoi fare a mano oppure da qualche parte dovrei avere
uno script
--
Fosco

 uno script
NON ho il tempo di ricontrollarlo adesso
'sDirectory = "C:\WINDOWS\TEMP"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("c:\WINDOWS\TEMP")
For Each oFile In oFolder.Files
  If InStr(UCase(oFile.Name), ".MIM") Then
'Msgbox oFile.Name& ".mim"
'Set f = ofso.GetFile(oFile)
'Const ssfDRIVES = &H11
'Msgbox ofile
Set oSH = CreateObject("Shell.Application")
oSH.NameSpace("c:\WINDOWS\TEMP").ParseName(oFile.name).InvokeVerb "E&xtract To Here"
set oShell = CreateObject("WScript.Shell")
If Not oShell.AppActivate("WinZip")  Then
WScript.Sleep 1000
else
oShell.SendKeys"{enter}"
End if
  End If
Next
--
Fosco

 > uno script
Comunque fai meglio e prima selezionandole tutte cambiargli
l'estensione ed estrarle con Winzip (fai le prove su delle copie)
--
Fosco

 l'estensione
se NON ci riesci questo lo fa' (anche)
sDirectory = "C:\WINDOWS\TEMP"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sDirectory)
For Each oFile In oFolder.Files
  If InStr(UCase(oFile.Name), ".EML") Then
sDay=Day(Date) :sMonth=Month(Date) :sYear=Year(Date)
  s = sDay&"-"&sMonth&"-"&sYear
Set f = ofso.GetFile(oFile)
str = oFile.Name
newstring = Left(str, Instr(str, ".")-1)
'f.Name = newstring &" "&s& ".mim"
f.Name = newstring & ".mim"
  End If
Next
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

 Ciao a tutti.

Decode Shell Extension, one of our freeware products,
allows you to decode Internet email attachments simply by right-clicking
on a saved message file from Explorer and selecting Decode from the menu.
Decode Shell Extension is for Windows 95/98/ME NT/2000/XP.
http://www.funduc.com/decext.htm
Se le gif sono con nomi o numeri diversi
selezioni tutte le email e fai Inoltra e avrai una email
con allegato tutte le email.
Salvi questa email unica in una cartella dell'HD con estensione .eml
e quindi Clik DX / Decode
-- 
by Isaac (The Original)
Qu...@excite.it
 - Non usare per messaggi privati
Fidolook 2002 (SL) 6.0.2800.94 - 3/3/2005 11:18:26 

 uno script
Ho rinominato tutte le e-mail con l'estensione mim dopo averle salvate in 
una directory di prova. Ho tentato di aprirle con Winrar che credo sia la 
stessa cosa di Winzip ma ottengo un errore, formato sconosciuto.
Roberto

 stessa cosa di Winzip ma ottengo un errore, formato sconosciuto.
Ho appena provato con winzip e funge ..
--
Fosco

"Fosco"

ATTENZIONE al formato .... quando le rinomini attiva la visualizzazione
delle estenzzzzzzioni   ... inzzzzzomma il file deve essere
cippolippo.mim   e NON  cippolippo.mim.eml
--
Fosco

 Ho tentato di aprirle con Winrar
con winrar 'sto sistema NON funge :
http://www.google.it/search?hl=it&q=winzip&meta=
http://download.html.it/software/vedi/1348/winzip/
http://download.vnunet.it/download/compressione/winzip/_211.html
--
Fosco


Grazie per la dritta, siccome i file sono 1.018, non c'è modo con Winzip di 
aprirli tutti assieme anzichè aprirli uno alla volta?
Rob.

 aprirli tutti assieme anzichè aprirli uno alla volta?
Si c'e' .. io qui li seleziono tutti e click destro e L
Ma devi vedere come hai impostato winzip tu io ho cambiato
gli accelerator direttamente nella dll
Adesso mi scade la connessione ma vai
C:\Programmi\WinZip\WINZIP32.EXE
option configuration  explorer enhancemente e vedi di aver
settato la giusta opzione  dovrebbe essere extract to here using ecc
--
Fosco

 aprirli tutti assieme anzichè aprirli uno alla volta?
La prima volta fai dei test su file sacrificabili e con MENO
file diciamo una decina
ciauz
--
Fosco

 Fosco
Ti ringrazio per l'aiuto, ma non riesco a mettere in pratica quello che mi 
hai detto nel precedente post.
Roberto

 hai detto nel precedente post.
quarda il primo link qui :
http://www.google.it/search?hl=it&q=*.mim%2Bextract&btnG=Cerca&meta=
che e' questo :
http://www.topshareware.com/ALZip-download-18011.htm
altrimenti prova con gli altri
se NON :
prova nelle impostazioni del winzip .. adesso dipende anche
da versione e settaggi prova a trascinare un file *.mim sopra
l'eseguibile di winzip che dovrebbe essere qui
C:\Programmi\WinZip\WINZIP32.EXE
e vedi cosa succede se lo apre (estrae) trascinaci sopra piu file
qui andiamo via via sul complicato e NON so se ...
c'e' anche la linea di comando
http://www.google.it/search?hl=it&q=winzip%2Bcommand+line&meta=
questo e quello che adoperavo io tempo fa' .. ma adesso dopo
l'upgrade per ragioni di sicurezza NON mi funziona piu se sono on line
il concetto e che tu faccia click destro su un file *.mim e veda cosa c'e'
scritto per estrarlo .. io qui ho cambiato direttamnete modificando una
dll di winzip e lo addattato alle mie esigenze nominandolo
E&xtract    quelle &  significa che la X e' l'accelerator ed e' importante
In soldoni devi fare click destro sul tuo file mim e vedere cosa c'e'
al posto del MIO E&xtract    e sostituirlo nello script qui sotto ESATTAMENTE
rispettando minuscole maiuscole e mettendo le  & dell'accellerator se c'e'
Per esempio se c'e' Estrai Qui...    con la S sottolineata nello script qui
sotto devi cambiare cosi' :
oSH.NameSpace(ssfDRIVES).ParseName(oFile.Name)_
.InvokeVerb "E&strai Qui..."
' inizio
Const ssfDRIVES = &H11
sDirectory = "C:\WINDOWS\TEMP"
Set oFSO = CreateObject("Scripting.FileSystemObject")
set oShell = CreateObject("WScript.Shell")
Set oFolder = oFSO.GetFolder(sDirectory)
For Each oFile In oFolder.Files
  If InStr(UCase(oFile.Name), ".MIM") Then
Set oSH = CreateObject("Shell.Application")
oSH.NameSpace(ssfDRIVES).ParseName(oFile.Name)_
.InvokeVerb "E&xtract"
