Sudah coba copy image yang dibuka pada ms paint atau semacamnya dan paste ke outlook new email ? Jika bisa memunculkan imagenya, coba juga dengan insert picture si file image tersebut.
Berikut salinan script Anda yang disesuaikan untuk uji coba pada excel 2007
Dim OL As Object, rng As Range
Dim EmailItem As Object
Dim myPath As String
myPath = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(0)
EmailItem.Attachments.Add myPath & "*send_mail_add_images_to_email.gif*"
EmailItem.HTMLBody = "<html><p>Contohnya.</p><img src='cid:*
send_mail_add_images_to_email.gif*'>"
EmailItem.Display
syaratnya :
1. ada image file (dalam hal ini gif, bisa dengan yang lain dengan ganti
yang di *bold*)
2. file tersebut diletakkan pada folder yang sama dengan file yang
menggunakan script diatas. Jika dengan vba excel, maka file image yang
digunakan berada di folder yang sama dengan file excel tersebut.
3. VBA dapat ijin beroperasi dilokasi script di atas dan juga di outlook
Sepertinya tanpa CDO juga tetap bisa kok. Atau mungkin kalau xl2003 gak
begitu ya..
Ini screenshot contoh hasil script :
[image: send_mail_add_images_to_email.gif]
Regards.
Kid.
2011/4/18 slamet harto <[email protected]>
> Thanks Mr kid.. tetapi sepertinya problem masih sama. Saya
> menggunakan MS Outlook 2003.
>
> Mohon dibantu yaa.. terima kasih
>
<<send_mail_add_images_to_email.gif>>
