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

@pampirius · Регистрация: 11.12.2013

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

Всем добрый день! Написал так сказать программу для отправки сообщения на почтеу через программу
но выдаёт ошибку вот код

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent,
  IdMessage;
 
type
  TForm1 = class(TForm)
    IdMessage1: TIdMessage;
    IdAntiFreeze1: TIdAntiFreeze;
    IdSMTP1: TIdSMTP;
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
idsmtp1.AuthenticationType:=atlogin;
idsmtp1.host:='smtp.yandex.ru';
idsmtp1.Port:=25;
idsmtp1.Username:='wassng';
idsmtp1.Password:='vladlen';
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
       idsmtp1.Host:='smtp.mail.ru' ;// хост
     idsmtp1.MailAgent:='Mozila';//имя агента
    idsmtp1.Port:=25 ;// порт
    idsmtp1.Username:='xxx' ;// лоог
    idsmtp1.Password:='xxx' ;// пас
    idmessage1.CharSet:='windows-1251';// кодировка
    idmessage1.ContentType:='text/plain'; // тип письма
    idmessage1.Body.Add(memo1.text) ;// текст
    idmessage1.Subject:=AnsiString('Ïðèâåò.');// тема
    idmessage1.From.text:= 'xxx';// от кого
    idmessage1.Recipients.EMailAddresses:='xxx@yandex.ru';// кому
    idmessage1.IsEncoded:=true;
     try
      try
       idsmtp1.connect; // конектимся
       idsmtp1.Send(idmessage1);// отправка
       ShowMessage('Ïèñüìî îòïðàâëåíî!');// оправил
      except on E:Exception do
       begin
 
        ShowMessage('Ïèñüìî íå îòïðàâëåíî!');// не отправил
       end;
      end;
     finally
      if idsmtp1.Connected // ïðîâåðÿåì ñîåäèíåíèå
      then idsmtp1.Disconnect; // ðàçúåäèíÿåì
     end;
     end;// êîíåö
 
end.

а вот ошибка

@FIL · 28.04.2015, 15:56

Так там же английским по белому написано, что почтовики теперь работают через SSL.
На форуме есть рабочие примеры - пользуемся поиском.

@NIKOLAYY · 28.04.2015, 16:42

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

Написал так сказать программу для отправки сообщения на почтеу через программу
но выдаёт ошибку вот код

Пуд соли тебе еще нужно съесть что бы что-то слало. И ошибка даже не в коде может быть а в выборе libeay32.dll и ssleay32.dll библиотек, а у тебя ошибка и там и там (твой код работать небудет)!
Конечно ни каких сообщений тебе невидать!

Более того еще скажу все от версии indy зависит и даже если ты скачаеш 10.х.х.х не даю тебе гарантий что она заработает!
Я не просто так пишу, я тест проводил, разные компьтеры, разные версии инди, разные операционные системы на них.
Но суть сложилась в том что для 32-битных компов нужны именно 32-битные версии ddl-библиотек.
Качать библиотеки советую тока с офф сайта и последние версии.
Если что-то не так сказал меня - поправят.

Добавлено через 29 минут
FIL,
Почему у меня один и тот же код отрабатывает по разному в Delphi 2010 и Delphi XE2?

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
var
  Form1: TForm1;
  HTTP: TIdHTTP;
  r: TRegExpr;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
//создать ящик временный-почтовик
  Memo1.Text:= HTTP.Get('https://temp-mail.ru/');
 
  r := TRegExpr.Create;
  r.InputString := Memo1.Text;
  r.Expression := 'class="mail opentip" value="(.*?)" data-placement';
   if r.Exec then
   begin
    Edit1.Text:= r.Match[1];
   end;
 
  r.Free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
//обновить ящик почтовик (получить письма)
  Memo1.Text:= HTTP.Get('https://temp-mail.ru/option/refresh');
 
  r := TRegExpr.Create;
  r.InputString := Memo1.Text;
  r.Expression := 'class="mail opentip" value="(.*?)" data-placement';
   if r.Exec then
   begin
    Edit1.Text:= r.Match[1];
   end;
 
  r.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   HTTP:= TIdHTTP.Create(nil); //создаю один раз, ну и куки там же!
   HTTP.IOHandler:= IdSSLIOHandlerSocketOpenSSL1;
   HTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2062.120 Safari/537.36';
   HTTP.HandleRedirects := true;
end;
 
end.

Кнопка //обновить ящик почтовик (получить письма) она его не обновляет, а она меняет (дает новый ящик категорически не допустимо это мне, письмо нужно получить именно на тот ящик что был!)

Запускаю этот же код в Delphi XE2 работает как нужно ящика не меняет а, обновляет его содержимое и я нормально получаю письмо в исходный код страницы!

@FIL · 28.04.2015, 17:14

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

Почему у меня один и тот же код отрабатывает по разному

Откуда же я знаю? У меня Delphi 2010 нет и никогда не было.

@pampirius · 28.04.2015, 17:20 **[ТС]**

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

На форуме есть рабочие примеры - пользуемся поиском.

искать то не зная чего )) извините за глупый вопрос но как лучше искать? и где конкретнее?

@FIL · 28.04.2015, 17:32

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

искать то не зная чего

Приехали... Т.е. ты сам не знаешь, что и зачем делаешь?)

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

где конкретнее?

Да без разницы. Хоть здесь, хоть в Гугле. Главное - искать)

Добавлено через 50 секунд
Вот например:
Перестала работать почта

@NIKOLAYY · 28.04.2015, 17:59

как так почему оно так получается то! неуж-то ошибка в этом коде или ошиббка в делфи?

@NIKOLAYY · 28.04.2015, 18:03

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
var
  Form1: TForm1;
  HTTP: TIdHTTP;
  r: TRegExpr;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:= HTTP.Get('https://temp-mail.ru/');
 
  r := TRegExpr.Create;
  r.InputString := Memo1.Text;
  r.Expression := 'class="mail opentip" value="(.*?)" data-placement';
   if r.Exec then
   begin
    Edit1.Text:= r.Match[1];
   end;
 
  r.Free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Text:= HTTP.Get('https://temp-mail.ru/option/refresh');
 
  r := TRegExpr.Create;
  r.InputString := Memo1.Text;
  r.Expression := 'class="mail opentip" value="(.*?)" data-placement';
   if r.Exec then
   begin
    Edit1.Text:= r.Match[1];
   end;
 
  r.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   HTTP:= TIdHTTP.Create(nil); //СОЗДАЮ ОДИН РАЗ
   HTTP.IOHandler:= IdSSLIOHandlerSocketOpenSSL1;
   HTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2062.120 Safari/537.36';
   HTTP.HandleRedirects := true;
end;
 
end.

Добавлено через 3 минуты
Да как так! да такого неможет быть ни когда его ни кто не менял! куки держат HTTP? да как так то? нежто они его не держат? а почему тогда?
почему код в одной версии делфи держит куки а в другой не держит че это такое!

@pampirius · 28.04.2015, 18:04 **[ТС]**

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

Да без разницы. Хоть здесь, хоть в Гугле. Главное - искать)

нашёл вроде там код один

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23;
  IdSMTP1.IOHandler := IdSSLIOHandlerSocket1;
  IdSMTP1.AuthenticationType := atNone;
  IdSMTP1.UseTLS := utUseImplicitTLS;
  IdSMTP1.Username := 'xxx@yandex.ru'; //????? ?? ???????
  IdSMTP1.Password := 'xxx'; // ??????
  IdSMTP1.Host := 'smtp.yandex.ru'; // URL smtp
 
  IdMessage1.Body.Text := 'TestTestTestTestTest';
  IdMessage1.From.Text := 'xxx@yandex.ru'; //  ???????????
  IdMessage1.Recipients.EMailAddresses := 'xxx@yandex.ru'; // ??????????
  IdMessage1.Subject := 'Test'; // ????
  try
    IdSMTP1.Connect();
    IdSMTP1.Send(IdMessage1);
  except
    ShowMessage('?????? ????????');
  end;
    IdSMTP1.Disconnect();

ругается на

Delphi
1
IdSMTP1.UseTLS := utUseImplicitTLS;

@NIKOLAYY · 28.04.2015, 18:09

pampirius,
ты бы вобще сначала версию делфи и версию инди назавал бы свою. чтоб дальше можно было тему развивать, Как бы от этого и все и зависит, от этого и надо плясать.

@pampirius · 28.04.2015, 18:16 **[ТС]**

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

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

Delphi7 Build 4.453 а инди я не знаю

@adkomissarov · 28.04.2015, 18:25

Сам на днях ковырял для отправки, вот 100% рабочий пример отправки текста+вложение, проверял отправкой с mail на gmail.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
begin
  SMTP := TIdSMTP.Create(Application);
  SMTP.Host := 'smtp.mail.ru';
  SMTP.Port := 465;
  SMTP.AuthType := satDefault;
  SMTP.Username := 'МОЯ ПОЧТА@mail.ru';
  SMTP.Password := 'МОЙ ПАРОЛЬ ОТ ПОЧТЫ';
 
  //это необходимо использовать для SSL
  SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  SSLOpen.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
  SSLOpen.Host := SMTP.Host;
  SSLOpen.Port := SMTP.Port;
  SSLOpen.DefaultPort := 0;
  SSLOpen.SSLOptions.Method := sslvSSLv23;
  SSLOpen.SSLOptions.Mode := sslmUnassigned;
 
  SMTP.IOHandler := SSLOpen;
  SMTP.UseTLS := utUseImplicitTLS;
 
 
  msg := TIdMessage.Create(Application);
  msg.CharSet := 'koi8-r';           //для корректности русских символов, иначе ???? ???????  ??????  ?????
  msg.Subject := 'ТЕМА ПИСЬМА';
  msg.From.Address := 'МОЯ ПОЧТА@mail.ru';
  msg.From.Name := 'ОТ КОГО';
  msg.Recipients.EMailAddresses := 'КОМУ@gmail.com';
  TIdAttachmentFile.Create('ПУТЬ ДО ВЛОЖЕНИЯ, ВКЛЮЧАЯ РАСШИРЕНИЕ');
  msg.Body.Text := 'ТЕЛО ПИСЬМА';
 
  SMTP.Connect;
  if SMTP.Connected then
    begin
      SMTP.Send(msg);
      ShowMessage ('Сообщение отправлено');
    end else
      ShowMessage ('Не удалось отправить сообщение');
  SMTP.Disconnect();
  SMTP.Free;
  msg.Free;
