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

← →
Брыкун Дмитрий (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

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