VPF::Не отправляется E-mail, в чём проблема?

Janger

Дата 16.11.2013, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 17.6.2013

Репутация: 1
Всего: 1

Код


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
try
IdSMTP1.AuthType:=satSASL;
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='[email protected]';
IdSMTP1.Password:='********';  //мой пароль
IdSMTP1.Connect;
except
on e:Exception do
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
msg:TIdMessage;
begin
try
msg:=TIdMessage.Create(nil);
msg.Body.Add('Я текст сообщения, которое отсылается');
msg.Subject:='Привет тебе друг мой';
msg.From.Address:='[email protected]';  //отправитель
msg.From.Name:='Andrey';
msg.Recipients.EMailAddresses:='[email protected]';      //получатель
msg.IsEncoded:=True;
if IdSMTP1.Connected=True then
begin
IdSMTP1.Send(msg);
end;
msg.Free;
except
on e:Exception do
begin
msg.Free;
IdSMTP1.Disconnect;
end;
end;
ShowMessage('Проверяй почту!');
end;

end.

В общем, не знаю в чём проблема, запускается всё нормально, и сообщение в последней строке выводится, тоже нормально.
Но письма на Мыло нету...
В чём, дело?

Illusion Dolphin

Дата 16.11.2013, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 5
Всего: 63

Цитата

Но письма на Мыло нету...
В чём, дело?

Может быть:
1) В строке 35 возвращается False и ничего не подсоединилось? Проверки всё равно нетую
2) В строке 37 происходит ошибка авторизации т.к. не указан логин и пароль и ничего не отправляется. А так как ошибка e никуда не отображается то вы видите только сообщение что всё хорошо

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Akella

Дата 17.11.2013, 22:56 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

"Современные" почтовые серверы не хотят работать без шифрования. Поэтому нужно почитать про настройки. Скорее всего нужно использовать вместо 25 какой-нибудь 465 + SSL или TLS.

Вот, например, http://help.mail.ru/mail-help/mailer/mt

Цитата

Исходящая SMTP:

    Имя сервера — smtp.mail.ru;
    Порт — 465;
    SSL — SSL/TLS;
    Аутентификация — Обычный пароль.

Добавлено через 1 минуту и 34 секунды

Цитата(Janger @ 16.11.2013, 11:08

)

Но письма на Мыло нету...

Проверь папку Спам.

тем более с таким текстом

Цитата(Janger @ 16.11.2013, 11:08

)

msg.Body.Add('Я текст сообщения, которое отсылается');
msg.Subject:='Привет тебе друг мой';

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »