Форум: "Начинающим";
Текущий архив: 2008.03.02;
Скачать: [xml.tar.bz2];
Вниз
вопрос про кодировку темы письма. инди10. Найти похожие ветки
← →
vegarulez © (2008-02-05 14:39) [0]Привет всем мастерам! Вопрос такой отправлюя письмо - код ниже. оно всё номано доходит, но вместе надписи Это Тест - выделенной жирным в теме письма на почте тема письма вот такая: щРН РЕЯР
подскажите какое свойство 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.
← →
Johnmen © (2008-02-05 15:09) [1]А ты тему сразу в KOI8 пиши.
← →
vegarulez © (2008-02-05 19:20) [2]псп. помогло.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.03.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.051 c
