Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ayuda con INDY (https://www.clubdelphi.com/foros/showthread.php?t=77672)

danielmj 17-02-2012 13:02:41

Ayuda con INDY
 
hola, estoy realizando una pequeña utilidad para uso personal, en concreto es una aplicación que almacena en una checklist, direcciones de correo electronico de empresas a las que enviarle el cv como archivo adjunto. Ya sé que hay muchas aplicaciones para esto, pero la diferencia está en que con este programa que quiero o intento hacer, solo con pulsar un boton se envia el mismo correo a cada empresa, de echo podria hacer que se cargue al inicio de windows y que el solo con un temporizador envie el cv cada x tiempo y otra diferencia es que no quiero que cada empresa a la que le llegue mi cv vea que tambien se lo envié a otras. Y si uso el comando BCC en thunderbird, aparece "destinatarios no revelados" pero da pista de que el mismo cv se lo he enviado tambien a otras empresas. Este es el proposito de la aplicacion y este el codigo que estoy usando:

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject) ;
 begin
   Memo.Clear;
   SMTP := TIdSMTP.Create( nil );
   SMTP.Host := 'smtp.ono.com';
   SMTP.Port := 25;
   smtp.Password:='xxx';
   smtp.Username:='xxx';
   SMTP.AuthType := satDEFAULT;
   SMTP.Connect;

   idms.Recipients.Add;
   idms.From.Name:='xxx';
   idms.From.Address := 'xxx';
   idms.Recipients.EMailAddresses := 'xxx';

   idms.Subject := 'prueba';
   idms.Body.Text := 'prueba de correo desde delphi';

   {if FileExists(edit2.Text) then
    TIdAttachment.Create(idms.MessageParts, edit2.Text) ;}

   try
     try
      except on E:Exception do
       memo.Lines.Insert(0, 'ERROR: ' + E.Message) ;
     end;
   finally
     if SMTP.Connected then SMTP.Disconnect;
   end

Lo de enviar el arcvhivo adjunto, de momento lo dejo, por que quiero resolver el problema de que no me llega ningun correo. No me da error de compilación ni de ejecución, simplemente no envia nada a la cuenta de correo del destinatario.
Como podeis ver, uso SMTP y la cuenta es de ONO, como ejemplo de destinatarios he probado con cuentas de hotmail y gmail, pero no llega nada a ninguna de ellas.

¿Donde esta el fallo? uso delphi 2010

un saludo y espero podáis ayudarme.

Casimiro Noteví 17-02-2012 13:44:43

Por favor, recuerda para otra ocasión poner un título descriptivo a tu pregunta, gracias.

¿Has hecho una búsqueda por clubdelphi?, es un tema que se ha tratado en diversas ocasiones.
Al final de esta página tienes varios enlaces que pueden servirte.

newtron 17-02-2012 20:05:58

Hola.

Aquí tienes un hilo referente a ese tema.

Saludos


La franja horaria es GMT +2. Ahora son las 03:48:13.

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