Macro I put together to copy cell range as image and email is not working

[1nk3d]

Hey everyone, I put the below together and am having a problem. First I am new with macros, and am learning more every day, so maybe it is a simple fix....

The below will copy a cell range, and paste into an email that is sent to select recipients.

When I change the ending to .display , the image shows up. When it is set to .send, it just sends a blank image.

I chose the image, because I have a lot of hidden columns with formulas and when I need for it to not send those.

Any help would be appreciated

Sub Mail()
Dim r As Range
Set r = Worksheets("SAT").Range("A1:AD69")
r.Copy
Dim OutApp As Object
    Dim outMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set outMail = OutApp.CreateItem(0)
On Error Resume Next
    With outMail
    .HTMLBody = activeMailMessage.HTMLBody
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "Report Complete"
  Dim wordDoc As Word.document
Set wordDoc = outMail.GetInspector.WordEditor

wordDoc.Range.PasteAndFormat wdChartPicture
outMail.send
End With
End Sub

 

[daverunt]

I think the message must be displayed in order to paste into it.

Try adding display at the message start as shown. It should display for a second or so then send.

    With outMail
    .Display
    .HTMLBody = activeMailMessage.HTMLBody

 

[1nk3d]

Still the same thing. It will display but when it sends its blank

 

[daverunt]

Try adding a few seconds wait just before the send to see if that works.
- Can you see the image in the created mail prior to it sending?

Application.Wait (Now + TimeValue("0:00:05"))

 

[1nk3d]

I just figured it out, I’m on mobile. I added the .send after the word portions and it now works. I tried it with and without your first suggestion, and it definitely needs to be displayed first prior to sending.

Thanks for your help!

 

[daverunt]

I assumed you'd understand you were only adding display, not removing anything . Mobiles eh? Not best for reading forum posts.
Glad you got it working.