:: STRCPY - Super Coder's Page

Search results for 'ContentType'. 1 post(s) found.

2009/07/16 How to encode subject content when sending mail with TIdMessage ?

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;

And then,

LMessage := TMyMessage.Create(NIL);
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;

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

Posted by Super Coder

CharSet, ContentType, OnInitializeISO, TIdMessage, UTF-8

Trackback 4 Comment 0

Trackback : Cannot send a trackbact to this post.

Subject How to send text/html based email in UTF-8 with TIdSMTP, TIdMessage VCL
Tracked from STRCPY - Super Coder's Page 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.
Tracked from Buy ambien online cod. 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.
Tracked from Oxycontin. 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.
Tracked from Buy hydrocodone. 2010/01/27 20:49
Buy hydrocodone http buy hydrocodone biz. Buy hydrocodone online without a prescription.