| Вопрос: Как вставить файл как текст в Outlook | Добавлено: 03.10.05 02:19 |
Автор вопроса:  Andrey
|
| Подскажите, как Как можно вставить в тело письма (.Body =) Outlook текст из текстового файла так чтобы он был телом письма. Спасибо |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  .COM ICQ: 212158853 Вопросов: 4 Ответов: 79 |
Профиль | | #1 | Добавлено: 05.10.05 23:31 |
|
...ну я вот так делал...
Dim OlApp As Outlook.Application Dim Mail As Outlook.MailItem Set OlApp = CreateObject("Outlook.Application" 
Set Mail = OlApp.CreateItem(olMailItem) Mail.To = "mail@mail.ru" Mail.Subject = "Тема письма" Open "C:\пример.txt" For Input As #1 Do While Not EOF(1) Line Input #1, var Mail.Body = Mail.Body & Chr(13) & var Loop Close Mail.Display ...ну и там все (OlApp,Mail) позакрывать в конце... |
||
|
Номер ответа: 2 Автор ответа: .COMICQ: 212158853 Вопросов: 4 Ответов: 79 |
Профиль | | #2 | Добавлено: 05.10.05 23:44 |
|
а вот вопрос из этой же оперы, но немного позаморочнее...
Как вставить в тело письма из 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 |