Добавьте изображение к почте через код VBA - изображение пустое - PullRequest
Новая
       7

Добавьте изображение к почте через код VBA - изображение пустое

0 голосов
/ 13 ноября 2018

Согласно моему последнему вопросу - Добавление таблицы текста и Excel в виде рисунка к электронному письму , где я спросил о добавлении изображения и текста в OutMail через код VBA, я нашел решение (код ниже) ) но по какой-то причине картинка не добавляется в тело письма (вместо нее появляется ошибка) - см. рисунок ниже. Пожалуйста, помогите, что я могу сделать, чтобы увидеть картинку.

Вот код: 

Sub SendCA_list()

Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")

Dim oMail As Object
Set oMail = oApp.CreateItem(0)

Dim rng As Range
Set rng = Sheet1.Range("Table4[[#All],[Department]:[Status]]")
rng.CopyPicture xlPrinter

Dim chartObj As ChartObject
Set chartObj = Sheet1.ChartObjects.Add(0, 0, rng.Width, rng.Height)

chartObj.Select
chartObj.Chart.Paste
chartObj.Chart.Export ThisWorkbook.Path & "\table.png", "png"
chartObj.Delete

Dim strbody As String
strbody = "<BODY style='font-size:12pt;font-family:HP Simplified'>" & "Hi,<br><br>Please see attached the ISO Internal Audit Report and the open AIs (in the table below)."
strbody = strbody & "<br><img src='cid:table.png'/>"
strbody = strbody & "<br><br>Best Regards,<br>Shira<br><br></BODY>"

With oMail

    .Subject = "Request for CAs - ISO Audit"
    .Attachments.Add ThisWorkbook.Path & "\table.png", 1, 0
    .htmlbody = strbody
    .Display
End With

End Sub

enter image description here

...