| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

вопрос про кодировку темы письма. инди10. [D7, XP]

vegarulez ©   (2008-02-05 14:39:00) 

Привет всем мастерам! Вопрос такой отправлюя письмо - код ниже. оно всё номано доходит, но вместе надписи Это Тест - выделенной жирным в теме письма на почте тема письма вот такая: щРН РЕЯР

подскажите какое свойство mymsg {mymsg  : TIdMessage;} поможет мне отправить тему в правильной кодировке при отправке пистма на почтовый сервер.

unit SendMail;
interface

uses
 QDialogs, SysUtils,Classes, IdMessage, Idsmtp;

type
 Tmsgsend = class(TThread)
 private
   IdMsgSend: TIdMessage;
   SMTP: TIdSMTP;
   { Private declarations }
 protected
   procedure Execute; override;
  public
   count:integer;
 end;

implementation
uses Unit1;

{ Tmsgsend }

procedure Tmsgsend.Execute;
var
s:string;
i,j:integer;
mysmtp : TIdSMTP;
mymsg  : TIdMessage;
begin
Form1.sendmail:=1;
Form1.Edit1.Text:='1';
mysmtp:=TIdSMTP.Create(nil);
mymsg:=TIdMessage.Create(nil);
  with mymsg do
   try
    mymsg.Body.Text:='Тело письма';
    From.Text :='***@***.ru';
    Recipients.EMailAddresses :='***@***.ru';
    Subject := 'Это Тест';
    Priority := TIdMessagePriority(mpNormal); { Message Priority }
    ReceiptRecipient.Text := From.Text;
 
    {authentication settings}
    mysmtp.AuthType := atDefault; {Simple Login}
    mysmtp.Username :='***';
    mysmtp.Password :='***';

    {General setup}
    mysmtp.Host := 'smtp.***.ru';
    mysmtp.Port := 25;

    {now we send the message}
    try
     mysmtp.Connect;
     mysmtp.Send(mymsg);
    except
     on E: Exception do
      Begin
       s:=mysmtp.LastCmdResult.Code;
       s:=mysmtp.LastCmdResult.FormattedReply.Text;
      End;
    end;
   finally
    mysmtp.Free;
    mymsg.Free;
    Form1.Edit1.Text:='0';
    Form1.sendmail:=0;
   end;
end;
end.

---

vegarulez   (2008-02-05 19:20:00) [1]

псп. помогло.

---

Johnmen   (2008-02-05 15:09:00) [2]

А ты тему сразу в KOI8 пиши.

---

Наверх