Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.018 c
3-76802
Вася666
2003-04-04 09:00
2003.04.24
помогите разобраться с индексами


1-77030
OlkaGTS
2003-04-14 15:31
2003.04.24
Как получить объект, зная Handle?


3-76864
Jaxtor
2003-04-08 14:02
2003.04.24
Подтверждение транзакции в InterBase


3-76815
dimmu3
2003-04-07 08:33
2003.04.24
Timestamp в Inrerbase


1-76911
Спрашивающий
2003-04-15 03:56
2003.04.24
Инверсия цвета Label по отношению к цвету формы