I would like to include a line of code to: request a read receipt for this
message.

I am not sure of how to code for this using:

With Sheets("Sheet1").MailEnvelope
.Item ? perhaps
End With


Thanks,
John