Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi и сети

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 8, средняя оценка - 4.63
NotBeginner
158 / 158 / 20
Регистрация: 22.02.2013
Сообщений: 2,852
Записей в блоге: 2
#1

Не отправляется письмо - Delphi

18.12.2013, 09:07. Просмотров 1241. Ответов 16
Метки нет (Все метки)

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
 // установка SMTP
 SMTP.Host:= 'pop.mail.ru';
 SMTP.Port:=110;
 // установка сообщения
 
 Smtp.Username:='sawa@mail.ru';
 Smtp.Password:='123456';
  Smtp.AuthenticationType:=atLogin; // atNone
 Smtp.ASCIIFilter:=true;
 MailMessage.From.Text:='sawa@mail.ru';
 MailMessage.Subject:='Тема'; // тема
 MailMessage.From.Address:='sawa@mail.ru'; // адрес отправителя
 MailMessage.Recipients.EMailAddresses:='andrey@mail.ru';
 MailMessage.Body.Text:=Memo2.Text; // текст сообщения
 
 try
  try
   SMTP.Connect;
   SMTP.Send(MailMessage);
   ShowMessage('Письмо отправлено!');
  except on E:Exception do
   begin
    ShowMessage('Статус отправки: ERROR - '+E.Message +#10#9 + 'Письмо не отправленно');
   end;
  end;
 finally
  if SMTP.Connected
  then SMTP.Disconnect;
 end;
появляется сообщение - Статус отправки: ERROR -Письмо не отправленно

Добавлено через 8 часов 49 минут
UP!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2013, 09:07
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Не отправляется письмо (Delphi):

Письмо отправляется но без текста! - Delphi
Всем привет! Вообщем проблема состоит в том что сообщение на почту приходит, но без текста! Хотя текст присутствует, его в сообщении...

Не отправляется письмо: Connection Closed Grasefully - Delphi
Как сделать так, чтобы сервер не сбрасывал соединение?( procedure TForm1.FormCreate(Sender: TObject); begin IdMessage1...

Отправка почты в Delphi. Ошибок нет, но письмо не отправляется - Delphi
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, ...

Не отправляется почта - Delphi
вот код, Synapse подключен, файлы libeay32.dll и ssleay32.dll лежат в папке рядом с exe, подскажите в чем проблема, никаких ошибок нет,...

Synapse не отправляется Get запрос - Delphi
Не могу понять почему так, не отправляется Get запрос. Вот код procedure TForm2.sButton1Click(Sender: TObject); var HTTP:...

Не отправляется e-mail из программы Delphi7 - Delphi
Есть программа,в которой при нажатии на кнопку должно отправляться письмо. Но отправка не происходит + если нажать на кнопку нельзя закрыть...

16
droider
Delphist, DataBase Dev
4163 / 2247 / 455
Регистрация: 04.10.2012
Сообщений: 8,073
18.12.2013, 09:23 #2
Цитата Сообщение от NotBeginner Посмотреть сообщение
// установка SMTP
*SMTP.Host:= 'pop.mail.ru';
*SMTP.Port:=110;
C каких пор POP стал протоколом отправки сообщений?

Delphi
1
2
3
// установка SMTP
 SMTP.Host:= 'smtp.mail.ru'; //<---это smtp
 SMTP.Port:=25; // корректный порт
1
NotBeginner
158 / 158 / 20
Регистрация: 22.02.2013
Сообщений: 2,852
Записей в блоге: 2
18.12.2013, 09:29  [ТС] #3
спасибо. глаза замылились наверно) не знаю как такое написал)
0
Razdolbait
25 / 25 / 10
Регистрация: 18.09.2014
Сообщений: 201
14.09.2016, 08:34 #4
Сорри за некропостинг но пример не работает.
Ошибка: First chance exception at $7690C41F. Exception class EIdSMTPReplyError with message
'SMTP is available only with SSL or TLS connection enabled.'.

Код сильно не трогал, только изменил адреса. Но если вдруг где накосячил - код:
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
    idSMTP1.Host:= 'smtp.mail.ru'; 
    idSMTP1.Port:=25; 
 
    // установка сообщения
    idSMTP1.Username:='******@mail.ru';
    idSMTP1.Password:='********';
    idMessage1.From.Text:='******@mail.ru';
    idMessage1.Subject:='Тема'; 
    idMessage1.From.Address:='******@mail.ru'; // адрес отправителя
    idMessage1.Recipients.EMailAddresses:='*******@mail.ru';
    idMessage1.Body.Text:='test'; // текст сообщения
 
    try
      try
       idSMTP1.Connect;
       idSMTP1.Send(idMessage1);
       ShowMessage('Письмо отправлено!');
      except on E:Exception do
        begin
        ShowMessage('Статус отправки: ERROR - '+E.Message +#10#9 + 'Письмо не отправленно');
        end;
      end;
    finally
      if idSMTP1.Connected
      then idSMTP1.Disconnect;
    end;
Подскажите как исправить?
0
qwertehok
1587 / 1578 / 334
Регистрация: 29.08.2013
Сообщений: 10,557
14.09.2016, 08:50 #5
Цитата Сообщение от Razdolbait Посмотреть сообщение
Подскажите как исправить?
ошибку перевести
0
droider
Delphist, DataBase Dev
4163 / 2247 / 455
Регистрация: 04.10.2012
Сообщений: 8,073
14.09.2016, 08:53 #6
Цитата Сообщение от Razdolbait Посмотреть сообщение
Подскажите как исправить?
см. сюда Не отправляется e-mail. То же касается Mail.ru + код отправки (для новых версий).
0
Razdolbait
25 / 25 / 10
Регистрация: 18.09.2014
Сообщений: 201
14.09.2016, 09:11 #7
qwertehok, сделал это в первую очередь.
С помощью гугла нашел несколько вариантов решения. Но это топики за 2009-2014 годы. Подозреваю что они уже в принципе не работают, а не только у меня. Некоторые не подходят. Максимум до чего дорыл - понадобились библиотеки openssl. Перепробовал много вариантов но без толку. Поэтому и создал тему в надежде что кто-нибудь даст рабочий пример, а не будет на переводчик посылать)

