Отправка сообщения на почту

[zdus2757]

Всем привет, такая проблема
отправляю письмо таким образом:

procedure Send(Str:String); // отправка письма
begin
m:=TIdMessage.create(form1);
m.From.Text:='логин отправителя';    //логин отправителя
m.Recipients.Add;
m.Recipients.Items[0].Text:='кому'; // Кому
m.Subject:='тема письма'; // Тема письма!
m.Body.Text:=Str; // текст сообщения
sm:=tidsmtp.Create(form1); // Создание IDSMTP
sm.AuthType := satDefault;  // Авторизация
sm.Host:='smtp.rambler.ru'; //smtp-адрес
sm.Username:='почта'; //логин отправителя
sm.Password:='пароль';  //пароль отправителя
sm.Connect();  // коннектимся
if sm.Connected then  // если законектились
    begin
     sm.Send(M); // отправляем
    end;
sm.Disconnect; // дисконектимся
sm.Free; // освобождаем sm
end;

и все работает, но работает не везде, один человек жил в одном месте - у него все работало, переехал, и через другой интернет у него уже не работает

в чем может быть причина? почему перестал работать при смене провайдера?

[Stilet]

Провайдер может блочить. Почему бы нет?