Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   .NET (https://www.clubdelphi.com/foros/forumdisplay.php?f=17)
-   -   Problemas para enviar un mensaje desde una página web (https://www.clubdelphi.com/foros/showthread.php?t=44277)

selman 02-06-2007 00:18:58

Problemas para enviar un mensaje desde una página web
 
Hola, estoy desarrollando una aplicación en aspx.net con Framework 1.1 y Delphi 2005. En una de sus partes deseamos enviar un correo electrónico al cliente. A continuación les escribo el código que usamos al dar clic sobre un botón:

Código Delphi [-]
procedure TWebForm1.btnUpload_Click(sender: System.Object; e: System.EventArgs);
var
 correo : MailMessage;
begin
 correo         := MailMessage.Create ();
 correo.From    := 'carlos34@quetzal.com.mx';
 correo.&To     := 'antonio@hotmail.com';
 correo.Body    := 'Cuerpo del mensaje';
 correo.Subject := 'Asunto 3';

 correo.Fields.Add
('http://schemas.microsoft.com/cdo/configuration/smtsperver', 'smtp.quetzal.com.mx');
 correo.Fields.Add('http://schemas.microsoft.com/cdo/configuration/smtpserverport', '25');
 correo.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendusing', '2');
 
 correo.Fields.Add('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate', '1');
 correo.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendusername', 'prueba@quetzal.com.mx');
 correo.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendpassword', '123456jr');

 SmtpMail.SmtpServer := 'smtp.quetzal.com.mx';
 SmtpMail.Send(correo);
 correo.Free;
end;

La aplicación se ejecuta pero al tratar de enviar el correo marca el siguiente error:
Error al actualizar los campos. Para obtener más información, examine la propiedad Status de los campos de cada objeto individual.

Saludos a todos Selman.


La franja horaria es GMT +2. Ahora son las 16:22:07.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi