Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 607

/ вопрос решён /

Доброго времени суток, уважаемые эксперты!
Для отправки сообщения использую IdSMTP (Версия Indy 10.5.9.0)
Тема письма от кого и текст приходят в кракозяблах (тема текст и письмо на украинском языке).

Приложение:
  1. rocedure Tform1.SentMail(mes:Temailrecord);
  2. var i,colmail:integer;
  3. msg:TIdMessage;
  4. emailaddress:string;
  5. begin
  6. if ((mes.emailkid<>'') and (mes.emailparetts<>'')) then emailaddress:= mes.emailkid +', '+mes.emailparetts
  7. else emailaddress:= mes.emailkid+mes.emailparetts;
  8. if emailaddress<>'' then
  9. begin
  10. { // try
  11. //IdSMTP1.AuthType:=satDefault; }
  12. colmail:=ini.ReadInteger('mailSettings','emailcount',50);
  13. i:= emailcount div colmail + 1;
  14. {
  15. IdSMTP1.Host:='ssl://smtp.mail.ru'; //ini.ReadString('mailSettings','smtp'+inttostr(i),'smtp.mail.ru');
  16. IdSMTP1.Port:=465; // ini.ReadInteger('mailSettings','smtp'+inttostr(i),465);
  17.  
  18. msg:=TIdMessage.Create(nil);
  19. msg.ContentType:='text/html';
  20. msg.CharSet:='windows-1251';
  21.  
  22.  
  23. msg.Body:=mes.emailtext;
  24. msg.Recipients.EMailAddresses:=emailaddress;
  25. //msg.IsEncoded:=True;
  26. {
  27.  
  28.  
  29. except
  30. on e:Exception do
  31. try }
  32.  
  33. msg:=TIdMessage.Create(nil);
  34. Msg.ContentType:='text/html; charset=UTF-8;';
  35.  
  36. msg.From.Address:=ini.ReadString('Mail','login'+inttostr(i),'sruru@mail.ru'); //}
  37.  
  38.  
  39.  
  40. msg.Recipients.EMailAddresses:=emailaddress;
  41. msg.Body.Text:=mes.emailtext.Text;
  42. //msg.ContentType:='text/html;charset-windows-1251';
  43. msg.IsEncoded:=True;
  44.  
  45. //}
  46. IdSMTP.Host:=ini.ReadString('mailSettings','smtp'+inttostr(i),'smtp.mail.ru');
  47. IdSMTP.Port:=ini.ReadInteger('mailSettings','smtp'+inttostr(i),465);
  48. IdSMTP.Username:=ini.ReadString('Mail','login'+inttostr(i),'sruru@mail.ru');
  49. IdSMTP.Password:=ini.ReadString('Mail','password'+inttostr(i),'Ckfdf!');
  50. IdSMTP.AuthType:=satDefault;
  51.  
  52. IdSSLIOHandlerSocketOpenSSL.Destination := IdSMTP.Host+':'+IntToStr(IdSMTP.Port);
  53. IdSSLIOHandlerSocketOpenSSL.Host := IdSMTP.Host;
  54. IdSSLIOHandlerSocketOpenSSL.Port := IdSMTP.Port;
  55. IdSSLIOHandlerSocketOpenSSL.DefaultPort := 0;
  56. IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvTLSv1;
  57. IdSMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
  58. idSMTP.UseTLS := utUseImplicitTLS;
  59.  
  60. try
  61.  
  62. IdSMTP.Connect;
  63. except
  64.  
  65.  
  66.  
  67. exit;
  68. end;
  69.  
  70.  
  71. IdSMTP.Send(msg);
  72.  
  73.  
  74. Application.ProcessMessages;
  75. idSMTP.Disconnect;
  76. {except
  77. on e:Exception do
  78. begin
  79. msg.Free;
  80. IdSMTP1.Disconnect;
  81. inc(emailcount);
  82. end;
  83. end;
  84. end; }
  85. end;
  86. end;


Примечание #1 (19 декабря 2015, 13:29):
delphi xe3

seryoga Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: seryoga (статус: 1-ый класс)
Вопрос отправлен: 19 декабря 2015, 13:16
Состояние вопроса: решён, ответов: 0.


Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 19 декабря 2015, 17:52; участников в обсуждении: 2.
DNK

DNK (статус: Студент), 19 декабря 2015, 13:29 [#1]:

Погода стояла прекрасная, приложение к вопросу было ужасное!
"Digital Networked Knight"
seryoga

seryoga (статус: 1-ый класс), 19 декабря 2015, 13:32 [#2]:

фрагмент кода
seryoga

seryoga (статус: 1-ый класс), 19 декабря 2015, 15:42 [#3]:

Так тоже не получается
seryoga

seryoga (статус: 1-ый класс), 19 декабря 2015, 17:52 [#4]:

А ларчик открывался просто

19 декабря 2015, 17:53: Статус вопроса изменён на решённый (изменил автор вопроса — seryoga)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 21 марта 2023, 08:27
Выполнено за 0.02 сек.
Рейтинг@Mail.ru