![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Отправка письма [D7, WinXP]
Zhekson © (2008-07-25 13:33:00)
begin
IdSMTP1.Host:='smtp.port.net';
IdSMTP1.Username:='amp@port.com';
IdSMTP1.Password:='*******';
IdSMTP1.Connect(60000);
//
IdMessage1.CharSet:='windows-1251';
IdMessage1.ContentTransferEncoding:='8bit';
IdMessage1.ContentType:='text/plain'; // Письмо в текстовом виде
IdMessage1.Subject:=AnsiToUTF8('Пересылка письма'); // Тема письма
IdMessage1.Recipients.EMailAddresses:='grig @mail.ru'; // EMail- Кому
IdMessage1.From.Name:=AnsiToUTF8('ОАО ГРИГ'); // От кого - будет в списке писем "от кого"
IdMessage1.From.Address:='amp@port.net'; // EMail-От кого;
IdMessage1.Body.Add(AnsiToUTF8('Пересылка письма удалась!'));
IdSMTP1.Send(IdMessage1);
if IdSMTP1.Connected then IdSMTP1.Disconnect;
Этот код позволяет отправить письмо, но кодировка не преобразовывается к нужному формату. Странно это ещё и потому, что примеры из хелпа так же не дают нужного результата.
Content-Type: text/plain; charset=windows-1251- так выглядит отрывок из заголовка письма, отправляемого почтовым клиентом.
Content-Type: text/plain;
charset="windows-1251"- а вот так после отправки при помощи этого кода.
Anatoly Podgoretsky (2008-07-28 22:52:00) [1]> Сергей М. (28.07.2008 21:48:06) [6]
И каждую неделю на 4 дюйма длиннее.
Сергей М. (2008-07-28 21:48:00) [2]
> какую длину он может отправить?
В среднем от 10 до 20 см.
Надуев Алексей (2008-07-28 12:15:00) [3]люди помогите разобраться,
IdMessage1.Subject:=AnsiToUTF8('Пересылка письма'); // Тема письма
какую длину он может отправить????
Anatoly Podgoretsky (2008-07-25 14:35:00) [4]> Zhekson (25.07.2008 13:33:00) [0]
Почтовый клиет посылает с нарушением, а вот IDSMTP оформляет заголовок верно, а вот ты занимаешься дурдомом, обманом, пишешь что в заголовоке, что текст у тебя 1251, но в сообщение пихаешь совсем другое.
Медвежонок Пятачок (2008-07-25 13:53:00) [5]а нахрена говорить в заголовке что в боди 1251 и при этом совать в боди анситуутф8?
Zhekson (2008-07-25 13:45:00) [6]Скушала вот такой формат:
IdMessage1.ContentType:='text/plain; windows-1251';
// IdMessage1.CharSet:='windows-1251';
но кодировка так и осталась нераспознаной... а как же отправлять русский текст?
Zhekson (2008-07-25 13:34:00) [7]видно, что чарсету был присвоен не определённый параметр, а строка, которую он не смог идентифицировать.