Erro, Enviar Email (Resolvido)

[Guest Guest]

Olá,

Consigo enviar e-mail pelo delphi 2005 só não estou conseguindo anexar arquivo, que é o principal objetivo, eu usei a mesma dica usada pra delphi7, so que da esse erro:

Undeclared identifier: 'TIdAttachment'

for xAnexo := 0 to ListBox1.Items.Count-1 do
     TIdAttachment.create(idmessage.MessageParts, TFileName(ListBox1.Items.Strings[xAnexo]));

alguém sabe como resolver isso????

Qualquer ajuda é bem vinda,

Obrigado.

[Progr'amador]

Olá,

No delphi 2005 houve uma pequena mudança mesmo.

Declare no Uses: IdAttachmentFile, e substitua o TIdAttachment por TIdAttachmentFile ficando assim:

for xAnexo := 0 to ListBox1.Items.Count-1 do

TIdAttachmentFile.create(idmessage.MessageParts, TFileName(ListBox1.Items.Strings[xAnexo]));

Abs. Progr'amador.

[Guest - Victor -]

Valeu progr'amador, agora rodou legal!!!!

Pensei que não ia consegui mais isso, já tava quase com um mes com esse problema, e num belo dia encontrei esse forum e obite a resposta.

esse forum é show de bola.

ate+