Inizio=instr(codHTML,"mailto:")+7
Fine=instr(Inizio,codHTML,chr$(34))
Indirizzo=mid$(codHTML,Inizio,Fine-Inizio)