Fórum Envio De E-Mail Com Tidsmpt #131110

   with IdMsgSend do
      begin
        ContentType := 'text/html';
        xConteudo := mConteudo.Text;
        xConteudo := StringReplace(xConteudo, #$D#$A, '<br />', [rfReplaceAll]);
        Body.Text := xConteudo;
        
        From.Text := 'texto';
        Subject := 'assunto';
        CCList.EMailAddresses := ''; 
        BccList.EMailAddresses := ''; 
        Priority := mpHigh;
      end;


   SMTP.AuthenticationType := atLogin; {Simple Login}


   SMTP.Username := 'email@email.com';
   SMTP.Password := 'senha';

   {General setup}
   SMTP.Host := 'smtp.email.com'
   SMTP.Port := 25;

   {now we send the message}
   try
     SMTP.Connect;
     Erro := False;
   except
     Erro := True;
   end;

  if Erro = True then Exit;

    Screen.Cursor := crSQLWait;
   try
     try
      xMail := 'cliente@dominio.com';
      IdMsgSend.Recipients.EMailAddresses := xMail;
      SMTP.Send(IdMsgSend);
     except
       on E: Exception do
         begin
           lbStatus.Caption := 'Erro.: ' + E.Message;
         end;
     end; 
   finally
    Screen.Cursor := crDefault;
    SMTP.Disconnect;
   end;