ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Envio de email - Não enviando anexo

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
lua_rj
Novato
Novato


Registrado: Quarta-Feira, 4 de Janeiro de 2006
Mensagens: 93

MensagemEnviada: Sex Set 06, 2019 2:52 pm    Assunto: Envio de email - Não enviando anexo Responder com Citação

Boa tarde! Estou tentando enviar anexo na função de email, mas ele não está anexando..

O email chega desta forma:

This is a multi-part message in MIME format --fPFxywPtcoA6EfRzE4Y=_cskVFtaaK9PAC Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable Content-Disposition: inline TESTE DE ENVIO --fPFxywPtcoA6EfRzE4Y=_cskVFtaaK9PAC Content-Type: text/plain; name="2.txt" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="2.txt" ZnJtQ2FkVGlwb0RDTVQ= --fPFxywPtcoA6EfRzE4Y=_cskVFtaaK9PAC--

Com esse texto ai. Se eu não anexar nada ele enviar e no corpo fica só o texto de teste. Tem mais alguma configuração que precisa ser feito?


O codigo para anexar é esse :

if Email.ArqEmAnexo.Count > 0 then
begin
for I := 0 to Email.ArqEmAnexo.Count - 1 do
begin
ArqAux := ExtractFileName(Email.ArqEmAnexo.Strings[I]);
if Email.HtmlBody and ArquivoDeImagem(ArqAux) then
begin
anexo := TIdAttachment.Create(IdMessage.MessageParts);//, Email.ArqEmAnexo.Strings[I]);
anexo.ContentDisposition := 'inline';
anexo.ExtraHeaders.Values['Content-ID'] := '<' + ArqAux + '>';
anexo.DisplayName := ArqAux;
end
else
begin
if pdfFile then
begin
anexo:= TIdAttachmentFile.Create(IdMessage.MessageParts, Email.ArqEmAnexo.Strings[I]);
anexo.ContentType := 'application/pdf;';

anexo.FileName := ExtractFileName(ArqAux);
end
else
begin
//anexo := TIdAttachment.Create(IdMessage.MessageParts);
anexo:= TIdAttachmentFile.Create(IdMessage.MessageParts, Email.ArqEmAnexo.Strings[I]);
anexo.ContentDisposition := 'attachment';
//anexo.FileName := ExtractFileName(ArqAux);
end;
end;
end;

end;
_________________
Obrigada pela atenção!
Gisele Gonçalves
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10428
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Seg Set 23, 2019 3:50 pm    Assunto: Responder com Citação

Tente isto aqui:

http://balaiotecnologico.blogspot.com/2011/04/enviando-emails-com-delphi.html
http://balaiotecnologico.blogspot.com/2011/05/enviando-emails-com-delphi-parte-ii.html

bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB