Почтовый клиент

@hennessy7219 · Регистрация: 06.06.2016

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

Ребята помогите , у кого есть исходник почтового клиента самого простого или помогите с этим :

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
begin
 POP3.Host:='pop.gmail.com';
 POP3.Port:=995;          
 POP3.Username:='test+58r.ru'; 
 POP3.Password:='12345666';  
 IdMessage.Clear; 
 POP3.Connect; 
 Memo1.Clear;   
 POP3.Retrieve(1,IdMessage);  
 Memo1.Lines.AddStrings(IdMessage.Body); 
 POP3.Delete(1); 
 POP3.Disconnect;  
end;
 
procedure TForm1.Button2Click(Sender: TObject);
label f;
var
mailcicl:integer;  
addr:string;  
begin
 POP3.Host:='pop.gmail.com'; 
 POP3.Port:=995;           
 POP3.Username:='test+58r.ru'; 
 POP3.Password:='12345666';   
 addr:=ExtractFilePath(Application.ExeName); 
 POP3.Connect; //  подключение к серверу
 for mailcicl:=1 to 10 do 
 begin
 if POP3.CheckMessages<1 then goto f ; 
 IdMessage.Clear;   
 Memo1.Clear;   
 POP3.Retrieve(1,IdMessage); 
 Memo1.Lines.AddStrings(IdMessage.Body);
 Memo1.Lines.SaveToFile(addr+inttostr(mailcicl)+'.txt');
 POP3.Delete(mailcicl);
 end;
f:      //    метка выхода из цикла
POP3.Disconnect;  //  разрыв соединения с сервером
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
 i,numPosts: Integer;
 begin
 POP3.Host:='pop.gmail.com'; 
 POP3.Port:= 995;            
POP3.Username:='test+58r.ru';
 POP3.Password:='12345666';   
 IdMessage.Clear; 
 POP3.Connect; 
 Memo1.Clear;  
 POP3.Retrieve(1,IdMessage);  
 Memo1.Lines.AddStrings(IdMessage.Body); 
 
 .
 Label1.Caption := IdMessage.From.Text;
 Label2.Caption := IdMessage.Recipients.EmailAddresses;
 Label3.Caption := IdMessage.CCList.EMailAddresses;
 Label4.Caption := IdMessage.Subject;
 Label5.Caption := FormatDateTime('dd mmm yyyy hh:mm:ss', IdMessage.Date);
 Label6.Caption := IdMessage.ReceiptRecipient.Text;
 Label7.Caption := IdMessage.Organization;
 
 POP3.Delete(1); 
 POP3.Disconnect;   
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  SMTP.Host:='gmail.com';
  SMTP.Port:=465;    
  SMTP.Username:='test+58r.ru'; 
  SMTP.Password:='12345666';     
  SMTP.AuthenticationType:=atLogin;
 with IdMessage do
     begin
      Body.Assign(Memo1.Lines);
      From.Text := 'test@58r.ru';
      Recipients.EMailAddresses := 'test@58r.ru';
      Subject := 'Programmersclub.ru';
 
      end;
 
 
   SMTP.Connect;
   try
  showmessage('подключился');
  SMTP.Send(IdMessage);
   finally
      SMTP.Disconnect;
   end;
end;
 
end.

Не может подключится к почте, помогите пожалуйста буду очень признателен .

@garms · 10.06.2019, 23:40

Ребят поделитесь Рабочим клиентам все облазила. нигде нет рабочего! может плоха искала) но уже четвертые сутки пошли а так и не смогла найти. Хочу сделать для себя! А свежего не чего нет. Пробовала парочку но они тоже не рабочие. А может у меня руки кривые. И не смогла подправить их (((

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .