| Вопрос: Oulkook and Access and Excel... | Добавлено: 06.10.05 22:44 |
Автор вопроса:  .COM | ICQ: 212158853 |
|
Как вставить в тело письма из Word-файла, но что бы все форматирование (шрифты, отступы и т.п.) сохранилось?
Я на данный момент делаю так: 'Word открываем****************************** Dim appWd As Word.Application Dim docWd As Word.Document Set appWd = CreateObject("Word.Application") Set docWd = appWd.Documents.Open("C:\пример.rtf") appWd.Visible = True 'Outlook открываем****************************** Dim OlApp As Outlook.Application Dim Mail As Outlook.MailItem Set OlApp = CreateObject("Outlook.Application") 'Создаем письмо********************************* Set Mail = OlApp.CreateItem(olMailItem) Mail.BodyFormat = olFormatRichText Mail.To = "mail@mail.ru" Mail.Subject = "Subject" Mail.Body = docWd.Content 'вставка содержимого Word-файла Mail.Display НО! Он сабака страшная вставляет все 10-м шрифтом, никакого жирного и пр. не сохраняет и весь текст центрирован по левому краю! Вот как это побороть? Есть мысли? Кстати, всем привет агромный :) Года два вроде тут не был... Пр.пр. что напрягаю, но мне действительно важно и срочно.... |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: el-paso Вопросов: 3 Ответов: 164 |
Профиль | | #1 | Добавлено: 07.10.05 00:15 |
|
Поделюсь соображениями.
1) docWd.Content - объект класса Word.Range, в котором по умолчанию используется свойство Text типа String. 2) У объектов класса Word.Range помимо Text имеется свойство FormattedText. Посему я бы попробовал написать примерно так: ... Mail.Body = docWd.Content.FormattedText ... Outlook я себе не ставил, поэтому второй пункт проверить не могу. Некоторые сомнения вызывает тот факт, что FormattedText имеет тип опять же Word.Range, но возможно, что в данном случае форматирование будет учтено... Просто надо проверить. |
||
Страница: 1 |