Mais de um arquivo anexado ao e-mail com Indy...

Delphi

30/05/2005

Saudações a todos...

Finalmente consegui fazer meu programinha de enviar e-mails, mas, não consegui ainda fazer com que ele mande mais de 1 arquivo anexado.

Estou fazendo assim:

1. coloquei um botão no form que chama o seguinte código:


if OpenDialog1.Execute then
    begin
      E_Anexo.Text := OpenDialog1.Files.GetText;
      TIdAttachment.Create(IdMessage1.MessageParts, E_Anexo.Text);
    end;



Alguém pode ajudar???
Quero enviar mais de um arquivo...


Horus

Horus

Curtidas 0

Respostas

Massuda

Massuda

30/05/2005

...não consegui ainda fazer com que ele mande mais de 1 arquivo anexado...
A princípio, bastaria criar tantos TIdAttachment´s quanto for necessário. Por exemplo, para mandar 2 anexos:
TIdAttachment.Create(IdMessage1.MessageParts, NomeDeArquivo);
TIdAttachment.Create(IdMessage1.MessageParts, NomeDeOutroArquivo);



GOSTEI 0
Horus

Horus

30/05/2005

Antes de tudo, obrigado pela resposta.

Tudo bem, que eu poderia criar um para cada anexo mas, como eu posso fazer isso com um recurso como o OpenDialog???

Acho que não entendi a sua sugestão.


GOSTEI 0
Massuda

Massuda

30/05/2005

...como eu posso fazer isso com um recurso como o OpenDialog???
Pelo que entendi, você vai deixar a pessoa selecionar vários arquivo no OpenDialog. Nesse caso faça algo assim:
if OpenDialog1.Execute then begin
  for I := 0 to OpenDialog.Files.Count - 1 do begin
    TIdAttachment.Create(IdMessage1.MessageParts, OpenDialog.Files[I]); 
  end;
end
else begin
  // usuário cancelou
end;
A propriedade Files do OpenDialog contem a lista dos arquivos selecionados (desde que a flag ofAllowMultiSelect esteja na propriedade Options).


GOSTEI 0
POSTAR