No consigo que funcione de ninguna forma.
¿ Alguna idea ? está en Delphi 2007 No se que versión será de las Indy
Estoy por intentarlo en Delphi 7 a ver si funciona.
Voy a poner el trozo de código por si a caso:
Código:
with idMessage do begin
// Cuerpo del mensaje.
Body.Clear;
Body.Assign(texto.Lines);
ContentType := 'text/html';
// Cuenta Origen.
From.Name:=config.enombre.Text;
From.address := config.eusuario.Text;
ReplyTo.EMailAddresses:=config.erespuesta.Text;
// Asunto del email.
Subject := edit1.Text;
// Prioridad del mensaje, ALTA.
Priority := TidMessagePriority(mpHighest);
// Coloco el archivo adjunto el cual enviar.
//TidAttachment.Create(idMensage.MessageParts,ARCHIVOADJUNTO);
for I := 0 to adjunto.Items.Count - 1 do
begin
if Fileexists(adjunto.Items[i]) then
tIdAttachment.Create(MessageParts, adjunto.items[i]);
end;
end;
Los Uses:
Código:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, IdMessage, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient,
IdSMTPBase, IdSMTP,IdAttachment, Menus, ExtCtrls;
El IdAttachment lo agregue yo en los Uses, porque no estaba y no lo reconocia.