Selamat siang,
Mohon dibantu, saya ingin copy paste suatu file gambar yang tersimpan
dlm suatu drive ke body email (outlook)
Saya sudah coba dgn macro berikut, tetapi gambarnya tidak muncul di
body email outlook, hanya nampak sperti kotak dan diujung sebelah kiri
terdapat tanda silang.
Berikut macronya:
Sub EmbedImageasbody()
Dim OL As Object, rng As Range
Dim EmailItem As Object
Const mypath As String = "D:\My Documents\My Pictures\"
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
'Set MItem = OutlookApp.CreateItem(0)
'Set EmailItem = OL.CreateItem(0)
'Dim objOL As Outlook.Application
'Set objOL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(0)
EmailItem.Attachments.Add mypath & "Picture-100211.jpg"
EmailItem.HTMLBody = "<html><p>This is a picture.</p>" & _
"<img src='cid:pictest.jpg' height=480 width=360>"
EmailItem.Display
End Sub
Mohon bantuan master belajar excel, bagaimana caranya agar gambar bisa
tampil. Apakah ada kondisi tertentu yg perlu di setting di PC saya.
Jika saya insert file/picture secara manual di outlooknya sepertinya
tidak masalah. tetapi melalui macro gambarnya belum bisa tampil.
Terima kasih banyak
