Отправка почты в Дельфи

← →
Aleks1995 (2011-07-24 02:15) [0]

Здравствуйте мастера! Нужен ваш совет. Делаю в проге отсылку сообщения пользователя на свое мыло. Код:
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

← →
antonn © (2011-07-24 11:29) [1]

"по-русски" пишется через дефис :)
кодировку нужно указать, как на инди - не знаю

← →
sniknik © (2011-07-24 11:32) [2]

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

← →
Aleks1995 (2011-07-24 12:32) [3]

>sniknik
Спасибо огромное!!! Все заработало как надо! :)

RFC и индейцы умрут...

Отправка почты в Дельфи Найти похожие ветки