I'd like to mofify this code (if possible) so that it includes the picture
that is in the body of the e-mail.

Sub ReplyDelightful()
Set objInsp = Application.ActiveInspector
If Not objInsp Is Nothing Then
Set objItem = objInsp.CurrentItem
If objItem.Class = olMail Then
Set objReply = objItem.Reply
With objReply
.Body = "Delightful!" & vbCrLf & vbCrLf & "Thanks," & vbCrLf
& "David" & vbCrLf & .Body
.Display
End With
End If
End If

End Sub