Как отправить e-mail с html из программы

← →
Олега (2002-10-03 13:31) [0]

Уважаемые!

Мне нужно добавить в программу возможность отправки письма. В принципе меня бы устроила ShellExecute, но не получается отправить письмо в формате HTML или просто текст с разделенными строками. Пишу:

ShellExecute(
handle, "open",
PChar("mailto:Емейл?subject=Письмо%body=Текст письма"),
nil, nil, SW_SHOWDEFAULT)

Прошу помочь.

← →
Rouse_ (2002-10-05 05:30) [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;

Оно?

Желаю успехов

Как отправить e-mail с html из программы Найти похожие ветки