[SMTZ]

Hola, utilizando el siguiente código:

uses
  SysUtils, System.Web.Mail;

Var
   Mensaje      : MailMessage;

begin
 
  Mensaje := MailMessage.Create;

  Mensaje.From := 'MiUsuario@yahoo.es';
  Mensaje.&To := 'MiUsuario@yahoo.es';
  Mensaje.Subject := 'Prueba';
  Mensaje.Body := 'Texto de prueba';
  Mensaje.BodyFormat := MailFormat.Text;

  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendusing', '2' );
  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/smtpserver', 'smtp.correo.yahoo.es' );
  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/smtpserverport', '25' );

  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate', '1' );
  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendusername', 'MiUsuario@yahoo.es' );
  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendpassword', 'MiContraseña' );

  SMTPMail.SmtpServer := 'smtp.correo.yahoo.es';
  SMTPMail.Send ( Mensaje );

  Mensaje.Free;

end.

compila bien, pero da el siguiente error en tiempo de ejecución:

Unhandled Exception: System.Reflection.TargetInvocationException: Exception has
been thrown by the target of an invocation. ---> System.Runtime.InteropServices.
COMException (0x800A0EA5): Error al actualizar los campos. Para obtener más info
rmación, examine la propiedad Status de los campos de cada objeto individual.
   --- End of inner exception stack trace ---
   at System.RuntimeType.InvokeDispMethod(String name, BindingFlags invokeAttr,
Object target, Object[] args, Boolean[] byrefModifiers, Int32 culture, String[]
namedParameters)
   at System.RuntimeType.InvokeMember(String name, BindingFlags invokeAttr, Bind
er binder, Object target, Object[] args, ParameterModifier[] modifiers, CultureI
nfo culture, String[] namedParameters)
   at System.Web.Mail.CdoSysHelper.Send(MailMessage message)
   at System.Web.Mail.SmtpMail.Send(MailMessage message)

He buscado por Internet pero no he sacado nada en claro. ¿Alguien sabe a qué puede ser debido este error?

Gracias.