Email problem

0
procedure TForm5.SpeedButton2Click(Sender: TObject);
var
tresc,mail2:textfile;
html:tidtext;
begin
[....]
html:=tidtext.Create(idmessage1.MessageParts, nil);
html.ContentType := 'text/html';
HTML.Body.Text :='<html><head></head><body>cos</body<html>';
idmessage1.From.Address:='[email protected]';
idmessage1.From.text:='[email protected]';
idmessage1.Recipients.EMailAddresses:=edit2.text;
idmessage1.Subject:=edit1.text;
idmessage1.ContentType := 'multipart/mixed';
idmessage1.CharSet:='windows-1250';
idsmtp1.Username:='riomus';
idsmtp1.Password:='******';
{ tutaj bylo prawdziwe haslo do konta email i konta na 4p, sorry ale nie mogłem na to patrzeć - Adamo
  Riomus - nie śpij bo cię okradną }
idsmtp1.Host:='poczta.o2.pl';
idsmtp1.Port:=25;
label4.Caption:='Łączenie oraz wysyłanie';
[...]

dlaczego po wysłaniu wiadomości jest ona pusta??

0

Tylko mogłeś nie podawać hasła do mejla ...

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0