[Андрей Олегович]

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

Код:

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 31 32

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;

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