problema no envio de email com anexo
19/03/2017
0
bom dia, estou com o seguinte problema, tenho uma rotina q envia anexo de arquivos residentes num servidor de arquivos, envia blz, agora tem um detalhe o corpo da mensagem precisar estar em html, mas quando envio o email chega com as tags <b> etc e tal.
Depois de muito quebrar a cabeça eu comentei a parte do código q anexa os arquivos, enviei o email, chega blz, com o html formatadinho!!
Tem idéia do q possa ser?
Depois de muito quebrar a cabeça eu comentei a parte do código q anexa os arquivos, enviei o email, chega blz, com o html formatadinho!!
Tem idéia do q possa ser?
Rodrigo Pereira
Curtir tópico
+ 0
Responder
Posts
19/03/2017
Rodrigo Pereira
segue código:
QryDestinatarioAnexo.Locate('sequencia',dblkDestinatario.KeyValue,[]);
tmp_email := trim(QryDestinatarioAnexoEMAIL.asString) ;
// IdMessage.BccList.EMailAddresses := tmp_email;
IdMessage.Recipients.EMailAddresses := tmp_email;
IdMessage.Subject := EdtAssunto.text;
IdMessage.From.Address := edtUsuario.Text;
IdMessage.From.Name := 'Depto Exportação S.S.A';
// IdMessage.Body.Add('<HTML><BODY>'+rxTextoEmail.Text+'</BODY><HTML>');
IdMessage.CharSet := 'ISO-8859-1';
//IdMessage.ContentType := 'aimage/jpeg';
IdMessage.ContentType:='text/plain';
QryAnexo.Close;
QryAnexo.Open;
QryAnexo.First;
while not QryAnexo.Eof do begin
if not QryAnexoCAMINHO.IsNull then
TIdAttachment.Create(IdMessage.MessageParts, TFileName(QryAnexoCAMINHO.Value));
QryAnexo.Next;
end;
try
IdSMTP.Send(IdMessage);
IdMessage.Clear;
showMessage('Enviado com sucesso!!!');
except
IdMessage.clear;
showMessage('Erro no envio');
end;
QryDestinatarioAnexo.Locate('sequencia',dblkDestinatario.KeyValue,[]);
tmp_email := trim(QryDestinatarioAnexoEMAIL.asString) ;
// IdMessage.BccList.EMailAddresses := tmp_email;
IdMessage.Recipients.EMailAddresses := tmp_email;
IdMessage.Subject := EdtAssunto.text;
IdMessage.From.Address := edtUsuario.Text;
IdMessage.From.Name := 'Depto Exportação S.S.A';
// IdMessage.Body.Add('<HTML><BODY>'+rxTextoEmail.Text+'</BODY><HTML>');
IdMessage.CharSet := 'ISO-8859-1';
//IdMessage.ContentType := 'aimage/jpeg';
IdMessage.ContentType:='text/plain';
QryAnexo.Close;
QryAnexo.Open;
QryAnexo.First;
while not QryAnexo.Eof do begin
if not QryAnexoCAMINHO.IsNull then
TIdAttachment.Create(IdMessage.MessageParts, TFileName(QryAnexoCAMINHO.Value));
QryAnexo.Next;
end;
try
IdSMTP.Send(IdMessage);
IdMessage.Clear;
showMessage('Enviado com sucesso!!!');
except
IdMessage.clear;
showMessage('Erro no envio');
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)