Скачать: CL | DM;

Компонент 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;


---

← →
Snake2000 ©   (2003-03-03 16:26) [2]

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

На кнопочку:


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;


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c