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

@Алексей_2012 · Регистрация: 26.04.2014

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

Здравствуйте, у меня такой к Вам вопрос, написал программу, которая по кнопке должна отправить текст из 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;

В чем может быть проблема?

@Алексей_2012 · 26.08.2014, 18:33 **[ТС]**

Делфи 7 lite компилирует под 650 кв, но там инди глючные, а как в release компилировать в 2010? Вообще хотел собрать проект без формы, под консоль

@Pauk666 · 26.08.2014, 20:42

вверху справа вот такое окошечко:

HTML5
1
http://***********/fp/c10e8b5d0d57420182da9daa4c770174

Добавлено через 14 минут
а, не знаю я как ссылку на изображение вставить, в общем вверху справа у тебя окошко ProjectManager, в нем название твоего проекта и настройки - build configuration(вот это дебаг или релиз), target platform(под какую платформу компилировать, х32, х64, в новых версиях mac os, ios, ведро) и какие модули подключены в проект.

@droider · 26.08.2014, 20:58

Сообщение от Алексей_2012

как в release компилировать

Выбрать тут. ПКМ->Контекстное меню->"Active".

@droider · 26.08.2014, 21:03

Сообщение от Алексей_2012

Делфи 7 lite

не пользуйтесь этим самопальным хламом

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

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

не знаю я как ссылку на изображение вставить

Как раз ссылку не надо. Чтобы прикрепить сам файл (любой из поддерживаемых) к сообщению, перейдите в расширенный режим редактора, и нажмите значок скрепки на панели инструментов. Выберите файл и грузите на форум.
Это на будущее.

@Алексей_2012 · 30.08.2014, 15:50 **[ТС]**

Выбрать тут. ПКМ->Контекстное меню->"Active".

актив неактивен почему-то((

вернее компилирую проект в режиме release, а вес исходного файла как при дебаге, консольное приложение собирал-не работает, в общем копаю далее пока

Новые блоги и статьи Все статьи Все блоги /
Нейросеть на алгоритме "эстафета хвоста" как перспектива. 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. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .

@Алексей_2012 0 / 0 / 1 Регистрация: 26.04.2014 Сообщений: 134
	26.08.2014, 18:33 [ТС]
	Делфи 7 lite компилирует под 650 кв, но там инди глючные, а как в release компилировать в 2010? Вообще хотел собрать проект без формы, под консоль 0