Kod: Tümünü seç
procedure TForm1.IdMessage1InitializeISO(var VTransferHeader: TTransfer;
var VHeaderEncoding: Char; var VCharSet: String);
begin
VCharSet := 'iso-8859-9';
end;
Kod: Tümünü seç
procedure TForm1.IdMessage1InitializeISO(var VTransferHeader: TTransfer;
var VHeaderEncoding: Char; var VCharSet: String);
begin
VCharSet := 'iso-8859-9';
end;
Kod: Tümünü seç
<html>
<body>
mesaj
</body>
</html>
Kod: Tümünü seç
a:memo1.text;
memo2.Lines.Add('<html>');
memo2.Lines.Add('<head>') ;
memo2.Lines.Add('<meta http-equiv="Content-Language" content="tr">');
memo2.Lines.Add('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />');
memo2.Lines.Add('</head>');
memo2.Lines.Add('<body>');
memo2.Lines.Add(a);
memo2.Lines.Add('</body>');
memo2.Lines.Add('</html>');
Kod: Tümünü seç
txtpart.ContentType := 'text/plain; [b]charset="iso-8859-9[/b]"';
txtpart.Body.Text := Memo2.Lines.Text;
htmpart := TIdText.Create(IdMessage1.MessageParts, html);
htmpart.ContentType := 'text/html';
Kod: Tümünü seç
var
html: TStrings;
email: TIdMessage;
filename: string;
//idAttach: TidAttachment;
// #,##0.00;
begin
if mail.RecordCount > 0
then begin
frxHTMLExport1.FileName:=ExtractFilePath(Application.ExeName)+'\Bilgi.html';
Mail_1.PrepareReport(true);
frxHTMLExport1.ShowDialog:=False;
Mail_1.Export(frxHTMLExport1);
sleep(2000);
IdMessage1.Recipients.EMailAddresses:='aaaa@c.com.tr';
IdMessage1.From.Address:='bbb@c.com.tr';//Gönderen
IdMessage1.From.Name:='ik'; //Gönderen
IdMessage1.Subject := 'Ödeme Talebi';
IdSMTP1.Host:='mail.c.com.tr';
IdSMTP1.Port:=25;
IdSMTP1.Password:='xxxxx';
with TIdText.Create(IdMessage1.MessageParts, nil) do begin
Body.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Bilgi.html');
ContentType :='text/html; charset=UTF-8';
end;
IdMessage1.ContentType := 'multipart/related; type="text/html"';
idmessage1.ContentType:='text/html; charset=UTF-8';
idmessage1.ContentTransferEncoding:='8bit';
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
Kod: Tümünü seç
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name=Generator content="FastReport 5.0 http://www.fast-report.c
Kod: Tümünü seç
Page2.Add('<!DOCTYPE html>');
Page2.Add('<html>');
Page2.Add('<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">');
Page2.Add('<meta charset="utf-8">');
Page2.Add('<head>');
Kod: Tümünü seç
if mail.RecordCount > 0
then begin
frxHTMLExport1.FileName:=ExtractFilePath(Application.ExeName)+'\Bilgi.html';
Mail_1.PrepareReport(true);
frxHTMLExport1.ShowDialog:=False;
Mail_1.Export(frxHTMLExport1);