|
 | | |
| Autor | Správa |
|---|
newby
Užívateľ
Založený: 03.02.2010
Príspevky: 9
 |
ako poslem mail s touto komponentou podobne ako je to tu? Samozrejme pomocou smtp servera nie lokalneho mail klienta
| kód: | procedure OdesliMail;
begin
NMSMTP1.Host := `smtp.seznam.cz`;
NMSMTP1.UserID := `NovakJan`;
NMSMTP1.Port:=25;
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := `Novak.Jan@server.cz`;
NMSMTP1.PostMessage.ToAddress.Text := `Novak.Franta@email.cz`;
NMSMTP1.PostMessage.ToCarbonCopy.Text := `Novak.Josef@email.cz`;
NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := `Novak.Vaclav@post.cz`;
NMSMTP1.PostMessage.Body.Text := `Toto je vlastní text zprávy`;
NMSMTP1.PostMessage.Attachments.text := `c:\Soubor.txt`;
NMSMTP1.PostMessage.Subject := `Zde je subjekt zprávy`;
NMSMTP1.SendMail;
showmessage(`Email byl odeslán !`);
NMSMTP1.Disconnect;
end; |
|
| |
  |
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1052
|  Zaslal: Št 04.02.10 11:47 |   |
| kód: | Uses ...nmsmtp; {This needs to be added to your Uses statement}
nmsmtp:=tnmsmtp.create(self);
nmsmtp.Host:='127.0.0.1';
nmsmtp.PostMessage.Body.Clear;
nmsmtp.PostMessage.Subject:='Subject goes here';
nmsmtp.PostMessage.Body.Add('body of email goes here'); {add as many lines as you want}
nmsmtp.PostMessage.FromAddress:='nlath@wherever.com';
nmsmtp.PostMessage.FromName:='nlath';
nmsmtp.PostMessage.ReplyTo:='nlath@wherever.com';
nmsmtp.PostMessage.ToAddress.Add('jim@splurge.com'); {you can have lots of recipients}
nmsmtp.postmessage.CarbonCopyAddress.Add('nlath@wherever.com'); {ditto cc}
nmsmtp.Connect;
nmsmtp.SendMail;
nmsmtp.Disconnect; |
|
| |
 |
|
newby
Užívateľ
Založený: 03.02.2010
Príspevky: 9
| | Zaslal: Št 04.02.10 12:37 | |
ale ja kniznicu nmsmtp nemam, bola vo verzii 5 naposledy asi. Ja mam 7. a ani na nete ju neviem najst |
| |
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
