Hola, utilizando el siguiente código:
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:
Código:
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.