Вставить из WordEditor в тело письма без отображения почты

Question

Я отправляю несколько писем через Excel, копируя содержимое файла Word в тело письма. Для этого и для соблюдения начального формата, определенного в файле слова, я использую getInspector.WordEditor.

Тем не менее, в этой конфигурации я не могу заставить его работать, если я не отображаю окно почты.

Есть ли обходной путь? Единственный, который я нашел, это показывал, и сразу после вставки скрывал это ... но не очень умно.

Спасибо :))

Вот код:

Sub createMail(Chemin As String)
    Dim outlookApp As Outlook.Application
    Dim myMail As Outlook.MailItem
    Dim oAccount As Outlook.Account
    Set outlookApp = New Outlook.Application
    Set myMail = outlookApp.CreateItem(0)

    Set wd = CreateObject("Word.Application")
    Set doc = wd.Documents.Open("path.docx")
    doc.Content.Copy
    doc.Close
    Set wd = Nothing

    With myMail
        .Display
    Set Editor = .GetInspector.WordEditor
    Editor.Content.Paste
        .Display (False)
        .To = dataExcel(8)
        .Subject = "[X] Reçu de don_" & Year(Now())
        .Attachments.Add Chemin
        .Send
    End With
End Sub