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

Как отправить 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;

Оно?

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

---

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

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



Память: 0.45 MB
Время: 0.013 c