Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

anexos acbremail


Go to solution Solved by Daniel Simoes,
  • Este tópico foi criado há 1139 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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

Link to comment
Share on other sites

  • Administradores

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.

  • Like 2
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Fundadores
  • Solution

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

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

 

  • Like 2
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

  • Este tópico foi criado há 1139 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.