| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Компонент TNMSMTP [D5, Win2k, WinXP]

Voldemaar ©   (2003-03-03 11:16:00) 

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

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

---

Snake2000   (2003-03-03 16:26:00) [1]

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

На кнопочку:


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;


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

---

Snake2000   (2003-03-03 16:19:00) [2]

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


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;


---

Наверх