Indy mail i naša slova

Indy mail i naša slova 16.01.2007. u 15:01 · pre 240 meseci #1

naime, nikako ne mogu da postignem
da šaljem naša slova iz maila

uvek umesto Ž i Š dobijam kuke i kvake
dok se ostala prikazuju normalno
ok, to je zato što recimo i na Islandu koriste slovo Đ
pa njega ima gde god hoćete

server je M$ ISA server

uglavnom, evo kod ispod
koristi se IdMessage komponenta i IdSMPT
sve to radi, mailovi idu, attachmenti takodje
ali naša slova idu sa kukama i kvakama

ima li neko ideju

code, podesavanje IdMessage

Encoding := meUU;
CharSet := 'ISO-8859-2';
ContentTransferEncoding := 'base64';
ContentType := 'multipart/mixed';

hvala
Srdjan

Re: Indy mail i naša slova 16.01.2007. u 15:02 · pre 240 meseci #2

pardon, u pitanju je Indy 9 i Delphi 7

Re: Indy mail i naša slova 16.01.2007. u 15:21 · pre 240 meseci #3

> 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".

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Indy mail i naša slova 16.01.2007. u 15:35 · pre 240 meseci #4

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

evo, ovo je body primljene poruke

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

Re: Indy mail i naša slova 16.01.2007. u 15:38 · pre 240 meseci #5

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;

Re: Indy mail i naša slova 16.01.2007. u 17:57 · pre 240 meseci #6

> 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?

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Indy mail i naša slova 16.01.2007. u 22:45 · pre 240 meseci #7

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

Re: Indy mail i naša slova 17.01.2007. u 16:31 · pre 240 meseci #8

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;

Forum kao aplikacija na telefonu

Srodne teme