|
|
#1 |
|
Участник
|
Нужно: автоматически сформировать письмо (сабж, текст, получатели) и открыть его в аутлуке для того, чтобы пользователь его скорректировал и отправил. Так же нужно, чтобы в письмо подставилась текущая подпись пользователя (что настраивается в Сервис/Параметры/Сообщение/Подписи - у каждого юзера своя соотвественно). Вот с последним пунктом проблема. Кто-нибудь знает, как заставить вставиться подпись?
Пишу вроде этого: Код: CREATE(OutlookApp);
OutlookApp.GetNamespace('MAPI');
MailItem := OutlookApp.CreateItem(0);
MailItem."To" := 'vasya@mail.ru';
MailItem.Subject('Test subj');
MailItem.HTMLBody('HtMl');
MailItem.Display(1);
IF MailItem.Sent THEN ... |
|
|
|
|
#2 |
|
Участник
|
Ещё одна проблема, что-то вроде:
Код: MailItem.Body := MailItem.Body + recExtendedCommentLine.Comment; Ничего похожего на AddLine нету Т.е. больше 1024 я туда не вставлю.Что ж делать-то? |
|
|