Gestor de correo Delphi

[unko!]

alguien me puede decir como hacer un GESTOR de correo ... esto hecho con los Indy's de delphi.
con esto me refiero a un programa que contenga:
1 Edit para poner ASUNTO
1 Edit (o algun otro objeto) para poner un mensaje
y 1 boton para enviar
Lo intente hacer pero no me resulto

si saben de un tuto pasenlo

thanx salu2!

[roman]

Pues qué mejor que el MailClient incluido en las demos de Indy.

// Saludos

[unko!]

a ke te refieres?

[roman]

Empezado por unko!

a ke te refieres?

En la página de las Indy te puedes bajar las demos.

// Saludos

[unko!]

cual es la pagina?

[Urano]

Hola UNKO!.
Si tienes el DELPHI 7, en la instalación vienen un programa igual al que necesitas. Si no lo encuentra ve a http://www.atozed.com/indy/ y busca tu versión y bájala.


Saludos.

[JuanBCT]

Hola Unko! Te voy a explicar lo que yo hice, me funcionó muy bien... aviso q lo hice con Delphi 5, no se si funcionará con versiones posteriores...

1) Bajé e instalé las Indy 9 (trate de hacerlo con las 10 pero me daba un error en la instalación; no instalaba todos los componentes).

2) Ya en el form, lo más básico q habría q tener sería:
- Edits para la dirección del Host y la de la cuenta q vas a usar para mandar el correo
- Edits para la dirección de destino y para el asunto
- Botón "Enviar" y Memo para el mensaje
- Componentes Indy: TIdSMTP (pestaña Indy Clients) y TIdMessage (pestaña Indy Misc). Al primero le pasamos los datos de la conexión, al segundo los datos del mensaje.

3) El código del botón "Enviar" tendría q tener esto...

Código Delphi [-]
procedure TMandaMail_Form.SpeedButton1Click(Sender: TObject);
begin

  //Parámetros para el componente TIdSMPT
  idsmtp1.Host:=editHost.Text;
  idsmtp1.Port:=25;

  //Parámetros para el componente TIdMessage
  idmessage1.From.Address:=editDesde.Text;
  idmessage1.Recipients.EMailAddresses:=editPara.Text;
  idmessage1.Subject:=editAsunto.Text;
  idmessage1.Body.Text:=memoCuerpo.Text;
  
  //Envío del mensaje
  try
    try
    idSMTP1.Connect(1000);
    idSMTP1.Send(idmessage1);
    except on E:Exception do Showmessage ('Error al enviar mensaje');
    end;
    finally
    if idSMTP1.Connected then idSMTP1.Disconnect;
  end;
end;

De algunas cosas no estoy muy seguro... por ejemplo de por qué hay que pasarle 25 al Port del SMTP, o 1000 a Connect (lo encontré en un ejemplo); pero bueno, el tema es q me funcionó... Espero que te sirva, saludos!!!

[JuanBCT]

Tampoco estaría de más poner un ...

Código Delphi [-]
  Showmessage ('Mensaje enviado');

...luego del disconnect...

[unko!]

me tira error el ejemplo que me diste juan no tendras otro por ahi?

[Casimiro Noteví]

¿qué error?

[JuanBCT]

Decime q error te dá, en q línea, etc...

[unko!]

jajaja... ya vi por ke me salia error: todo estaba en que yo no le habia puesto el nombre a los edits... solo basto con ponerle edit1,2,3... y ya :P

[unko!]

lo cale y no manda nada

[unko!]

ese truco ya lo han calado??

[unko!]

pero si tengo los Indys

[JuanBCT]

¿Que quiere decir calado?

[unko!]

mmmm... testeado, probado...

[JuanBCT]

Ah, mirá yo lo usé en mi aplicación y funcionó perfecto; fijate si podés correr el programa haciendo un trace into al botón Enviar para ver en que línea te dá el error; y el mensaje q te aparece.....

[unko!]

hacer un ke? como se hace eso?

[roman]

Se refiere a hacer un debug de la aplicación. También podrías poner un breakpoint al inicio del código y hacer un step over.

// Saludos