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

Почтовая программа   Найти похожие ветки 

← →
jek_   (2004-08-17 11:39) [0]

Уважаемые мастера. Подскажите пожалуйста как помимо вызова нового письма, в котором подставлен адрес, вставить в письмо тему и предполагаемый текст. Всё, что я знаю - это
ShellExecute(0, nil,"mailto:delphi@mastak.com",nil,nil,1);

---

← →
Рамиль ©   (2004-08-17 11:50) [1]

mailto:mail@somehost.ru?subject=Тема сообщения&body=Тело сообщения

Только каким боком это относится к Delphi?

---

← →
jek_   (2004-08-17 11:58) [2]

У меня в программе на Delphi вызывается готовое письмо для отправки клиенту.

---

← →
имя   (2004-08-17 12:29) [3]

Удалено модератором

---

← →
jek_   (2004-08-17 12:52) [4]

Проблемка состоит в том, что в тексте письма я не могу поставить знак вопроса например. В готовом письме он действует как разделитель.

---

← →
Рамиль ©   (2004-08-17 13:13) [5]

> тексте письма я не могу поставить знак вопроса

Почему?

ShellExecute(0, nil,"mailto:mail@somehost.ru?subject=Тема сообщения&body=Ты где? Привет",nil,nil,1);

или я недопонимаю...

---

← →
jek_   (2004-08-17 14:28) [6]

Извиняюсь - торможу !

---

← →
Erik1   (2004-08-17 15:27) [7]

А может лучше нормально писмо отправим, с помощю SMTP?

---

← →
Дмитрий Ботвин   (2004-08-17 15:36) [8]

Вообще отправить через Outlook можно так:

uses
  ComObj;

procedure TForm1.Button16Click(Sender: TObject);
const
  olMailItem = 0;
  olByValue = 1;
var
  OutlookApp, MailItem, MyAttachments: OLEVariant;
begin
  try
    OutlookApp := GetActiveOleObject("Outlook.Application");
  except
    OutlookApp := CreateOleObject("Outlook.Application");
  end;
  try
    MailItem := OutlookApp.CreateItem(olMailItem);
    MailItem.Recipients.Add("Почтовый адресс");
    MailItem.Subject := "Subject";
    MailItem.Body    := "Message";
    myAttachments    := MailItem.Attachments;
    myAttachments.Add("C:\temp.txt", olByValue, 1, "Имя присоединения");
    MailItem.Send;
  finally
    myAttachments := VarNull;
    OutlookApp    := VarNull;
  end;
end;

Можешь вместо Outlook поставить Outlook Express и отправляй
наздоровье. У меня точно работало....

---

← →
jek_   (2004-08-17 19:25) [9]

А как сделать, чтобы в текст писма можно было вставить форматированный например в Ворде текст?

---

← →
Дмитрий Ботвин   (2004-08-18 07:52) [10]

В строку MailItem.Body := "Message" вместо "Message" вставь
текст, полученный через OLE-доступ к Word-у. Если не знаешь как
пиши, вместе сообразим как-нибудь...

---

← →
ИМХО ©   (2004-08-18 22:57) [11]

MailItem.HTMLBody

---

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

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



Память: 0.47 MB
Время: 0.021 c