19/03/2017

problema no envio de email com anexo

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?

Rodrigo Pereira

Currículo

Respostas

19/03/2017

Rodrigo Pereira Currículo

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;
Responder Citar