anexos acbremail

[Ricardo - UltraSeven]

bom dia amigos

estou tentando melhorar a minha rotina de envio de email e esta dando certo, porem estou com duvida para o envio dos arquivos em anexo, pois criei um listbox para que o usuario inseria quantos anexos for necessarios, mas nao sei com fazer com que o componente aceite todos itens do listbox, alguem pode me explicar como fazer que possa enviar independete do tipo de arquivo em anexo

 

obrigado

[Felipe E. Resende Mesquita]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Juliana Tamizou]

Bom dia.

Veja este trecho adaptado do demo(Em lazarus)

     ListaAnexos.First;
      while not(ListaAnexos.EOF) do
      begin
        AddAttachment(ListaAnexos.Fields[1].AsString,dm.tbAnexos.Fields[2].AsString);
        ListaAnexos.Next;
      end;  

Att.

[Daniel Simoes]

Você pode fazer um Loop.. e ir adicionando os anexos...

 ACBrMail1.AddAttachment(Dir+NomeArquivo, 'Descricao do Anexo', adAttachment); 

 

[Ricardo - UltraSeven]

boa noite

deu certo, obrigado a todos mais uma vez

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.