Anexar em e-mail

Delphi

12/03/2004

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


Gdg2001

Gdg2001

Curtidas 0

Respostas

Paulo Trajano

Paulo Trajano

12/03/2004

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

  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


GOSTEI 0
POSTAR