![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Ребята нашёл в тегах вот такой код
Код:
procedure TForm1.Button1Click(Sender: TObject); begin NMSMTP1.Host := 'mail.host.com'; NMSMTP1.UserID := 'Username'; NMSMTP1.Connect; NMSMTP1.PostMessage.FromAddress := 'your_mail@host.com'; NMSMTP1.PostMessage.ToAddress.Text := 'delphiworld@mail.ru'; NMSMTP1.PostMessage.ToCarbonCopy.Text := 'your_mail@host.com'; NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := 'second_your_mail@host.com'; NMSMTP1.PostMessage.Body.Text := 'This is the message from Delphi World project'; NMSMTP1.PostMessage.Attachments.Text := 'c:\File.txt'; NMSMTP1.PostMessage.Subject := 'Delphi World is Great!'; NMSMTP1.SendMail; ShowMessage('Mail sent !'); NMSMTP1.Disconnect; end; end; Вопрос: Я не могу найти компонент "NMSMTP", скажите пожалуйста где мне можно найти такой компонент если у меня Delphi 7 Заранее спасибо. Последний раз редактировалось Admin, 24.02.2009 в 10:29. |