F�rum Anexar aqruivo no indy 10 #383394

11/08/2010

Estou tentando anexar um arquivo usando o indy 10 do delphi 2010, nas outras vers�es usava o TIdAttachament.create, mas este comando n�o funciona mais no delphi 2010, algu�m sabe como fa�o isto agora?

Valdelir Castanheiro

Curtir t�pico

+ 0

Responder

Posts

11/08/2010

Frost

Bom Dia
Valdeir

Veja se te ajuda, delphi 2010

Ex.

Uses :

IdAttachmentFile


procedure TForm1.btenviarClick(Sender: TObject);
var
Anexo : Integer;
begin

Message.From.Address := ' ';
Message.Recipients.EMailAddresses := ' ';
Message.Subject := 'Teste';

for Anexo := 0 to Listanexo.Items.Count-1 do
TIdAttachmentFile.Create(Message.MessageParts, Tfilename(Listanexo.Items.Strings[Anexo]));


 SMTP.Connect;
 try
 SMTP.Send(Message);
 finally
 SMTP.Disconnect();
 Message.Body.Clear;
 Message.MessageParts.Clear;

Responder

Gostei + 0

11/08/2010

Valdelir Castanheiro

Eu ja estou usando esta fun��o mas n�o funciona aparece sublinhado em vermelho.

TidAttachament.Create(IdMessage.MessageParts, TFileName('C:\Sistemas\Acertos\Arquivos\A'+IntToStr(Contador)+DatIniNom+DatFimNom+'.txt'));

Responder

Gostei + 0

11/08/2010

Fernando Farah

da algum erro ou simplesmente nao anexa ? bye

Responder

Gostei + 0

11/08/2010

Eriley Barbosa

N�o � falta de alguma Lib N�o declarada no Uses? Atenciosamente Eriley

Responder

Gostei + 0

11/08/2010

Fernando Farah

da algum erro ou simplesmente nao anexa ? declare IdAttachmentFile no uses do form

bye

Responder

Gostei + 0

12/08/2010

Valdelir Castanheiro

OK resolvido, era so a falta da uses

Responder

Gostei + 0