Компонент TNMSMTP

← →
Voldemaar (2003-03-03 11:16) [0]

Здравствуйте!
Пожалуйста, подскажите, кто знает, какую информацию должны содержать поля свойства PostMessage объекта для отправки почты TNMSMTP. Меня интересуют поля
ToBlindCarbonCopy : TStringList
ToCarbonCopy : TStringList.

Заранее благодарен, Voldemaar

← →
Snake2000 © (2003-03-03 16:19) [1]

Карбонкопи нафиг не нужен. Если поставишь, то тебе придет копия письма (ну или что-то подобное). Я так и не понял зачем это надо.
Вот готовый примерчик.

procedure TForm1.Button1Click(Sender: TObject); begin NMSMTP1.Host := "mail.host.com"; NMSMTP1.UserID := "Username"; NMSMTP1.Connect; NMSMTP1.PostMessage.FromAddress := "webmaster@swissdelphicenter.ch"; NMSMTP1.PostMessage.ToAddress.Text := "user@host.com"; NMSMTP1.PostMessage.ToCarbonCopy.Text := "AnotherUser@host.com"; NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := "AnotherUser@host.com"; NMSMTP1.PostMessage.Body.Text := "This is the message"; NMSMTP1.PostMessage.Attachments.Text := "c:\File.txt"; NMSMTP1.PostMessage.Subject := "Mail subject"; NMSMTP1.SendMail; ShowMessage("Mail sent !"); NMSMTP1.Disconnect; end;

Ну или так, как я сделал в своей программе:

На кнопочку:

NMSMTP1.Host := "mail.primorye.ru"; NMSMTP1.Port := 25; NMSMTP1.UserID := "snake2000"; NMSMTP1.Connect;

В событии OnConnect комонента NMSMTP1:

NMSMTP1.PostMessage.FromAddress := "user@mail.primorye.ru"; NMSMTP1.PostMessage.FromName := "Имя отправителя"; NMSMTP1.PostMessage.Subject := "Тема"; NMSMTP1.PostMessage.ToAddress.Add("snake2000@mail.primorye.ru"); NMSMTP1.PostMessage.Attachments.AddStrings(Listbox1.Items); NMSMTP1.PostMessage.Body.Assign(Memo1.Lines); NMSMTP1.SendMail;

Как видишь, я просто пропустил эти свойства - все отлично работает :)

Компонент TNMSMTP Найти похожие ветки