Newsgroup: it.comp.aiuto
Titolo: cerco software per lettura e-mail

Ciao,
ho una cartella con c.a. 250 mails , salvate come files *.eml. c'č un
software che mi permetta di vedere il mittente ed il destinatario senza
bisogno di aprirle una per una con OE?
Grazie
Riccardo

 bisogno di aprirle una per una con OE?
' Il target sono file *.eml  (si puo' modificare)
' la directory e' "C:\Documenti\email" (si puo' modificare)
' il risultato e' visibile in C:\E-Mail.Log (si puo' modificare)
'copia ogni linea con "from:" nel log file (si puo' modificare)
sDirectory = "C:\Documenti\email"
sLogFile = "C:\E-Mail.Log"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oLogFile = oFSO.OpenTextFile(sLogFile, 8, True, 0)
Set oFolder = oFSO.GetFolder(sDirectory)
For Each oFile In oFolder.Files
  If InStr(UCase(oFile.Name), ".EML") Then
    Set oStream = oFSO.OpenTextFile(oFile.Path, 1)
    Do Until oStream.AtEndOfStream
      sLine = oStream.ReadLine
      If InStr(UCase(sLine),"FROM:") Then
        oLogFile.WriteLine sLine
   'Msgbox sLine
      End If
    Loop
  End If
Next
oLogFile.Close
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio E-Mail.vbs)
--
Fosco

 mi permetta di vedere il mittente ed il destinatario
OOOOOOPPPPPPS
sDirectory = "C:\Documenti\email"
sLogFile = "C:\E-Mail.Log"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oLogFile = oFSO.OpenTextFile(sLogFile, 8, True, 0)
Set oFolder = oFSO.GetFolder(sDirectory)
For Each oFile In oFolder.Files
  If InStr(UCase(oFile.Name), ".EML") Then
    Set oStream = oFSO.OpenTextFile(oFile.Path, 1)
    Do Until oStream.AtEndOfStream
      sLine = oStream.ReadLine
      If InStr(UCase(sLine),"FROM:") Or InStr(UCase(sLine),"TO:")  Then
        oLogFile.WriteLine sLine
      End If
    Loop
  End If
Next
oLogFile.Close
--
Fosco

' la directory e' "C:\Documenti\email" 
		Ciao
Con win 98 dovrei trovarmela ???
Possibile che chi mi ha installato win 98 abbia
saltato un bel po' di robe ??
Non trovo quasi mail le cartelle o i file o le
o le opzioni indicate !!!
		Ciao Giorgio


Grazie Fosco, adesso funziona, non è che per caso, aggiungendo qualche linea
al .vbs, posso anche riuscire a vedere nel log.file il testo delle mails?
Scusa se approfitto  ;oD
Come si chiama il linguaggio che hai usato per fare il .vbs?
Possono impararlo anche comuni mortali o bisogna essere professionisti?
Ciao
Riccardo

 Con win 98 dovrei trovarmela ???
E' una cartella di riferimento creato al volo per avere (io)
un punto di riferimento per mettere la path nello script
NON e' una cartella di sistema o creata durante l'installazione
Prova a salvare una tu e-mail da OE e si apre c:\Documenti
ma per non intasare la suddetta folder nel dialogo ne crei
una nuova in questo caso C:\Documenti\email
PS:
oltre l'esempio di sopra che e' customer  (cioe' non di default )
hai provato a  start impostazioni opzioni cartella >>Visualizza
"File nascosti" a mettere la spunta su "Mostra tutti i file" ?
--
Fosco

 Come si chiama il linguaggio che hai usato per fare il .vbs?
wsh >>>>  "Windows Script Host"
http://www.microsoft.com/italy/scripting/
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
(tuttosuunarigasenononfungecopiaincollaunpezzopervolta)
Inizio wsh ( samples)
http://www.robvanderwoude.com/robnav.html
microsoft.public.it.scripting
--
Fosco



		Ciao Fosco
Grazie della risposta.
Questa volta sono arrivato in fondo ,senza problemi.
		Ciao Giorgio