Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как написать письмо?

Брыкун Дмитрий © (2002-02-06 14:50:00)
Научите, пожалуйста, ка мне написать письмо, зная название почтового ящика, а еще неплохо бы с ним же отправить небольшой файл.

Victor (2002-02-07 05:39:00) [1]
Отправить письмо можно с помощью компонента NMSMTP1

procedure TForm1.Button1Click(Sender: TObject);
begin
if SendMail.Connected then
SendMail.Disconnect
else
begin
SendMail.Host := "212.110.231.66";
SendMail.UserID := edit1.Text;
SendMail.Connect;
SendMail.PostMessage.FromAddress := "Net@nnc.kz";
SendMail.PostMessage.FromName := edit2.Text;
SendMail.PostMessage.ToAddress.Text := "rvv@nnc.kz";
SendMail.PostMessage.Body.Text := Memo1.text;
SendMail.PostMessage.Subject := edit3.Text;
SendMail.SendMail;
end;
end;

Если надо могу прислать исходники пиши по адресу RVV@nnc.kz

Наверх

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