Reply with picture in body of message

[Maxx]

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

 

[Ken Slovak - [MVP - Outlook]]

If this is an HTML message try using HTMLBody. Body will only return the
plain text rendering of the message.

 

[Maxx]

Ken,
THank you very much for your help.
David

If this is an HTML message try using HTMLBody. Body will only return the
plain text rendering of the message.