Форум: "Сети";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];
ВнизПочтовая программа Найти похожие ветки
← →
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 вся ветка
Форум: "Сети";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.055 c