Anexo em mensagens de e-mail com INDY
Pessoal como faço para anexar um arquivo (*.zip) a mensagem de e-mail , criei um programa para envio de e-mail, mas agora cheguei na parte de anexar o arquivo e não estou conseguindo, utilizo os componentes da INDY .
Agradeço a atenção
Agradeço a atenção
Kv-informática
Curtidas 0
Respostas
Luciano Pimenta®
03/06/2003
Crie uma variavel i:integer;
Coloque um memo no seu form, de o nome de mAnexo. Preencha o memo com o (s) arquivo (s) que deseja (mAnexo.LInes.Add(OpenDialog.FileName)).
Para enviar faça um laço e pegue os arquivos que vc anexou no memo:
for i := 0 to mAnexo.Lines.Count-1 do
TIdAttachment.create(idmessage.MessageParts, TFileName(mAnexo.Lines.Strings[i]));
Coloque um memo no seu form, de o nome de mAnexo. Preencha o memo com o (s) arquivo (s) que deseja (mAnexo.LInes.Add(OpenDialog.FileName)).
Para enviar faça um laço e pegue os arquivos que vc anexou no memo:
for i := 0 to mAnexo.Lines.Count-1 do
TIdAttachment.create(idmessage.MessageParts, TFileName(mAnexo.Lines.Strings[i]));
GOSTEI 0