[Delphi] Inviare e-mail a più utenti.

In una mia applicazine ho avuto la necessità di creare una procedura che, all’occorrenza, potesse inviare una e-mail a tutti gli indirizzi contenuti in una tabella di un database, utilizzando il client predefinito di posta elettronica.
Partendo dal presupposto che abbiamo già creato il nostro DataModule, che io per comodità ho chiamato DMSsn, con i relativi DataSet (nel mio caso al dataset ho dato il nome di Referenti), DataSource e li abbiamo settati correttamente, apriamo una nuova form, assegniamole un nome (nel mio caso frmVisResp) e salviamola, inseriamo fra le uses ShellApi.