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

Как написать письмо?   Найти похожие ветки 

← →
Брыкун Дмитрий   (2002-02-06 14:50) [0]

Научите, пожалуйста, ка мне написать письмо, зная название почтового ящика, а еще неплохо бы с ним же отправить небольшой файл.

---

← →
Victor ©   (2002-02-07 05:39) [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

---

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

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



Память: 0.44 MB
Время: 0.007 c