Chart is posting at the top of the email but I want it at the bottom

[daveyc18]

Set wEditor = OutApp.ActiveInspector.wordEditor

Set WSemail = Sheets("email")



On Error Resume Next
With OutMail

.To = to_list
.cc = cc_list
.Subject = "dfssdfsdfsdfsdf"

.htmlbody = StrBody & RangetoHTML(rng) & Signature
.attachments.Add fname




.Recipients.ResolveAll ' check names


WSemail.ChartObjects("mmkt_chart").Copy
wEditor.Application.Selection.Paste


.Display






End With
On Error GoTo 0

 

[Domenic]

Try replacing...

wEditor.Application.Selection.Paste

with

    With wEditor
        .Application.Selection.EndKey Unit:=6  '6=wdStory
        .Application.Selection.TypeParagraph
        .Application.Selection.TypeParagraph
        .Application.Selection.Paste
    End With

Hope this helps!

 

[daveyc18]

Try replacing...

wEditor.Application.Selection.Paste

with

    With wEditor
        .Application.Selection.EndKey Unit:=6  '6=wdStory
        .Application.Selection.TypeParagraph
        .Application.Selection.TypeParagraph
        .Application.Selection.Paste
    End With

Hope this helps!

thank you!

but i didnt make it clear...it comes after the signature , but i'd like it above the signature

might not be possible...if not, good enough!

 

[Domenic]

Try the following...

With OutMail
    .Display
    .To = to_list
    .CC = cc_list
    .Subject = "dfssdfsdfsdfsdf"
    .HTMLBody = StrBody & RangetoHTML(Rng)
    .Attachments.Add FName
    .Recipients.ResolveAll ' check names
    WSemail.ChartObjects("mmkt_chart").Copy
    With wEditor
        .Application.Selection.EndKey Unit:=6  '6=wdStory
        .Application.Selection.TypeParagraph
        .Application.Selection.TypeParagraph
        .Application.Selection.Paste
    End With
    .HTMLBody = .HTMLBody & Signature
End With

Hope this helps!

 

[daveyc18]

Try the following...

With OutMail
    .Display
    .To = to_list
    .CC = cc_list
    .Subject = "dfssdfsdfsdfsdf"
    .HTMLBody = StrBody & RangetoHTML(Rng)
    .Attachments.Add FName
    .Recipients.ResolveAll ' check names
    WSemail.ChartObjects("mmkt_chart").Copy
    With wEditor
        .Application.Selection.EndKey Unit:=6  '6=wdStory
        .Application.Selection.TypeParagraph
        .Application.Selection.TypeParagraph
        .Application.Selection.Paste
    End With
    .HTMLBody = .HTMLBody & Signature
End With

Hope this helps!

just had to add .display right above end with

worked like a charm...thank you!

 

[Domenic]

You're very welcome, cheers!