Excel VBA для копирования Word Doc в Outlook - изображения исчезают - PullRequest
Новая
       12

Excel VBA для копирования Word Doc в Outlook - изображения исчезают

0 голосов
/ 05 января 2019

Я использую технику копирования документа word в буфер обмена, а затем вставляю его в тело объекта Outlook. Это работает как чудо, когда я запускаю код на компьютере с Windows 10, однако, когда я пытаюсь запустить точный код с копией того же документа Word на компьютере с Windows 7, копируется все, кроме изображений. Любые идеи, что вызывает это, и если есть обходной путь?

Ценю любые идеи. Меня выгоняют в гугл и я не нашел решения.

Вот код Поместить в буфер обмена 

'
    Set wd = CreateObject("Word.Application")
    Set doc = wd.documents.Open(WordFile)
    doc.Content.Copy
    doc.Close
    Set wd = Nothing

'   Here is the code to setup and send email

'
            Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
'
            With OutMail
'
                .To = cell.Value
                .Subject = TSubject
'
'          Customize Saluation
'
                cusname = Cells(cell.Row, "A").Value
                SalLines = Salutation & " " & cusname & vbCrLf
'
                .BodyFormat = olFormatRichText

                Set editor = .GetInspector.WordEditor
                editor.Content.Paste
 '     Without the following line the content does not appear
                .Display
'
                .htmlbody = SalLines & .htmlbody
'
'
                .Display
                .Send
'
                'You can add files also like this
                '.Attachments.Add ("C:\test.txt")
'
'
            End With

1 Ответ

0 голосов
/ 16 января 2019

Проблема решена. При добавлении дополнительного Bodyformat = olformathtml непосредственно перед вставкой приветствия все работает отлично.

...