Показать сообщение отдельно
Старый 04.06.2009, 09:59   #12  
.rejector._imported is offline
.rejector._imported
Участник
 
47 / 10 (1) +
Регистрация: 08.04.2004
Цитата:
Сообщение от .Quattro. Посмотреть сообщение
А пришлите код, которым заполняете Body сообщения
Написал с подсказки rmv следующую функцию
Код:
SendMessage(From : Text[100];To : Text[1024];ToName : Text[250];Subject : Text[250];TextBody : Text[1024];Attachment : Text[500])

IF ISCLEAR(OutlookApp) THEN
  CREATE(OutlookApp);
OutlookMsg:=OutlookApp.CreateItem(0);

OutlookMsg."To"("To");
OutlookMsg.Subject(Subject);

OutlookAttach:=OutlookMsg.Attachments;
OutlookAttach.Add(Attachment, 1);
OutlookMsg.Display;
В параметре Attachment передаю путь к файлу HTML-шаблона.