Fórum Mais de um arquivo anexado ao e-mail com Indy... #283335
30/05/2005
0
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:
Alguém pode ajudar???
Quero enviar mais de um arquivo...
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
Curtir tópico
+ 0
Responder
Posts
30/05/2005
Massuda
...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);
Responder
Gostei + 0
30/05/2005
Horus
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.
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.
Responder
Gostei + 0
30/05/2005
Massuda
...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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)