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

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

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

Почтовая программа [D5, Win2k]

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

ИМХО (2004-08-18 22:57:00) [1]
MailItem. HTMLBody

Дмитрий Ботвин (2004-08-18 07:52:00) [2]
В строку MailItem.Body := 'Message' вместо 'Message' вставь
текст, полученный через OLE-доступ к Word-у. Если не знаешь как
пиши, вместе сообразим как-нибудь...

jek_ (2004-08-17 19:25:00) [3]
А как сделать, чтобы в текст писма можно было вставить форматированный например в Ворде текст?

Дмитрий Ботвин (2004-08-17 15:36:00) [4]
Вообще отправить через 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 и отправляй
наздоровье. У меня точно работало....

Erik1 (2004-08-17 15:27:00) [5]
А может лучше нормально писмо отправим, с помощю SMTP?

jek_ (2004-08-17 14:28:00) [6]
Извиняюсь - торможу !

Рамиль (2004-08-17 13:13:00) [7]

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

Почему?

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

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

jek_ (2004-08-17 12:52:00) [8]
Проблемка состоит в том, что в тексте письма я не могу поставить знак вопроса например. В готовом письме он действует как разделитель.

(2004-08-17 12:29:00) [9]
Удалено модератором

jek_ (2004-08-17 11:58:00) [10]
У меня в программе на Delphi вызывается готовое письмо для отправки клиенту.

Рамиль (2004-08-17 11:50:00) [11]
mailto:mail@somehost.ru?subject=Тема сообщения&body=Тело сообщения

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

Наверх

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