Форум программистов, компьютерный форум, киберфорум
Delphi: Сети
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
 Аватар для Алексей_2012
0 / 0 / 1
Регистрация: 26.04.2014
Сообщений: 134

Не отправляется текст из TStringList'a на почту

28.07.2014, 17:32. Показов 1993. Ответов 24
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, у меня такой к Вам вопрос, написал программу, которая по кнопке должна отправить текст из Tstringlist'a на почту, указанную мной в программном коде, все отлично работает до строчки

Code
1
   IdSMTP1.Connect; // соединение с почтовым сервером
Пинговал яндекс, потерь пакетов нет, все отлично работает, пинговал ip-адрес, указанный в коде, выставлял разные порты (587, 25,...)


все без толку, вот полный код программы.

Code
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
var
  IdMessage1: TIdMessage;
begin    
  with TStringlist.Create do
  try
    form1.Position := poScreenCenter;
    IdMessage1 := TIdMessage.Create(self);
    Text := 'какой-то '+chr(13)+'текст';
    Add('Файл отправлен в: ' + timetostr(time));
    IdSMTP1.Host := '93.158.134.11'; // адрес почтового сервера
    IdSMTP1.Port := 25; // порт по которому будет осуществляться подключение       //
    IdSMTP1.AuthenticationType := atnone; // тип подключения к серверу - без авторизации
    IdMessage1.Recipients.EMailAddresses := 'ip-man2013@yandex.ru'; // майл получателя письма
    IdMessage1.Subject := 'HeLo!!'; // тема письма
    IdMessage1.Body.Text := Text; // передача данных в компонент IdMessage, для последующей отправки
    IdSMTP1.Connect; // соединение с почтовым сервером
    if idSMTP1.Connected then
      idSMTP1.Send(IdMessage1);
    idSMTP1.Disconnect();
 
  finally
    Free;
    FreeAndNil(IdMessage1);
  end;
end;
В чем может быть проблема?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
28.07.2014, 17:32
Ответы с готовыми решениями:

Не отправляется IP на почту
Кусок кода: WebClient wc = new WebClient(); string mr = "login@yandex.ru"; string value =...

Не отправляется письмо на почту
Всем привет! Написал калькулятор расчета стоимости выбранного продукта. скрипт оформил в модуль для joomla 1.5 Теперь нужно отправлять...

Не отправляется письмо на почту
Здравствуйте столкнулся с такой проблемой как обратная связь на сайте. Проблема в том что письмо не приходит на почту. Вот код ...

24
 Аватар для Алексей_2012
0 / 0 / 1
Регистрация: 26.04.2014
Сообщений: 134
26.08.2014, 18:33  [ТС]
Студворк — интернет-сервис помощи студентам
Делфи 7 lite компилирует под 650 кв, но там инди глючные, а как в release компилировать в 2010? Вообще хотел собрать проект без формы, под консоль
0
0 / 0 / 1
Регистрация: 18.06.2014
Сообщений: 13
26.08.2014, 20:42
вверху справа вот такое окошечко:
HTML5
1
http://***********/fp/c10e8b5d0d57420182da9daa4c770174
Добавлено через 14 минут
а, не знаю я как ссылку на изображение вставить, в общем вверху справа у тебя окошко ProjectManager, в нем название твоего проекта и настройки - build configuration(вот это дебаг или релиз), target platform(под какую платформу компилировать, х32, х64, в новых версиях mac os, ios, ведро) и какие модули подключены в проект.
0
Эксперт Pascal/Delphi
 Аватар для droider
4891 / 2824 / 866
Регистрация: 04.10.2012
Сообщений: 10,269
26.08.2014, 20:58
Цитата Сообщение от Алексей_2012 Посмотреть сообщение
как в release компилировать
Выбрать тут. ПКМ->Контекстное меню->"Active".
Миниатюры
Не отправляется текст из TStringList'a на почту  
0
Эксперт Pascal/Delphi
 Аватар для droider
4891 / 2824 / 866
Регистрация: 04.10.2012
Сообщений: 10,269
26.08.2014, 21:03
Цитата Сообщение от Алексей_2012 Посмотреть сообщение
Делфи 7 lite
не пользуйтесь этим самопальным хламом

Добавлено через 3 минуты
Цитата Сообщение от Pauk666 Посмотреть сообщение
не знаю я как ссылку на изображение вставить
Как раз ссылку не надо. Чтобы прикрепить сам файл (любой из поддерживаемых) к сообщению, перейдите в расширенный режим редактора, и нажмите значок скрепки на панели инструментов. Выберите файл и грузите на форум.
Это на будущее.
0
 Аватар для Алексей_2012
0 / 0 / 1
Регистрация: 26.04.2014
Сообщений: 134
30.08.2014, 15:50  [ТС]
Выбрать тут. ПКМ->Контекстное меню->"Active".
актив неактивен почему-то((

вернее компилирую проект в режиме release, а вес исходного файла как при дебаге, консольное приложение собирал-не работает, в общем копаю далее пока
Миниатюры
Не отправляется текст из TStringList'a на почту  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
30.08.2014, 15:50
Помогаю со студенческими работами здесь

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

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

Не отправляется на почту письмо
Доброго времени суток господа. Такая проблема. Не отправляется на почту письмо. Выдаёт ошибку using System; using...

Не отправляется сообщение на почту
Здравствуйте! На странице html есть простая форма <form class="contact_form" name="mail" method="post"...

Не отправляется письмо на почту
Здравствуйте. Помогите пожалуйста. Есть форма восстановления пароля по e-mail: <?php include_once('include/config.php');?> ...


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

Или воспользуйтесь поиском по форуму:
25
Ответ Создать тему
Новые блоги и статьи
Нейросеть на алгоритме "эстафета хвоста" как перспектива.
Hrethgir 06.05.2026
На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта
Argus19 01.05.2026
Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++
pyirrlicht 29.04.2026
попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита
Maks 28.04.2026
Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание
Maks 24.04.2026
У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью
Maks 22.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru