Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];

Вниз

IdSMTP   Найти похожие ветки 

 
Vika_cc   (2004-11-18 18:07) [0]

Добрый вечер вот так вот я отправляю письмо все работает письмо приходит вот только русские буквы превращаются в иероглифы как это убрать подскажите плз!!!!
procedure sendemail;
var
 LSMTP: TIdSMTP;
 LMsg: TIdMessage;
begin
LSMTP := TIdSMTP.Create(nil);
LMsg := TIdMessage.Create(LSMTP);
with LMsg do
  begin
   Subject := "Привет";
   Recipients.EMailAddresses :=form2.Edit7.Text;
   From.Text := "BO@mail.ru";
   Body.Text :="Помогите плз";
  end;
with LSMTP do
  begin
   form1.idSMTP1.AuthenticationType:=atNone;
   Host := "192.168.4.4";
   Connect;
   Send(LMsg);
   Disconnect;
  end;
  FreeAndNil(LMsg);
  FreeAndNil(LSMTP);
 end;


 
Vika_cc   (2004-11-18 18:19) [1]

Удалено модератором


 
Vika_cc   (2004-11-18 18:51) [2]

Люди ну помогите ...или скажите а не првильно вопрос задала???


 
vuk ©   (2004-11-18 18:57) [3]

charset надо указывать. C TIdMessage ковырялся достаточно давно, не все помню, но попробуйте
LMSG.Charset := "windows-1251";


 
Vika_cc   (2004-11-18 19:02) [4]


> vuk ©   (18.11.04 18:57) [3]
> charset надо указывать. C TIdMessage ковырялся достаточно
> давно, не все помню, но попробуйте
> LMSG.Charset := "windows-1251";

что то теперь вообще страшное произошло пришло письмо с вложеными файлами


 
vuk ©   (2004-11-18 20:19) [5]

Мда... Привык к MIME кодеру из SakEMail. Тот, по крайней мере из себя шибко умного не корчит.

Значит так ...
Что надо поменять/добавить:
uses
IdCoderMIME;

...
Subject := Format( "=?windows-1251?B?%s?=", [TIdEncoderMIME.EncodeString("Привет")]);
...
with LMsg do
...
  ContentType := "text/plain";
  CharSet := "windows-1251";
  Body.Text := ...



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.037 c
9-1099511911
Jack
2004-11-03 22:58
2005.02.06
GLScene, Как определить пересечение 2-х объектов ?


3-1105365436
Scorpio
2005-01-10 16:57
2005.02.06
Как передать данные в переменную при соединении 3 баз.


6-1100943955
Неизвестный
2004-11-20 12:45
2005.02.06
Проблема с отправкой писем


1-1106258190
Bobby Digital
2005-01-21 00:56
2005.02.06
StringGrid


1-1106341498
Oddin
2005-01-22 00:04
2005.02.06
TrackBar





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский