A może ja mam coś nie tak z Windowsami albo z Delphi? Poniżej skrócony kod, którego używam do wysyłania poczty. Czy ktoś spróbuje go sprawdzić u siebie? Chodzi o to, czy po odebraniu poczty będą widoczne w treści polskie znaki. To co jest na czerwono, trzeba podmienić na swoje (oczywiście ten przykład działa tylko na serwerach bez uwierzytelniania nadawcy)...
procedure TForm1.SendMail;
begin
IdMessage1.From.Name := '<font color="red">cokolwiek</span>';
IdMessage1.From.Address := '<font color="red">adres nadawcy</span>';
IdMessage1.Recipients.EMailAddresses := '<font color="red">adres odbiorcy</span>';
IdMessage1.Subject := 'Test maila';
IdMessage1.Body.Append('--------------------');
IdMessage1.Body.Append('PL: ęłśćó ŁÓŚĆŹŻŃ...');
IdMessage1.Body.Append('--------------------');
IdSMTP1.Username := '<font color="red">login</span>';
IdSMTP1.Host := '<font color="red">IP Serwera</span>';
IdSMTP1.Connect;
try IdSMTP1.Send(IdMessage1);
finally IdSMTP1.Disconnect;
IdMessage1.Recipients.Clear;
IdMessage1.BCCList.Clear;
IdMessage1.Body.Clear;
end;
end;
Po wprowadzeniu zmiany parametru w dla IdMessawe w polu CharSet (Object Inspector, lub kodem) treść maila dochodzi jako załącznik (z polskimi znakami, ale niestety w załączniku)...