Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
Popcornrus
0 / 0 / 0
Регистрация: 07.09.2016
Сообщений: 36
#1

Письмо отправляется но без текста!

19.09.2016, 22:18. Просмотров 261. Ответов 4
Метки нет (Все метки)

Всем привет!
Вообщем проблема состоит в том что сообщение на почту приходит, но без текста!
Хотя текст присутствует, его в сообщении нету
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
procedure TForm1.FormCreate(Sender: TObject);
begin
  with idSmtp1 do begin
Host:= 'smtp.yandex.ru';
Port:=25;
Username:='login';
Password:='parol';
AuthType :=satDefault;
end;
with idMessage1 do begin
Subject:='Test';
From.Address:='test@yandex.ru';
Recipients.EMailAddresses:='test@yandex.ru';
Body.Text:=Memo1.Text;
end;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
try
  try
   idSmtp1.Connect;
   idSmtp1.Send(idMessage1);
  except on E:Exception do
  end;
 finally
  if idSmtp1.Connected
  then idSmtp1.Disconnect;
 end;
end;

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.09.2016, 22:18
Ответы с готовыми решениями:

Не отправляется письмо
// установка SMTP SMTP.Host:= 'pop.mail.ru'; SMTP.Port:=110; // установка...

Не отправляется письмо: Connection Closed Grasefully
Как сделать так, чтобы сервер не сбрасывал соединение?( procedure...

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

Не отправляется письмо
Не отправляется письмо на почту. Открыл более 10 примеров (даже на этом сайте)...

Не отправляется письмо
на сайт установил форму обратной связи на ajaks <form action="" method="get"...

4
AllFree
Заблокирован
20.09.2016, 00:13 #2
У Инди издревле проблемы с кодировками, возможно, дело в этом.
0
droider
Universal
Эксперт Pascal/Delphi
4389 / 2437 / 763
Регистрация: 04.10.2012
Сообщений: 8,871
20.09.2016, 12:29 #3
Если я Вам дал готовый рабочий код, неужели неинтересно самому разобраться в чем "затык" на Вашей стороне?

В новых версиях кодировка задается так
Delphi
1
idMessage1.CharSet :='koi8-r'; //для корректного отображения кириллицы
я писал это. Смотрите, что касается 7-ки в этом направлении.
0
Popcornrus
0 / 0 / 0
Регистрация: 07.09.2016
Сообщений: 36
20.09.2016, 15:28  [ТС] #4
Я нашел ошибку
Я просто прописал Текст письма в FormCreate!
А текст memo1 был пуст при создании, но исправил! Переместил idMessage1.Body.Text в Button1! С параметрами и все заработало
0
droider
Universal
Эксперт Pascal/Delphi
4389 / 2437 / 763
Регистрация: 04.10.2012
Сообщений: 8,871
20.09.2016, 15:30 #5
Цитата Сообщение от Popcornrus Посмотреть сообщение
Я нашел ошибку
молодец. Видимо, Вы не посмотрели сразу мой архив с исходниками, а надо было начать с него
0
20.09.2016, 15:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.09.2016, 15:30

Не отправляется письмо
Здравствуйте, программисты! Я отправляю письмо со своего сервера (Denwer)...

Не отправляется письмо
При отправке письма вылазит следующая ошибка Исключение типа...

Не отправляется письмо
День добрый. есть такой код: if (isset($_POST)) { mail("adr@inbox.ru",...


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

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

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