Добавлено через 5 минут
Цитата Сообщение от droider Посмотреть сообщение
см. сюда Не отправляется e-mail.
Цитата Сообщение от Razdolbait Посмотреть сообщение
Максимум до чего дорыл - понадобились библиотеки openssl. Перепробовал много вариантов но без толку.
Цитата Сообщение от droider Посмотреть сообщение
То же касается Mail.ru + код отправки (для новых версий).
Пример практически не отличается. Так же пробовал различные порты
0
droider
Delphist, DataBase Dev
4163 / 2247 / 455
Регистрация: 04.10.2012
Сообщений: 8,073
14.09.2016, 09:14 #8
Razdolbait, значит, что-то выделаете не так. У меня всё работает. Какая версия среды? Приложите проект сюда, исправим.

Добавлено через 41 секунду
Просьба указать реальные учетные данные. Пароль после можете сменить.
0
qwertehok
1587 / 1578 / 334
Регистрация: 29.08.2013
Сообщений: 10,557
14.09.2016, 09:22 #9
Цитата Сообщение от Razdolbait Посмотреть сообщение
Максимум до чего дорыл - понадобились библиотеки openssl. Перепробовал много вариантов но без толку.
почитайте подробнее про SSL
0
Razdolbait
25 / 25 / 10
Регистрация: 18.09.2014
Сообщений: 201
14.09.2016, 09:28 #10
droider, версия XE8
в проекте удалил только exe. Библиотеки оставил. Яшик реальный
0
Вложения
Тип файла: rar Тест.rar (624.8 Кб, 4 просмотров)
droider
Delphist, DataBase Dev
4163 / 2247 / 455
Регистрация: 04.10.2012
Сообщений: 8,073
14.09.2016, 09:34 #11
Сейчас посмотрю. Отпишусь.
0
Razdolbait
25 / 25 / 10
Регистрация: 18.09.2014
Сообщений: 201
14.09.2016, 09:42 #12
qwertehok, почитал немного. Суть проблемы не в том что мне нужно написать прогу для почты. Есть удаленный объект, на котором используется моя прога. Инет там слабый - удаленка не прокатит. Хочу чтобы в случае чего оператор мог отправить лог в пару сотен кб. Так что нужно стабильное решение чтобы не нужно было каждые пару месяцев искать новые библиотеки или изобретать другие костыли
0
qwertehok
1587 / 1578 / 334
Регистрация: 29.08.2013
Сообщений: 10,557
14.09.2016, 09:44 #13
блин, да включите мозг и добавьте SSL компонент на форму!!!!!

Цитата Сообщение от Razdolbait Посмотреть сообщение
чтобы не нужно было каждые пару месяцев искать новые библиотеки
даже из D7 можно отправлять почту, а вы "искать новые библиотеки"
0
droider
Delphist, DataBase Dev
4163 / 2247 / 455
Регистрация: 04.10.2012
Сообщений: 8,073
14.09.2016, 16:01 #14
Razdolbait, не было времени взглянуть. Посмотрел Ваш проект. Исправлено:
1. Заменил dll библиотеки,
2. изменил тип авторизации.
Тестировал на XE3.
1
Миниатюры
Не отправляется письмо  
Вложения
Тип файла: 7z Тест-коррект.7z (2.82 Мб, 134 просмотров)
droider
14.09.2016, 16:03     Не отправляется письмо
  #15

Не по теме:

Видел новость, что Embarcadero в 2016-м году отказалась от поддержки SSL (с XE8). Возможно фейк.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.09.2016, 16:03
Привет! Вот еще темы с ответами:

Не отправляется e-mail (smtp.gmail.com) - Delphi
Привет всем доброго времени суток мне нужна помощь хочу отправить мило через делфи использую етот код procedure...

Отправляется GET запрос(а надо POST) - Delphi
Тут отправляется GET запрос с моей программы Тут отправляется POST запрос с другой программы не моей Как сделать чтоб в...

Долго отправляется get запрос synapse - Delphi
Всем привет, я решил сделать для себя клиент instagram, но столкнулся с проблемой, что запрос очень долго идёт, и хоть он отправляется, но...

Не отправляется запрос Delphi (indy) - Delphi
Здравствуйте. Уже не первый день немогу понять в чем ошибка. Если беру готовый запрос(get) и вставляю его в браузер, то все проходит...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru