Outlook, Excel & Word - Мир MS Excel

Вход

Регистрация

Напомнить пароль

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

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Outlook, Excel & Word (отправка письма через Outlook из Excel с текстом из Word)

Outlook, Excel & Word

xjoexx

Дата: Среда, 03.04.2013, 16:23 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Добрый день!
Подскажите пожалуйста, как вытянуть из вордовского документа хранящегося на сервере текст и вставить его в тело письма 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 = "Test"

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

Ответить

Outlook, Excel & Word (отправка письма через Outlook из Excel с текстом из Word)

Страница 1 из 1
1