Вставьте текстовый документ внизу сообщения электронной почты, а не вверху - PullRequest
0 голосов
/ 07 мая 2019

Как я могу скопировать и вставить содержимое текстового документа в нижнюю часть объекта электронной почты VBA, а не в верхнюю часть?Как я сейчас и делаю, текстовый документ автоматически вставляется в начало сообщения, даже если тело письма устанавливается первым.

Чтобы вставить слово doc, я использовал для справки следующее: Как отправить документ Word как текст письма с VBA

    Dim wd As Object, editor As Object
    Dim doc As Object
    Set wd = CreateObject("Word.Application")
    Set doc = wd.documents.Open("word address", ReadOnly:=True)
    doc.Content.Copy

Set Mail_Object = CreateObject("Outlook.Application")
        With Mail_Object.CreateItem(o)
            .Subject = "subject"
            .To = "to"
            '.BodyFormat = olFormatHTML
            'Set editor = .GetInspector.WordEditor
            'editor.Content.Paste
            .htmlbody = "this should be at top"
            .Display 

        Set doc = Mail_Object.ActiveInspector.WordEditor
            doc.Application.Selection.Paste

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...