Не отправляется e-mail

@AndHacker · Регистрация: 11.09.2013

Студворк — интернет-сервис помощи студентам

Пытаюсь отправить, что-нибудь на email из Delphi 7, до этого ранее отправлял, но старые примеры не работают, не понимаю в чём дело.

Применяются 2 компонента: IdMessage и IdSMTP
Вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Smtp.Username:='LOGIN@mail.ru';
Smtp.Password:='PASSWORD';
Smtp.AuthenticationType:=atLogin; // atNone
Smtp.ASCIIFilter:=true;
MailMessage.From.Text:='LOGIN@mail.ru';
MailMessage.Subject:='TEMA E-MAIL'; // ????
MailMessage.From.Address:='LOGIN@mail.ru'; // ????? ???????????
MailMessage.Recipients.EMailAddresses:='LOGIN@mail.ru';
MailMessage.Body.Text:='TEXT EMAIL'; // ????? ?????????
 
try
  try
   SMTP.Connect;
   SMTP.Send(MailMessage);
   ShowMessage('OK!');
   except on E:Exception do
   begin
     ShowMessage('ERROR - '+E.Message +#10#9 + 'PISMO NT OTPRAVLENO');
   end;
 end;
 finally
 if SMTP.Connected
  then SMTP.Disconnect;
 end;

(Логин и Пароль - заменены словами)
При отправке - появляется ошибка.
Скажите, что тут не так или отправьте точно-работающий код.
Спасибо.

@Avazart · 04.11.2014, 10:50

Сообщение от Алексей1990

то они в папке

А подумать?

@droider · 04.11.2014, 12:13

Сообщение от Алексей1990

появляется ошибка

я на XE5 тоже проверил. Никаких проблем, библиотек не требует. Без понятия, что у Вас там происходит.

Сообщение от Алексей1990

эти pcrelib.dll libeay32.dll ssleay32.dll то они в папке

в папке с проектом или в папке с exe файлом?

@NIKOLAYY · 04.11.2014, 14:00

Алексей1990,
Скачай другие dll- ки, они не все подходят, учитывать нужно разрядность операционной системы, либо 32, либо 64.
http://indy.fulgan.com/SSL/

@Алексей1990 · 04.11.2014, 14:37

Сообщение от NIKOLAYY

Скачай другие dll- ки, они не все подходят, учитывать нужно разрядность операционной системы, либо 32, либо 64.

да dll ки скачал другие и письмо отправилось, все заработало )))) а без dll можно сделать ???

@NIKOLAYY · 04.11.2014, 15:07

Сообщение от Алексей1990

а без dll можно сделать ???

Раньше можно было, но сейчас это небудет работать практически в любом почтовике. Изменения происходят каждый месяц смотри скрин или читай яаще последние обновления своего почтовика, поэтому я неудивлюсь если там произойдут изменения и твоя прога снова скоро откажет.

Но есть люди не понимают этого, у них ранее все работало:

Сообщение от AndHacker

NIKOLAYY, это не зависит от версии Indy, ранее всё работало.

И им бесполезно что то обьяснять.

@NIKOLAYY · 04.11.2014, 15:09

Удалил

@Avazart · 04.11.2014, 15:20

Сообщение от Алексей1990

а без dll можно сделать ???

Нет.

@NIKOLAYY · 04.11.2014, 15:27

Я че хотел сказать, работа твоей программы зависит не от тебя, а от того как стал работать тот сервер на котором у тебя почтовик. Возможно через какое-то время и dll- ки прийдется обновлять снова.

@droider · 04.11.2014, 16:34

Сообщение от Алексей1990

письмо отправилось, все заработало

да неужели? Наконец-то

Добавлено через 6 минут

Сообщение от NIKOLAYY

работа твоей программы зависит не от тебя

Да, конечно. Теперь это его программа

@Алексей1990 · 16.11.2014, 17:21

Кстати нашел вариант как сделать отправку почты без dll ))))) регаем хостинг заводим почту и все будет отправляться через 25 порт без dll

Новые блоги и статьи Все статьи Все блоги /
Гайд, как ворваться в вайб-кодинг в мае 2026 Noname2331 17.05.2026 Простите за получившееся полотно текста, я даже не знаю, как его разбить на главы. Тут, что называется, ни добавить ни убавить, одна сцена одним дублем. На моих глазах недавно случилось чудо. Как. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .

@NIKOLAYY 844 / 739 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	04.11.2014, 14:00
	Алексей1990, Скачай другие dll- ки, они не все подходят, учитывать нужно разрядность операционной системы, либо 32, либо 64. http://indy.fulgan.com/SSL/ 1

@NIKOLAYY 844 / 739 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	04.11.2014, 15:09
	Удалил 0

@NIKOLAYY 844 / 739 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	04.11.2014, 15:27
	Я че хотел сказать, работа твоей программы зависит не от тебя, а от того как стал работать тот сервер на котором у тебя почтовик. Возможно через какое-то время и dll- ки прийдется обновлять снова. 0

@Алексей1990 5 / 5 / 0 Регистрация: 13.04.2013 Сообщений: 67
	16.11.2014, 17:21
	Кстати нашел вариант как сделать отправку почты без dll ))))) регаем хостинг заводим почту и все будет отправляться через 25 порт без dll 0