Форум: "Начинающим";
Текущий архив: 2011.11.13;
Скачать: [xml.tar.bz2];
ВнизОтправка почты в Дельфи Найти похожие ветки
← →
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
Спасибо огромное!!! Все заработало как надо! :)
← →
Dennis I. Komarov © (2011-07-25 10:24) [4]RFC и индейцы умрут...
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.11.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.003 c