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;