Excel den Outlook Resim Yapıştırma Sorunu

[alikemal_84]

Merhaba Üstatlar.

Daha düne kadar çalışan komutta bir sıkıntı oldu ve yardımcı olabileceğinizi umuyorum.

Excelden otomatik olarak mail gövdesine resim olarak yapıştırıyordu.
Şimdi ise EK olarak ekliyor ve gövdede görüntülenmiyor.

Office 2013 türkçe kullanıyorum.

Şimdiden yardımlarınız için teşekkürler.

Sub Mail_Gönder_rent()
Dim ek As Object
Dim objOlk As Object, evn As Object, strresmim As String
Dim objEkle As Object, objevn As Object, evngovde As String
ActiveWindow.Zoom = 200
strresmim = "c:\resim\resim.jpg"
ActiveWindow.DisplayGridlines = False
Range("B238").CopyPicture xlScreen, xlBitmap
ActiveWindow.DisplayGridlines = True
ActiveSheet.ChartObjects.Add 0, 0, 300, 300
Set ek = ActiveSheet.ChartObjects(1).Chart
ek.Paste
ek.Export strresmim
ek.Parent.Delete
Set objOlk = CreateObject("Outlook.Application")
Set evn = objOlk.CreateItem(0)
evn.To = [S2].Value
evn.Subject = [S3].Value
evn.CC = [S4].Value
evn.BCC = [s5].Value
Set objEkle = evn.Attachments
Set objevn = objEkle.Add(strresmim)
evn.Close olSave
evn.HTMLBody = evngovde & "<br><IMG alt='' hspace=0 src='cid:'" & _
strresmim & "'' align=baseline border=0><br></BODY>"
evn.Save
evn.Display
strresmim = vbNullString
Set evn = Nothing: Set objOlk = Nothing
Set objevn = Nothing: Set objEkle = Nothing
evngovde = vbNullString: Set ek = Nothing
ActiveWindow.Zoom = 100
End Sub