Текущий архив: 2003.04.24;
Скачать: 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 вся ветка
Текущий архив: 2003.04.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
