Newsgroup: it.comp.aiuto
Titolo: Estrappolare file allegati da mail

Buon giorno a tutti.
Domanda: C'è la possibilità in un solo "click" di estrappolare gli allegati 
delle e-mail? Il problema è che ho circa 1.000 e-mail di cui vorrei per 
appunto estrappolare gli allegati e magari masterizzarli in un cd in modo da 
ottimizzare il sistema.
Grazie per l'attenzione.
Roberto

 ha scritto nel messaggio 
news:e5jkao$id5$1...@balena.cs.interbusiness.it...

Dipende dal client di posta che usi..
Eudora salva direttamente gli allegati in una cartella.. Mitica Qualcomm!

 Eudora salva direttamente gli allegati in una cartella.. Mitica Qualcomm!
Utilizzo Outlook Express 6.0...

 Utilizzo Outlook Express 6.0...
Ho letto giorni fa e NON ricordo piu esattamente cosa vuoi fare ma
se vuoi fare una specie di automazione .. probabilmente devi lavorarci
un po' su per ottenere esattamente quello che desideri ..  :
questo script sotto prende tutti i file con estenzione MIM [1]
in c:\windows\temp e ne estrae il contenuto
[1] i file MIM sono file EML rinominati .. i file *.eml  li ottieni da
Outlook Express con File salva con nome :
La parte IMPORTANTE e' l'invoke verb che e' CasE SeNsitive
e dipende dalla versione di Winzip e linguaggio  .. per farla semplice
click destro su un file *. mim qualsiasi e vedi L'ESATTO comando che
winzip usa .. come detto e' case sensitive e richiede &   (l'ampersand)
se e' usato .. io ho una vecchia versione con la dll modficata
da me ed il comando usato e':
"E&xtract Here"      dove  &x  sta a significare che x e usato come
accelerate key .. ovviamente cambia come detto da versione e linguaggio
'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 Here"
' il sotto era usato in una versione dove Winzip domandava conferma
'set oShell = CreateObject("WScript.Shell")
'If Not oShell.AppActivate("WinZip")  Then
'WScript.Sleep 1000
'else
'oShell.SendKeys"{enter}"
'End if
  End If
Next
' questo sotto trasforma tutti il file *.eml  in c:\windows\temp in *.mim
(puoi fare dei 2 script uno script unico mettendo questo sotto all'inizio)
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
se decidi che il tutto NON e' troppo complicato e vuoi effettivamente usarlo :
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
snip :   
http://snipurl.com/jtur
Download :
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
snip :  
http://snipurl.com/jtut
Download and install WSH 5.6 from here:
http://msdn.microsoft.com/downloads/list/webdev.asp
9x
http://www.microsoft.com/downloads/details.aspx?FamilyId=0A8A18F6-249C-4A72-BFCF-FC6AF26DC390&displaylang=en
XP
http://www.microsoft.com/downloads/details.aspx?FamilyId=C717D943-7E4B-4622-86EB-95A22B832CAA&displaylang=en
--
Fosco