Mungkin pada tag image source nya dirujukkan ke file attachment yang dimaksudkan pak. (ganti bagian yang di-*bold*
<img src='cid:*pictest.jpg*' height=480 width=360> Kid. 2011/4/18 slamet harto <[email protected]> > > > 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 > >
