Attachment и его кодировка

15.06.2011, 14:35. **Показов** 1551. **Ответов** 0

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

Доброго времени суток, уважаемые программисты!
Столкнулся с проблемой:
При отправки имейл и присоеденении файла меняется кодировка!
Т.е. Если я отправляю мейл без атача, письмо доходит, и читабельно.
Если присоеденяю файл то текст сообщение будто "Теряет" кодировку, и приходят "кракозябры".
Также изменяется имя файла на нечитабельное.
Но мейл доходит вместе с атачем.
с английскими буквами все нормально, проблема в русской кодировке

Код

IDSMTP1.Host:='хост.kz';
IDSMTP1.Port:=25;
IDSMTP1.Username:='отправитель'; 
IDSMTP1.Password:='пароль';
IdSMTP1.AuthenticationType:=atLogin; 
TidAttachment.Create(IdMessage1.MessageParts,'имя файла.xls');
IdMessage1.CharSet:='windows-1251';
IdMessage1.ContentType:='text/plain';


with IdMessage1 do begin
      Body.text:=memo1.text;
      CharSet:='windows-1251';
      ContentType:='text/plain';



From.Text := 'откого'; 
Recipients.EMailAddresses := memo2.Lines[per]; // номер строки кому
Subject:=edit3.Text; //тема


//IdMessage1.AttachmentEncoding:='TEXT';   // тут ругается, если убрать коменты, и точно не знаю как правильно присвоить значение

 CharSet:='windows-1251';
      ContentType:='text/plain';// в сотый раз пытался изменить кодировку

end;
idsmtp1.Connect();
if idsmtp1.connected then
idsmtp1.Send(idmessage1);
idsmtp1.disconnect;

Заранее спасибо!
П.С. Форум перечитывал, Гугл Гуглил!

Добавлено через 22 часа 52 минуты
Сможет кто нибудь помочь?

Андрей Олегович
		1
	Attachment и его кодировка 15.06.2011, 14:35. Показов 1551. Ответов 0 Метки нет (Все метки) Доброго времени суток, уважаемые программисты! Столкнулся с проблемой: При отправки имейл и присоеденении файла меняется кодировка! Т.е. Если я отправляю мейл без атача, письмо доходит, и читабельно. Если присоеденяю файл то текст сообщение будто "Теряет" кодировку, и приходят "кракозябры". Также изменяется имя файла на нечитабельное. Но мейл доходит вместе с атачем. с английскими буквами все нормально, проблема в русской кодировке Код IDSMTP1.Host:='хост.kz'; IDSMTP1.Port:=25; IDSMTP1.Username:='отправитель'; IDSMTP1.Password:='пароль'; IdSMTP1.AuthenticationType:=atLogin; TidAttachment.Create(IdMessage1.MessageParts,'имя файла.xls'); IdMessage1.CharSet:='windows-1251'; IdMessage1.ContentType:='text/plain'; with IdMessage1 do begin Body.text:=memo1.text; CharSet:='windows-1251'; ContentType:='text/plain'; From.Text := 'откого'; Recipients.EMailAddresses := memo2.Lines[per]; // номер строки кому Subject:=edit3.Text; //тема //IdMessage1.AttachmentEncoding:='TEXT'; // тут ругается, если убрать коменты, и точно не знаю как правильно присвоить значение CharSet:='windows-1251'; ContentType:='text/plain';// в сотый раз пытался изменить кодировку end; idsmtp1.Connect(); if idsmtp1.connected then idsmtp1.Send(idmessage1); idsmtp1.disconnect; Заранее спасибо! П.С. Форум перечитывал, Гугл Гуглил! Добавлено через 22 часа 52 минуты Сможет кто нибудь помочь?

	15.06.2011, 14:35