在 Outlook email 之后添加签名。正文使用 Excel VBA

Question

In Excel VBA I want to create a macro to send a letter via Outlook.

I need a signature, but I cannot create it, because I have a .Body part and I need to paste a dynamic range of cells after it.

With newEmail
    .Display
    .SentOnBehalfOfName = ""
    .To = ""
    .CC = ""
    .Subject = ""
    .BodyFormat = olFormatHTML
    .Body = "Good day" & vbCrLf & "bla bla "

    Set xInspect = newEmail.GetInspector
    Set pageEditor = xInspect.WordEditor

    Sheet1.Range("G128", ActiveSheet.Range("G128").End(xlDown)).Copy
    
    pageEditor.Application.Selection.Start = Len(.Body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.Paste
    
    .Display
    .Send

What and where should I add, to add a signature after the code pastes the range?

PS .Body before the range is necessary.

Answer 1

In Excel VBA I want to create a macro to send a letter via Outlook.

I need a signature, but I cannot create it, because I have a .Body part and I need to paste a dynamic range of cells after it.

With newEmail
    .Display
    .SentOnBehalfOfName = ""
    .To = ""
    .CC = ""
    .Subject = ""
    .BodyFormat = olFormatHTML
    .Body = "Good day" & vbCrLf & "bla bla "

    Set xInspect = newEmail.GetInspector
    Set pageEditor = xInspect.WordEditor

    Sheet1.Range("G128", ActiveSheet.Range("G128").End(xlDown)).Copy
    
    pageEditor.Application.Selection.Start = Len(.Body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.Paste
    
    .Display
    .Send

What and where should I add, to add a signature after the code pastes the range?

PS .Body before the range is necessary.

Answer 2

Create a new range in the Word document and call Range.insertFile() to insert the HTML file of the signature.

Answer 3

If you construct a signature in the code and store it in a variable, eg Signature, you could do something like this...

With newEmail
    .SentOnBehalfOfName = ""
    .To = ""
    .CC = ""
    .Subject = ""
    .BodyFormat = olFormatHTML
    .Body = "Good day" & vbCrLf & "bla bla "
    
    Sheet1.Range("G128", ActiveSheet.Range("G128").End(xlDown)).Copy
    
    With .GetInspector.WordEditor.Range
        .Collapse 0
        .Paste
        .Collapse 0
        .Text = vbCrLf & Signature
        .Style = "No Spacing"
    End With
    
    .Display
    '.Send
End With

Answer 4

Try to add at the end.body =.body &.HTMLbody