Mam Delphi 6,
Oto prosty kod, który znalazłam w kilku książkach :
procedure TForm1.Button1Click(Sender: TObject);
begin
try
smtp1.host:=edthost.text;
smtp1.port:=edtport.text;
smtp1.fromname:=edit1.text;
smtp1.hdrfrom:=edit2.text;
smtp1.hdrto:=edit3.text;
smtp1.hdrreplyto:=edit4.text;
smtp1.hdrsubject:=edit5.text;
smtp1.mailmessage.assign(memo1.Lines);
smtp1.Connect;
smtp1.Mail;
except
messagebox(0,'Wystąpił błąd - nie wysłano Maila','',mb_ok);
end;
end;
end.
Wszystko się ładnie kompiluje i z tego co piszą powinno działać!
U mnie nie działa :( - tylko wyświetla mi ten komunikat : 'Wystąpił błąd - nie wysłano Maila'
Już nie wiem co czynić :( wszytkie Faq przeleciałam i dalej to samo!
Prosze pomocy - bo jak mi program nie wyśle maila to ja studia obleje :(
Proszę administratorów, aby sie nie bawili moim kosztem (postami), bo ja nie wiem za co one są wywalane.