Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отправка почты в Дельфи [D7, XP]

Aleks1995 © (2011-07-24 02:15:00)
Здравствуйте мастера! Нужен ваш совет. Делаю в проге отсылку сообщения пользователя на свое мыло. Код:
idSMTP1.Host:='smtp.mail.ru';
idSMTP1.Port:=25;
idSMTP1.Username:='mail@mail.ru;
idSMTP1.Password:='password';
idSMTP1.AuthenticationType:=atLogin;
with IdMessage1 do
begin
Body.Assign(Memo1.Lines);
From.Text := 'mail@mail.ru';
Recipients.EMailAddresses := 'mail@mail.ru';
Subject:='Пожелания,замечания';
end;
idSMTP1.Connect;
try
idSMTP1.Send(IdMessage1);
finally
idSMTP1.Disconnect;
end;
Application.MessageBox(PChar('Сообщение отправлено'),'Информация', MB_OK+MB_ICONINFORMATION);
Все работает, только если текст писать в Мемо по русски,то приходят в тексте письма иероглифы. Как привести их читабельный вид? У меня Дельфи 7, ОС ВинХР сп3

Dennis I. Komarov (2011-07-25 10:24:00) [1]
RFC и индейцы умрут...

Aleks1995 (2011-07-24 12:32:00) [2]
>sniknik
Спасибо огромное!!! Все заработало как надо! :)

sniknik (2011-07-24 11:32:00) [3]
with IdMessage1 do begin Encoding := meMIME; CharSet := 'Windows-1251'; ContentType:= 'text/plain';

для Subject
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988618939&n=19

antonn (2011-07-24 11:29:00) [4]
"по-русски" пишется через дефис :)
кодировку нужно указать, как на инди - не знаю

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »