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