Search results for 'ContentType'. 1 post(s) found.
2009/07/16 16:35
How to encode subject content when sending mail with TIdMessage ?
2009/07/16 16:35 in Delphi

Today, I tried to develop mail application with TIdMessage, but I have problem in character set encoding. And I found the answer at http://www.yac.com.pl/mt.texts.tidmessage.charset.en.html
With this wrapper class,
TMyMessage = class(TIdMessage)
private
procedure InitializeUTF8(
var VTransferHeader: TTransfer; var VHeaderEncoding: char; var VCharSet: string);
end;
procedure TMyMessage.InitializeUTF8(
var VTransferHeader: TTransfer; var VHeaderEncoding: char; var VCharSet: string);
begin
VCharSet := 'UTF-8';
end;
private
procedure InitializeUTF8(
var VTransferHeader: TTransfer; var VHeaderEncoding: char; var VCharSet: string);
end;
procedure TMyMessage.InitializeUTF8(
var VTransferHeader: TTransfer; var VHeaderEncoding: char; var VCharSet: string);
begin
VCharSet := 'UTF-8';
end;
And then,
LMessage := TMyMessage.Create(NIL);
LMessage.ContentType := 'text/plain; CharSet=UTF-8';
LMessage.OnInitializeISO := LMessage.InitializeUTF8;
LMessage.ContentType := 'text/plain; CharSet=UTF-8';
LMessage.OnInitializeISO := LMessage.InitializeUTF8;
Actually CharSet property of TIdMessage should work fine, but it doesn't work.
On Delphi 2009, some features are changed so you need to use below wrapper class as below.
TMyMessage = class(TIdMessage)
private
procedure InitializeUTF8(
var VHeaderEncoding: char; var VCharSet: string);
end;
procedure TMyMessage.InitializeUTF8(
var VHeaderEncoding: char; var VCharSet: string);
begin
VCharSet := 'UTF-8';
end;
private
procedure InitializeUTF8(
var VHeaderEncoding: char; var VCharSet: string);
end;
procedure TMyMessage.InitializeUTF8(
var VHeaderEncoding: char; var VCharSet: string);
begin
VCharSet := 'UTF-8';
end;
Another posts included in "Delphi"
| How to send text/html based email in UTF-8 with TIdSMTP, TIdMessage VCL (0) | 2009/07/20 |
| When subject is crashing in TIdSMTP VCL (0) | 2009/07/20 |
| Delphi string conversion functions - AnsiToUTF-8, UTF8Encode, ... (0) | 2009/07/20 |
| Base64 Encoding/Decoding function for Delphi (0) | 2009/07/16 |
| How to send email by TIdSMTP VCL ? (0) | 2009/07/07 |
| How to return exit code such as exit() function in C/C++ ? (0) | 2009/07/02 |
| How to get parameter string ? (0) | 2009/06/30 |
| Save TBitmap image to Jpeg format image in Delphi (0) | 2009/06/26 |
Trackback : Cannot send a trackbact to this post.
-
Subject How to send text/html based email in UTF-8 with TIdSMTP, TIdMessage VCL
2009/07/20 10:23
Here's another reference can send email with TIdSMTP, TIdMessage VCL in Delphi 2009.procedure TMainFrm.DoInitializeISO(var VHeaderEncoding: Char; var VCharSet:string);begin VHeaderEncoding := 'B'; VCharSet := 'UTF-8';end;procedure TMainFrm.KMAIL( sTo,...
-
Subject Buy ambien.
2010/01/23 21:44
Buy ambien cr overnight mail md consultation. Where can i buy ambien for next day delivery. Buy ambien.
-
Subject Oxycontin withdrawal home remedies.
2010/01/23 23:57
Hartford oxycontin attorneys. Oxycontin. No quarter is max boot using oxycontin. Georgia oxycontin lawyers.
-
Subject Buy hydrocodone with no rx.
2010/01/27 20:49
Buy hydrocodone http buy hydrocodone biz. Buy hydrocodone online without a prescription.
Prev

Rss Feed