Spero che questa domanda non abbia niente a che fare con un progetto di spamming…
Piu’ che altro mi sembra che qualcuno abbia raccolto in malo modo gli indirizzi dei destinatari da centinaia di mail per comporre questo pignattone che hai tra le mani.
Ho detto “raccolto in malo modo” perche’ e’ evidente che da una stringa quale alessandro xxxx non si ricostruisce nessun indirizzo di posta, ne’ si puo’ calcolare con certezza Nome/cognome da una stringa come
yyyyyyy.aaaaa@yahoo.it. Mentre raccogliendo “in modo intelligente” le stesse informazioni, si sarebe potuto avere qualcosa come
Luigino Bianchi <xxxx@xxxx.it>; Nicoletta Rossi <xxxx@xxxxxx.it>; Nonno Luca <xxx.xxxx@tin.it>; etc
Dove il primo campo e’ l’ alias con cui il mittente ha identificato il destinatario e tra <> il vero indirizzo di posta; con i vari blocchi separati dal “punto e virgola”.
Da quello che hai puoi comunque ottenere gli indirizzi di posta (se ci sono) e separatamente gli alias.
Lo fai in tre step:
0-due copie di backup dei dati originali
1- Su word, col tuo file aperto
-Apri il vba editor con Alt-F11
-inserisci un modulo di codice tramite Menu /Inserisci /Modulo
-copi questa macro nel frame bianco di dx
- Codice: Seleziona tutto
Sub PVtoLF()
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ";"
.Replacement.Text = vbLf
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
-torni a word, ed esegui la macro: Menu /Strumenti /Macro /Macro; selezioni PVtoLF e premi esegui
Questo dovrebbe portare ogni bloccho su una riga.
2-Su excel
-copia tutte le righe di word e incollale su un foglio excel, diciamo su A1;
-In C1 usi la formula
- Codice: Seleziona tutto
=STRINGA.ESTRAI(A1;CERCA(999;TROVA(" ";A1;RIF.RIGA(INDIRETTO("1:"&LUNGHEZZA(A1)))))+SE(VAL.ERRORE(TROVA("@";A1));LUNGHEZZA(A1);1);99)
-In D1 invece
- Codice: Seleziona tutto
=ANNULLA.SPAZI(SOSTITUISCI(A1;C1;""))
-Copia C1:D1 e incolla nelle righe sottostanti, quanto basta
In questo modo in col C hai l’ indirizzo (sempre che ci sia nel testo sorgente) e in col D l’ alias; che poi l’ alias sia Nome/Cognome o un qualsiasi nick name scelto dal mittente della mail questo e’ imprevedibile.
Ciao, fai sapere se aiuta.