Отправить HTML письмо со встроенными изображениями по ссылкам в письме

Question

'Мне бы хотелось, чтобы изображение под ссылками в электронном письме больше не отправлялось, даже электронное письмо.

Sub Email_From_Excel_Basic()

Dim emailApplication As Object
Dim emailItem As Object
Dim mymsg As String
Dim cell As Range

Application.ScreenUpdating = False
Set emailApplication = CreateObject("Outlook.Application")
Dim olAttach As Outlook.Attachment

On Error GoTo cleanup
With Sheets("Arbeitsblatt exportieren")
LastRow = .Range("C" & .Rows.Count).End(xlUp).Row
End With

For Each cell In Worksheets("Arbeitsblatt exportieren").Range("C2:C" & LastRow)
    Set emailItem = emailApplication.CreateItem(0)

    If cell.Value Like "?*@?*.?*" Then
        With emailItem
        .To = Cells(cell.Row, "C").Value
        .Subject = "Customers and partners"

' Это то, что я настроил, но оно говорит мне, что не так.

        .Attachments.Add "file://Users\Jay\VBA%20Mass%20Mailing\CloudPicture.jpg", olByValue, 0
        .HTMLBody = "<p align=""center"">" & "If this email does not display properly, please click " & _   "<A href=http://us.local-news.com/ov?mailing=3TVGZMLJ-WDS49&m2u=3TVGZMLK-3TVGZMLJ-12Z630I>" & _
                "here</A>" & vbNewLine & vbNewLine & vbNewLine & _
        .HTMLBody = .HTMLBody & "<br><B>Embedded Image:</B><br>" _
                & "<img src=’cid:CloudPicture.jpg’" & "width=’500' height=’200’>"
        .Send

'Здесь все хорошо.

        End With
    Set emailItem = Nothing
    End If
Next cell

cleanup:
Set emailApplication = Nothing
Application.ScreenUpdating = True
End Sub