a wiec tak, wrzucilem na forme komponenty IdMessage, IdSMTP, IdAntiFreeze i buttona 1
w kodzie buttona dodalem:
IdMessage1.Body.Append('Memo1.Text');
IdMessage1.Recipients.EMailAddresses := '[email protected]';
IdMessage1.Subject := 'TEMAT';
IdMessage1.From.Name := 'alayah';
IdMessage1.From.Address := '[email protected]';
idSMTP1.Password := 'moje haslo';
idSMTP1.Username := '[email protected]';
idSMTP1.Host := 'smtp.poczta.o2.pl';
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
i wywala mi blad gdy wciskam w zdebugowanym juz projekcie Socket Error #11004