Ver Mensaje Individual
  #2  
Antiguo 30-04-2004
Avatar de Jure
Jure Jure is offline
Miembro
 
Registrado: may 2003
Ubicación: Valencia, Vzla.
Posts: 528
Reputación: 24
Jure Va por buen camino
... puedes usar .....

... algo mas o menos asi: tienes que usar junto con el IdSMTP1 el TIdMessage para el mensaje.

Código Delphi [-]
begin
   try
   TidAttachment.Create(idMessage1, 'c:\chica.jpg');
   with idMessage1. do
     begin
        Body.Assign(Memo1.Lines);
        From.Text := UserEmail;
        Recipients.EMailAddresses := edtTo.Text; 
        Subject := edtSubject.Text; 
        CCList.EMailAddresses := edtCC.Text;
        BccList.EMailAddresses := edtBCC.Text;
     end;
     idSMTP1.Connect;
     idSMTP1.Send(idMessage1);
  finally
     idSMTP1.Disconnect;
     slBody.Free;
     Showmessage('done');
  end;
end;


...de todas maneras revisa dentro de la carpeta de ejemplos de Indy hay un ejemplo mas completo y mejor explicado.

espero que te sirva de algo.

Jure.
__________________

"Dios juzga al árbol por sus frutos, y no por sus raíces"


Como esta la sibidigua ???
Responder Con Cita