Ok juz znalazlem bleda w ksiazce ;)
na stronie 43 przed Message.Subject.... cza dac Message.Clear
napisz moze kawalek kodu w ktorym ci miejscu wysypuje blad..
poza tym mozesz napisac jaki to blad
Prawidlowo powinno byc tak:
try
IdSMTP.Connect;
except
raise Exception.Create('Błąd! Nie można nawiązać połączenia z serwerem!');
end;
SendBtn.Enabled := False;
IdMessage.Clear; // Te
IdMessage.ClearBody; // Trzy linijki
IdMessage.ClearHeader; // Dopisujemy ;)
IdMessage.Subject := temat;
IdMessage.From.Address := mail;
IdMessage.From.Name := mail;
IdMessage.From.Name := mail;
IdMessage.Recipients.Add;
IdMessage.Recipients.Items[0].Address := adresat;
IdMessage.Recipients.Items[0].Text := adresat;
IdMessage.Recipients.Items[0].Name := adresat;
IdMessage.Body.Assign(tresc);
try
IdSMTP.Send(IdMessage);
finally
SendBtn.Enabled := True;
IdSMTP.Disconnect;