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

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

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

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

Олега © (2002-10-03 13:31:00)
Уважаемые!

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

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

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

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

Оно?

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

Наверх

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