0 / 0 / 0
Регистрация: 06.06.2016
Сообщений: 68

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

15.04.2018, 23:41. Показов 5782. Ответов 20
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребята помогите , у кого есть исходник почтового клиента самого простого или помогите с этим :
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.



Не может подключится к почте, помогите пожалуйста буду очень признателен .
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
15.04.2018, 23:41
Ответы с готовыми решениями:

почтовый клиент
пишу почтовый клиент. для почты с google нужно использовать ssl шифрование как им правильно пользоваться? кинул на форму IdIMAP4 и...

Почтовый клиент с нуля
Я только начала учить и осваивать язык программирования. Не знаю почему, но хочу начать с Delphi. И решила создать почтовый клиент....

Почтовый клиент с отправкой файлов на почту. Ошибка: Undeclared identifier
Привет ребят. Помогите пожалуйста. Пишу почтовый клиент с отправкой файлов на почту. Но при компиляции выдаёт ошибку. ...

20
Житель Земли
 Аватар для DenNik
3004 / 3026 / 390
Регистрация: 26.07.2011
Сообщений: 11,465
Записей в блоге: 1
16.04.2018, 11:16
Цитата Сообщение от hennessy7219 Посмотреть сообщение
f: // метка выхода из цикла
тихий ужас.
надо понимать, о процедурах Break и Continue ты не имеешь понятия?
0
0 / 0 / 0
Регистрация: 06.06.2016
Сообщений: 68
16.04.2018, 16:32  [ТС]
я учусь вот и прошу помощи
0
Житель Земли
 Аватар для DenNik
3004 / 3026 / 390
Регистрация: 26.07.2011
Сообщений: 11,465
Записей в блоге: 1
16.04.2018, 16:37
Цитата Сообщение от hennessy7219 Посмотреть сообщение
я учусь
и это замечательно. только вот ни в одной из современных книг по Делфи не описывается выход из цикла оператором goto.
нужно по учебнику учиться, а не по ютубу

Добавлено через 3 минуты
тут даже break не нужен
Delphi
1
2
3
4
5
6
7
8
9
10
11
for mailcicl:=1 to 10 do 
if POP3.CheckMessages >= 1 then { если при CheckMessages менее 1 не нужно выполнять цикл,
следовательно, при остальных значениях тело цикла выполняется }
begin
  IdMessage.Clear;   
  Memo1.Clear;   
  POP3.Retrieve(1,IdMessage); 
  Memo1.Lines.AddStrings(IdMessage.Body);
  Memo1.Lines.SaveToFile(addr+inttostr(mailcicl)+'.txt');
  POP3.Delete(mailcicl);
end;
0
Эксперт Pascal/Delphi
 Аватар для droider
4888 / 2822 / 865
Регистрация: 04.10.2012
Сообщений: 10,264
16.04.2018, 20:52
Цитата Сообщение от hennessy7219 Посмотреть сообщение
у кого есть исходник почтового клиента
ой, как много их тут было. Поищите темы с моими постами по отправке/проверке почты - чего-нибудь интересного найдете.

Добавлено через 1 минуту
Этот вопрос так много поднимался, что мне лень самому приводить ссылки

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

Не по теме:

Цитата Сообщение от hennessy7219 Посмотреть сообщение
Delphi
1
if POP3.CheckMessages<1 then goto f ;
что вы творите, люди! Остановитесь!



Добавлено через 1 минуту
Цитата Сообщение от hennessy7219 Посмотреть сообщение
Не может подключится к почте
решайте вопрос с SSL подключением. Рабочие библиотеки я выкладывал.
0
16.04.2018, 22:34

Не по теме:

Цитата Сообщение от DenNik Посмотреть сообщение
нужно по учебнику учиться, а не по ютубу
я бы лучше сказал по справочнику)) из учебников кроме Санта Барбары почти ничего и нету))))

0
17.04.2018, 02:24

Не по теме:

Цитата Сообщение от Arcor Посмотреть сообщение
я бы лучше сказал по справочнику
А я бы уточнил бы. По встроенному хэлпу, если он есть.

0
17.04.2018, 12:40

Не по теме:

Цитата Сообщение от Arcor Посмотреть сообщение
я бы лучше сказал по справочнику
Цитата Сообщение от northener Посмотреть сообщение
По встроенному хэлпу, если он есть
и еще, в зависимости от возникшей ситуации. Не надо заучивать всё подряд, надо учиться на конкретной проблеме (ее решении/реализации).
hennessy7219, т.е. у Вас есть конкретная проблема - подключение к почтовому серверу Gmail. Изучите какие протоколы используются для доступа к нему, порты, тип авторизации и т.д. На SSL я уже указал выше.

Не надо пытаться решать задачу, исходя из одного вопроса типа "как написать суперпочтовый клиент?", надо разбить задачу на этапы проектирования и реализовывать каждый этап в отдельности, а на выходе - получить желаемое.

0
0 / 0 / 0
Регистрация: 06.06.2016
Сообщений: 68
15.05.2018, 17:09  [ТС]
Можете помочь ?
0
Эксперт Pascal/Delphi
 Аватар для droider
4888 / 2822 / 865
Регистрация: 04.10.2012
Сообщений: 10,264
15.05.2018, 17:31
Цитата Сообщение от hennessy7219 Посмотреть сообщение
Можете помочь ?
с чем ?
0
0 / 0 / 0
Регистрация: 06.06.2016
Сообщений: 68
15.05.2018, 17:41  [ТС]
Есть готовый почтовый клиент , долго и нудно писал , но не могу подключиться ни к какой почте , кто может взглянуть проверить что я наделал там не так
0
0 / 0 / 0
Регистрация: 06.06.2016
Сообщений: 68
15.05.2018, 17:43  [ТС]
Вот архив
Вложения
Тип файла: rar Mail_Client_RGR.rar (1.98 Мб, 81 просмотров)
0
Эксперт Pascal/Delphi
 Аватар для droider
4888 / 2822 / 865
Регистрация: 04.10.2012
Сообщений: 10,264
16.05.2018, 09:25
Цитата Сообщение от hennessy7219 Посмотреть сообщение
Есть готовый почтовый клиент
Цитата Сообщение от hennessy7219 Посмотреть сообщение
но не могу подключиться ни к какой почте
тогда это не "готовый почтовый клиент".

Проверка почты - яндекса
Не отправляется письмо
Не отправляется письмо -2
Библиотеки libeay32.dll ssleay32.dll
0
0 / 0 / 0
Регистрация: 06.06.2016
Сообщений: 68
16.05.2018, 15:07  [ТС]
indy 10 нужны для корректной работы программы из 1 ссылки ?

Добавлено через 52 секунды
Уже сума схожу с этим подключением к серверу и принятием почты ...
0
Эксперт Pascal/Delphi
 Аватар для droider
4888 / 2822 / 865
Регистрация: 04.10.2012
Сообщений: 10,264
16.05.2018, 15:24
Цитата Сообщение от hennessy7219 Посмотреть сообщение
indy 10
желательна, но Вы работайте и тестируйте на том, что есть у Вас.

Добавлено через 1 минуту
Я ж писал там автору темы по поводу
Цитата Сообщение от droider Посмотреть сообщение
Кому надо, будет копать дальше относительно Gmail
лично мне это не надо.

Добавлено через 54 секунды
Цитата Сообщение от hennessy7219 Посмотреть сообщение
Уже сума схожу
не нужно. Просто возьмите и работайте.

Добавлено через 1 минуту
Используйте SSl подключение. Я об этом писал Вам еще раньше
Цитата Сообщение от droider Посмотреть сообщение
решайте вопрос с SSL подключением. Рабочие библиотеки я выкладывал
ссылка на библиотеки выше.
0
Да так, от скуки захожу.
 Аватар для AlexSky-coder
145 / 124 / 44
Регистрация: 25.06.2017
Сообщений: 369
Записей в блоге: 6
17.05.2018, 08:34
Цитата Сообщение от hennessy7219 Посмотреть сообщение
но не могу подключиться ни к какой почте
Потому что в настройках нужно разрешить доступ к почтовому ящику с помощью почтовых клиентов.
И так везде сейчас.
Пример:
Миниатюры
Почтовый клиент  
0
Эксперт Pascal/Delphi
 Аватар для droider
4888 / 2822 / 865
Регистрация: 04.10.2012
Сообщений: 10,264
17.05.2018, 08:49
Цитата Сообщение от SkyLion27 Посмотреть сообщение
И так везде сейчас
На Mail и Yandex по умолчанию включен доступ по IMAP.
0
Да так, от скуки захожу.
 Аватар для AlexSky-coder
145 / 124 / 44
Регистрация: 25.06.2017
Сообщений: 369
Записей в блоге: 6
17.05.2018, 09:01
Цитата Сообщение от droider Посмотреть сообщение
На Mail и Yandex по умолчанию включен доступ по IMAP.
У него
Цитата Сообщение от hennessy7219 Посмотреть сообщение
SMTP.Host:='gmail.com';
Нужно ручками ему это сделать.

Добавлено через 57 секунд
Цитата Сообщение от SkyLion27 Посмотреть сообщение
И так везде сейчас.
Ну оговорился немного.
0
Эксперт Pascal/Delphi
 Аватар для droider
4888 / 2822 / 865
Регистрация: 04.10.2012
Сообщений: 10,264
17.05.2018, 09:09
SkyLion27, на Gmail, как я и писал раньше, свои заморочки. Я об этом указывал ТС выше (ссылка в теме). Он просто разбираться не хочет, а я за него тем более

Добавлено через 2 минуты
Цитата Сообщение от droider Посмотреть сообщение
P.S. что касается Cmail, то там свои заморочки (imap.gmail.com:993). Чтобы Ваше приложение могло получить доступ к почте, необходимо дать соответствующее разрешение "непроверенным приложениям" в настройках Вашего аккаунта Gmail. Здесь.
Также там есть ограничения на длину сообщения...
и т.д.
0
17.05.2018, 09:25

Не по теме:

:sorry:

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
17.05.2018, 09:25
Помогаю со студенческими работами здесь

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

Перевод чисел из арабских в почтовый индекс
Как сделать перевод из арабских в цифры как почтовый индекс

Перевод чисел из арабских в почтовый индекс
Помогите организовать перевод из арабских в цифры как почтовый индекс

Анти спам в почтовый клиент
Как реализовать анти спам на Delphi в почтовом клиенте который так же написан на Delphi соответственно?

Корпоративный почтовый сервис
привіт!!! порадьте мені будь-ласка з чого почати створення корпоративного поштового сервісу в делфі(тобто поштового сервісу лише для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

Новые блоги и статьи
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru