Kako mogu da napravim program da salje mail(u delphiju 5). Ako neko zna ili ako vec ima code neka javi.
Potpis
Lakic Nenad
slanje mail-a
Zaključano
Zakačeno
Hmm probaj ovako [iz glave]:
Code:
NMSMTP1.Host := 'host.text';
NMSMTP1.UserID := 'username.text';
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := 'edit2.text';
NMSMTP1.PostMessage.ToAddress.Text := 'edit4.text';
NMSMTP1.PostMessage.Body.Text := 'memo1.lines';
NMSMTP1.PostMessage.Subject := 'edit5.text';
NMSMTP1.SendMail;
showmessage('Mail je poslat!');
NMSMTP1.Host := 'host.text';
NMSMTP1.UserID := 'username.text';
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := 'edit2.text';
NMSMTP1.PostMessage.ToAddress.Text := 'edit4.text';
NMSMTP1.PostMessage.Body.Text := 'memo1.lines';
NMSMTP1.PostMessage.Subject := 'edit5.text';
NMSMTP1.SendMail;
showmessage('Mail je poslat!');
Potpis
When you say "I wrote a program
that crashed Windows", people
just stare at
you blankly and say "Hey, I got
those with the system, *for
free*".
-- Linus Torvalds
that crashed Windows", people
just stare at
you blankly and say "Hey, I got
those with the system, *for
free*".
-- Linus Torvalds
Ili iz HELP-a...
help je mnogo mocna stvar
stavis SMTP komponentu na formu pritisnes F1 i nadjes exsample.....
posle sve ide samo od sebe
help je mnogo mocna stvar
stavis SMTP komponentu na formu pritisnes F1 i nadjes exsample.....
posle sve ide samo od sebe
pa to mu je i cilj da bude lak za ucenje !
Potpis
Odradio sam. U svako mslucaju hvala.
Potpis
Lakic Nenad