problema no envio de email com anexo

Question

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 ...

Rodrigo Pereira · Answer

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;