Версия для слабовидящих
Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

 

= Мир MS Excel/Outlook, Excel & Word - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Outlook, Excel & Word
xjoexx Дата: Среда, 03.04.2013, 16:23 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Добрый день!
Подскажите пожалуйста, как вытянуть из вордовского документа хранящегося на сервере текст и вставить его в тело письма Outlook. Макрос должен запускать из под Excel книги. Весь день ковыряюсь, не могу найти верного решения.
Вот текущий код, который пытаюсь реализовать.

Dim OutApp As Object
Dim OutMail As Object
Dim wApp As Object
Dim wDoc As Object
Dim objClpBrd As DataObject, sClpbrdText As String
On Error Resume Next

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set wApp = CreateObject("Word.Application")
Set wDoc = wApp.Documents.Open("c:\document.docx")

With OutMail
.To = "test@test.com"
.Subject = "Test"

wDoc.Select
Selection.Copy
Set objClpBrd = New DataObject
objClpBrd.GetFromClipboard
sClpbrdText = objClpBrd.GetText

.Body = objClpBrd.GetText
.Display
End With

On Error GoTo 0



Сообщение отредактировал xjoexx - Среда, 03.04.2013, 16:23
 
Ответить
СообщениеДобрый день!
Подскажите пожалуйста, как вытянуть из вордовского документа хранящегося на сервере текст и вставить его в тело письма Outlook. Макрос должен запускать из под Excel книги. Весь день ковыряюсь, не могу найти верного решения.
Вот текущий код, который пытаюсь реализовать.

[vba]
Dim OutApp As Object Dim OutMail As Object Dim wApp As Object Dim wDoc As Object Dim objClpBrd As DataObject; sClpbrdText As String On Error Resume Next Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Set wApp = CreateObject("Word.Application") Set wDoc = wApp.Documents.Open("c:\document.docx") With OutMail .To = "test@test.com" .Subject = "Тest" wDoc.Select Selection.Copy Set objClpBrd = New DataObject objClpBrd.GetFromClipboard sClpbrdText = objClpBrd.GetText .Body = objClpBrd.GetText .Display End With On Error GoTo 0
[/vba]

Автор - xjoexx
Дата добавления - 03.04.2013 в 16:23
  • Страница 1 из 1
  • 1
Поиск:

Рейтинг@Mail.ru Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!