Enviar anexo no email

Delphi

13/04/2004

Olá,


Estou densenvolvendo uma aplicação em CGI onde preciso enviar até 5 anexos em um email, estou usando a página toda em html, para localizar o arquivo na maquina uso o seguinte código:



Onde abre uma janela de Procurar

no CGI eu pego a informação e envio o email da seguinte forma:

// Mensagem
IdMsgSend.Subject := ´Impressão do Pedido Número: ´ + IntToStr(sId);
// Texto HTML
IdMsgSend.ContentType := ´text/html´;
IdMsgSend.Body.Clear;
IdMsgSend.Body.Add(´<HTML>´);
IdMsgSend.Body.Add(´<H2>by Fábio Luis</H2>´);
IdMsgSend.Body.Add(´

´);
IdMsgSend.Body.Add(´FK.com.br</A>´);
IdMsgSend.Body.Add(´<HTML>´);

// Remetente
idMsgSend.From.Address := qryLogimEmail.AsString;
idMsgSend.From.Name := qryLogimNome.AsString;
IdMsgSend.ReplyTo.EMailAddresses := qryLogimEmail.AsString;

// Destinatario
IdMsgSend.Recipients.EMailAddresses := ´f.luis@fk.com.br´;

// Anexa um arquivo
TIdAttachment.Create(idMsgSend.MessageParts,Request.ContentFields.Values[´attach´]);
// Onde attach é o parametro que vem da pagina com o caminho.

// Autenticacao - Use apenas quando o servidor exigir
SMTP.AuthenticationType := atNone;


SMTP.Connect;
try
SMTP.Send(IdMsgSend);
finally
SMTP.Disconnect;
end;


O probelma é que não acha o arquivo na maquina cliente, e da erro.

Só funciona na maquina onde o CGI está instalado.

E como faço pra anexar mais de um Arquivo no mesmo email ??


valeu !!!! :shock: :(


Fabioluis

Fabioluis

Curtidas 0

Respostas

Fabioluis

Fabioluis

13/04/2004

Olá, Estou densenvolvendo uma aplicação em CGI onde preciso enviar até 5 anexos em um email, estou usando a página toda em html, para localizar o arquivo na maquina uso o seguinte código: INPUT TYPE=´File´ NAME=´Attach´ SIZE=´25´ Onde abre uma janela de Procurar no CGI eu pego a informação e envio o email da seguinte forma: // Mensagem IdMsgSend.Subject := ´Impressão do Pedido Número: ´ + IntToStr(sId); // Texto HTML IdMsgSend.ContentType := ´text/html´; IdMsgSend.Body.Clear; IdMsgSend.Body.Add(´<HTML>´); IdMsgSend.Body.Add(´<H2>by Fábio Luis</H2>´); IdMsgSend.Body.Add(´ ´); IdMsgSend.Body.Add(´FK.com.br</A>´); IdMsgSend.Body.Add(´<HTML>´); // Remetente idMsgSend.From.Address := qryLogimEmail.AsString; idMsgSend.From.Name := qryLogimNome.AsString; IdMsgSend.ReplyTo.EMailAddresses := qryLogimEmail.AsString; // Destinatario IdMsgSend.Recipients.EMailAddresses := ´f.luis@fk.com.br´; // Anexa um arquivo TIdAttachment.Create(idMsgSend.MessageParts,Request.ContentFields.Values[´attach´]); // Onde attach é o parametro que vem da pagina com o caminho. // Autenticacao - Use apenas quando o servidor exigir SMTP.AuthenticationType := atNone; SMTP.Connect; try SMTP.Send(IdMsgSend); finally SMTP.Disconnect; end; O probelma é que não acha o arquivo na maquina cliente, e da erro. Só funciona na maquina onde o CGI está instalado. E como faço pra anexar mais de um Arquivo no mesmo email ?? valeu !!!! :shock: :(



GOSTEI 0
Fabioluis

Fabioluis

13/04/2004

Pra ficar Mais fácil entender, o que eu preciso é que funcione como se fosse um WEBMAil !!!!


Alguem pode me ajudar ???


Valeu !!!


GOSTEI 0
Fabioluis

Fabioluis

13/04/2004

O WebMail está funcionando, só não consigi anexar um arquivo alguem sabe o porque ???



Quando eu anexo ele procura no Servidor e não na máquina cliente !!!!

Como faço para copiar o arquivo do Cliente para o servidor ????

Valeu !!! :oops: :oops:


GOSTEI 0
POSTAR