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
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