With xReplyMailItem
    .Subject = "[I] " & Item.Subject
    .Attachments.Add "W:\ABC\0 Archiwum\picture1", olByValue, 0
    .HTMLBody = strbody & "<br></br>" & "<img src=""W:\ABC\0 Archiwum\picture1"" width=50>" & .HTMLBody
    .Display
End With