pardon, u pitanju je Indy 9 i Delphi 7

> uvek umesto Ž i Š dobijam kuke i kvake
> dok se ostala prikazuju normalno
> koristi se IdMessage komponenta i IdSMPT
> Encoding := meUU;
> CharSet := 'ISO-8859-2';

Kako unosiš tekst? ISO latinica i Win latinica imaju različit raspored.
Pokušaj sa "windows-1250".

pokušao sam sve te kombinacije
dobijem isto ,
naša slova u kukama i kvakama

evo, ovo je body primljene poruke

�đ�ćčć
�Đ�ĆČ
asdadadasd

s stvari, evo i ceo kod:
fali jos except ali tek kad ovo proradi
---------------------------
with imMessage do begin
Encoding := meUU;
CharSet := 'windows-1250';
ContentTransferEncoding := '8bit';
ContentType := 'multipart/mixed;';

Application.ProcessMessages;
SetBody(Memo1.Lines);

From.Name := _uName;
From.Address := _uAddress;
ReplyTo.EMailAddresses := _uReplyTo;
Recipients.EMailAddresses := '[email protected]';
Subject := edtSubject.Text;
Priority := TIdMessagePriority(cbPriority.ItemIndex);
Organization := _uOrg;
if cbReturn.Checked then begin
ReceiptRecipient.Text := From.Text;
end else begin
ReceiptRecipient.Text := '';
end;
end;

// authentication settings}
SMTP.AuthenticationType := atNone;
// user setup
SMTP.Username := _mUserName;
SMTP.Password := _mPassword;
// General setup}
SMTP.Host := _mHost;
SMTP.Port := _mPort;

SMTP.MailAgent := Application.Title;
SMTP.Connect(1000);
try
SMTP.Send(imMessage);
finally
SMTP.Disconnect;
end;

> pokušao sam sve te kombinacije
> dobijem isto ,
> naša slova u kukama i kvakama

> evo, ovo je body primljene poruke

Kako izgleda header primljene poruke? Iz kog mail klijenta čitaš poruku, koji encoding ti je tamo odabran?

preko thunderbirda
skontao jos pre sam da indy 9 ne podrzava utf-8
onda sam i thunderbird prebacio na iso-8859-2

medjutim, opet dobijam isto
kuke oko nekih slova

nije mi jasno od cega ovo zavisi
ne koristim MIME jer namena maila je
cirkularni mail koji u bodi treba da ima
html stranu i to radi, to je ok

ali slova nisu ok i jbg-a

opet, kako god napravis mail u nekom drugom
programu sa istim iso, thunderbird ga procita
nasa slova se bez problema prikazuju
znaci, nesto zeza oko ove komponente
pa mi nije jasno sta jos treba uraditi oko ove

sutra cu probati sa Indy 10

Srdjo

uf, konacno sam uspeo
evo koda dole

ali ta naša i ostala slova, da poludiš
prebacio sam sve u unicode

nego, sad me attachmenti zezaju
ne mogu nikako da namestim da mi u body poruke
bude upisana HTML strana

hm, jel to može uopšte ?

----------------------------------------------

function TfMain.TMSetMailMessage(_mailMess: TIdMessage; _recepient: String): Boolean;
var
_LM: TMethod;
procedure LInitializeISO(Sender: TObject; var VTransferHeader: TTransfer;
var VHeaderEncoding: Char; var VCharSet: string);
begin
VTransferHeader := bit8;
VHeaderEncoding := 'B';
VCharSet:= 'UTF-8';
end;
begin
Result := True;
try
_mailMess.CharSet := 'UTF-8';
_LM.Data := _mailMess;
_LM.Code := @LInitializeISO;
_mailMess.OnInitializeISO := TIdInitializeISOEvent(_LM);
_mailMess.Recipients.EMailAddresses := _recepient;
// _mailMess.BccList.EMailAddresses := '[email protected]';
_mailMess.Subject := AnsiToUtf8(VarToStr(edtSubject.Text));
_mailMess.From.Name := AnsiToUtf8(_uName);
_mailMess.From.Address := _uAddress;
_mailMess.ReplyTo.EMailAddresses := _uReplyTo;
_mailMess.Priority := TIdMessagePriority(cbPriority.ItemIndex);
_mailMess.Organization := AnsiToUtf8(_uOrg);
_mailMess.Body.Text := AnsiToUtf8(Memo1.Text);
_mailMess.ContentType := 'multipart/mixed; charset="UTF-8"';
// _mailMess.ContentType := 'multipart/mixed; charset="UTF-8"';
// _mailMess.ContentType := 'text/plain; charset="UTF-8"';

if cbReturn.Checked then begin // set the recipient to the From E-Mail address
_mailMess.ReceiptRecipient.Text := _mailMess.ReplyTo.EMailAddresses;
end else begin
_mailMess.ReceiptRecipient.Text := '';
end;
Application.ProcessMessages;
except
Result := False;
end
end;