problemas para enviar mails

periklesvcl · #1 09-09-2005

tengo 1 problema gordo y es q necesito implementar en mi programa una aplicacion pa enviar mails y la verdad es q por mucho q lo intento no funciona aunq al compilar no da errores.......

les mando el codigo para ver si ustedes (gente amble de este club) localizais algun error.

codigo del boton conectar

Código Delphi [-] begin
   NmSmtp1.Host := Combobox1.items.text;
   NmSmtp1.UserID := Edit4.text;
   NmSmtp1.Connect;
 end;

codigo del boton enviar

Código Delphi [-] begin
   {Boton de Enviar}
   nmSmtp1.PostMessage.Assign(Memo2.Lines);
   nmSmtp1.PostMessage.FromName := Edit1.text;
   nmSmtp1.PostMessage.Subject := Edit2.text;
   nmSmtp1.PostMessage.FromAddress := Edit3.text;
   nmSmtp1.PostMessage.Body.Assign(Memo1.Lines);
   nmSmtp1.Sendmail;
 end;

gracias de antemano!!!