end;

Для строчки с вложением, в uses надо добавить IdAttachmentFile. Все работало на штатном XE7 без всяких движений с DLLками.

@pampirius · 28.04.2015, 18:34 **[ТС]**

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

SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil) ;
* SSLOpen.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
* SSLOpen.Host := SMTP.Host;
* SSLOpen.Port := SMTP.Port;
* SSLOpen.DefaultPort := 0;
* SSLOpen.SSLOptions.Method := sslvSSLv23;
* SSLOpen.SSLOptions.Mode := sslmUnassigned;

Что за SSLopen?

@FIL · 28.04.2015, 18:46

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

ругается на

На Дельфи 7 скорее всего работать не будет.
И этот вопрос в теме по приведенной мною ссылке обсуждается, но зачем читать, если можно просто скопипастить первое, что попалось)

@pampirius · 28.04.2015, 18:49 **[ТС]**

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

Сам на днях ковырял для отправки, вот 100% рабочий пример отправки текста+вложение, проверял отправкой с mail на gmail.

вроде как переделал под свой

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL,
  IdMessage;
 
type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket;
    IdMessage1: TIdMessage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
begin
  idSMTP1 := TIdSMTP.Create(Application);
  idSMTP1.Host := 'smtp.mail.ru';
  idSMTP1.Port := 465;
  idSMTP1.AuthenticationType := atNone;
  idSMTP1.Username := 'ÌÎß ÏÎ×ÒÀ@mail.ru';
  idSMTP1.Password := 'ÌÎÉ ÏÀÐÎËÜ ÎÒ ÏÎ×ÒÛ';
 
  //ýòî íåîáõîäèìî èñïîëüçîâàòü äëÿ SSL
  IdSSLIOHandlerSocket1 := IdSSLIOHandlerSocket1.Create(nil);
 
 
 
 
  IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23;
  IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmUnassigned;
 
  idSMTP1.IOHandler := IdSSLIOHandlerSocket1;
 
 
 
  IdMessage1 := TIdMessage.Create(Application);
  IdMessage1.CharSet := 'koi8-r';           //äëÿ êîððåêòíîñòè ðóññêèõ ñèìâîëîâ, èíà÷å ???? ???????  ??????  ?????
  IdMessage1.Subject := 'ÒÅÌÀ ÏÈÑÜÌÀ';
  IdMessage1.From.Address := 'ÌÎß ÏÎ×ÒÀ@mail.ru';
  IdMessage1.From.Name := 'ÎÒ ÊÎÃÎ';
  IdMessage1.Recipients.EMailAddresses := 'ÊÎÌÓ@gmail.com';
 
  IdMessage1.Body.Text := 'ÒÅËÎ ÏÈÑÜÌÀ';
 
  idSMTP1.Connect;
  if idSMTP1.Connected then
    begin
      idSMTP1.Send(IdMessage1);
      ShowMessage ('Ñîîáùåíèå îòïðàâëåíî');
    end else
      ShowMessage ('Íå óäàëîñü îòïðàâèòü ñîîáùåíèå');
  idSMTP1.Disconnect();
  idSMTP1.Free;
  IdMessage1.Free;
end;
end;
 
end.

в итоге

Название: ошибка3.png
Просмотров: 49

Размер: 14.1 Кб

@adkomissarov · 29.04.2015, 08:42

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

в итоге

Может в разных версия RADов разный набор библиотек. Или разные версии. Я на XE 7 проверял.

@pampirius · 29.04.2015, 11:29 **[ТС]**

Всем большое спасибо что уделили мне время! В итоге понял что надо обновить инди

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	28.04.2015, 15:56
	Так там же английским по белому написано, что почтовики теперь работают через SSL. На форуме есть рабочие примеры - пользуемся поиском. 0

@NIKOLAYY 844 / 739 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	28.04.2015, 17:59
	как так почему оно так получается то! неуж-то ошибка в этом коде или ошиббка в делфи? Миниатюры 0

@NIKOLAYY 844 / 739 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	28.04.2015, 18:09
	pampirius, ты бы вобще сначала версию делфи и версию инди назавал бы свою. чтоб дальше можно было тему развивать, Как бы от этого и все и зависит, от этого и надо плясать. 0

@pampirius 1 / 1 / 1 Регистрация: 11.12.2013 Сообщений: 59
	29.04.2015, 11:29 [ТС]
	Всем большое спасибо что уделили мне время! В итоге понял что надо обновить инди 0