Вставьте содержимое документа Word в электронное письмо и включите подпись по умолчанию с помощью VBA - PullRequest
Новая
       35

Вставьте содержимое документа Word в электронное письмо и включите подпись по умолчанию с помощью VBA

0 голосов
/ 18 сентября 2018

Я использовал код, предоставленный Патриком Уинном в Как отправить документ Word как текст письма с VBA , но он перезаписывает подпись.Есть ли способ изменить код, чтобы оставить подпись по умолчанию на месте при вставке содержимого слова документа?

Вот код: 

Sub emailFromDoc()
    Dim wd As Object, editor As Object
    Dim doc As Object
    Dim oMail As MailItem

    Set wd = CreateObject("Word.Application")
    Set doc = wd.documents.Open(...path to your doc...)
    doc.Content.Copy
    doc.Close
    set wd = Nothing

    Set oMail = Application.CreateItem(olMailItem)
    With oMail
        .BodyFormat = olFormatRichText
        Set editor = .GetInspector.WordEditor
        editor.Content.Paste
        .Display
    End With
End Sub

1 Ответ

0 голосов
/ 22 сентября 2018

Вы можете использовать: 

Sub emailFromDoc()
    Dim wd As Object, editor As Object
    Dim doc As Object
    Dim Rng As Object
    Dim oMail As MailItem

    Set wd = CreateObject("Word.Application")
    Set doc = wd.documents.Open(...path to your doc...)
    doc.Content.Copy
    doc.Close
    Set wd = Nothing

    Set oMail = Application.CreateItem(olMailItem)
    With oMail
        .BodyFormat = olFormatRichText
        Set editor = .GetInspector.WordEditor
        Set Rng = editor.Content
        Rng.Collapse 1
        Rng.Paste
        .Display
    End With
End Sub
...