unable to send Image through mail using cdo.message

hi
i have written a code in vb for sending the mail all is happening right but when i try to send mail with image iam unable to do that

my code is

Dim email, log
log = "
hello"
Set email = CreateObject("cdo.message")
With email
.To = "Something@Domain.com"
.Subject = "something "
.From = "Anything@Domain.com"
.HTMLBody = log
.Send
End With

it is very urgent iam in big trouble please help me

Thanks
Bye