Fórum Anexar em e-mail #220064
12/03/2004
0
tenho que fazer um trabalho pra tecnofeira (feira de tecnologia de BH) e estou trabalhando com delphi 5, vou fazer um sftware para celular, ja tenho o sftware para usar, mas antes vou fazer o mesmo software para delphi, usando o delphi 5 para internet, ai gostaria de saber como que faco pra anexar coisas em um e-mail facilmente com o delphi
Obrigado
Gustavo Domenici Griffo
Obrigado
Gustavo Domenici Griffo
Gdg2001
Curtir tópico
+ 0
Responder
Posts
12/03/2004
Paulo Trajano
Gustavo,
Coloque em seu form um componente OpenDialog para abrir uma caixa de diálogo onde vc pode escolher os arquivos a serem anexados. Eu gosto de jogar o caminho desses arquivos em Edits e jogar o pacote inteiro numa ListBox assim
Depois é só anexar ao email assim:
Lembrando que isso é se vc usar o component NMSMTP da paleta FastNet
Coloque em seu form um componente OpenDialog para abrir uma caixa de diálogo onde vc pode escolher os arquivos a serem anexados. Eu gosto de jogar o caminho desses arquivos em Edits e jogar o pacote inteiro numa ListBox assim
if EditAnexo1.Text<>´´ then
Anexados.Items.Add(EditAnexo1.Text);
if EditAnexo2.Text<>´´ then
Anexados.Items.Add(EditAnexo2.Text);
if EditAnexo3.Text<>´´ then
Anexados.Items.Add(EditAnexo3.Text);
Depois é só anexar ao email assim:
NMSMTP1.PostMessage.Attachments.AddStrings(Anexados.Items);
Lembrando que isso é se vc usar o component NMSMTP da paleta FastNet
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)