procedure TEnviaEmail.Execute;
var idSMTP1: TIdSMTP;
    idmessage1: TIdMessage;
    textomsg: TidText;
    IdSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
  NameThreadForDebugging('EnviaEmail');
  erro := '';
 
  Synchronize(UpdateEmailEnviando);
  Try
    idSMTP1 := TIdSMTP.create(nil);
    idmessage1 := TIdMessage.create(nil);
 
    try
 
    // configura servidor SMTP
    idSMTP1.Host := host;     // smtp...
    idSMTP1.Username := username;
    idSMTP1.Password := password;
    idSMTP1.ConnectTimeout := 20000;
 
    // configurações adicionais servidor SMTP com autenticação
    if autenticacao then
    begin
      with idSMTP1 do
      begin
         IdSSL := nil;
         try
         port := 465;
         IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create( nil );
         IdSMTP1.IOHandler := IdSSL;
         UseTLS := utUseImplicitTLS;
         except on E: Exception do
            begin
              IOHandler := TIdIOHandler.MakeDefaultIOHandler( nil );
              UseTLS := utNoTLSSupport;
            end;
          end;
          if Assigned(IdSSL) then
          begin
            IdSSL.SSLOptions.Method := sslvSSLv3;
            IdSSL.SSLOptions.Mode := sslmClient;
          end;
          AuthType := satDefault;
      end;
 
    end;
 
    // configurando mensagem
    idmessage1.Clear;
    idmessage1.CharSet:='iso-8859-1';
    idmessage1.Encoding := MeMIME;
    idmessage1.ContentType:='multipart/related'   ;
    idmessage1.from.address := emailloja;  // e-mail do remetente
 
    // e-mail destinatario                                      |
    idmessage1.recipients.emailaddresses := emaildestinatario;
 
    // Assunto (titulo E-mail)
    idmessage1.subject := emailsubject;
 
    // Corpo da Mensagem (use aqui um HTML ou texto que deseja enviar
    // juntamente com a mensagem.
    textomsg := TIdText.Create(idmessage1.MessageParts);
    textomsg.Body.Text := 'Prezado Cliente,'+
    'Obrigado por comprar na nossa Empresa. Estamos encaminhando esse e-mail contendo'+
    ' ....';
    textomsg.ContentType := 'text/html';
 
    idSMTP1.Connect;
    if autenticacao then idSMTP1.Authenticate;
    idSMTP1.send(idmessage1);
    idSMTP1.Disconnect;
 
    Synchronize(UpdateEmailOK);
 
    except
       on e:exception do begin
       erro := e.message;
       Synchronize(UpdateEmailErro);
       end;
    end;
 
  Finally
    idmessage1.Free;
    if autenticacao then idSSL.Free;
    IdSMTP1.Free;
  End;
End;