Enviar un mail - metodo eficaz

[Helloween]

Mail.Configuration.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendusername', '<nombre_de_usuario>');
Mail.Configuration.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendpassword', '<clave_de_usuario>');


Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/sendusing') := 2;
Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver') := 'smtp.servidor.com';


Además del código que apunta Khronos:

Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/sendusing') := 2;
 Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver') := 'smtp.servidor.com';
 Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport') := 25;
 Mail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout') := 60;

(donde 'smtp.servidor.com' es nuestro servidor smtp, donde tenemos una cuenta de correo activa, con usuario y contraseña)

necesitamos introducir los campos con el nombre de usuario y la contraseña de la cuenta de correo de la misma, con estas líneas:

Mail.Configuration.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendusername', '<nombre_de_usuario>');
Mail.Configuration.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendpassword', '<clave_de_usuario>');

Espero que sea de ayuda. Un saludo