Fórum Anexo em mensagens de e-mail com INDY #164270
03/06/2003
0
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
Curtir tópico
+ 0
Responder
Posts
03/06/2003
Luciano Pimenta®
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]));
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)