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;