Add message when sending page as body of an email

[Fersta]

Hello All. I apologize in advance if this question gets a little long. I have a spreadsheet that contains a macro that will send the desired cells from the sheet as the body of an email.

Sub Email()


ActiveSheet.Unprotect
ActiveWorkbook.EnvelopeVisible = False
ActiveSheet.Range("Print_Area").Select
With ActiveSheet.MailEnvelope
.Item.to = "email@email.com"
.Item.Subject = "Production update_" & Worksheets("Sheet3").Range("A1").Value
.Item.Send
End With


ActiveSheet.Range("A30").Select
ActiveSheet.Protect
'Workbook must be saved in order to send another sheet using macro
ActiveWorkbook.Save

This works well, but does not allow the sender a chance to add a comment without sending a separate email. Is there any way that I could add something to the above macro that would open up a comment window where the sender could type a message that would be added to the email?

 

[GLower0617]

Change .item.send to .item.display

This will allow user to see email and edit before sending.

 

[Fersta]

Thanks. I tried that and it did not bring up an email. Screen flashed and sheet went to ("A30"), protected and saved. I do need it to still be able to protect and save since most who use it have never used excel anywhere else. I think if they had to hit the send button on the email, that would probably be where the macro would need to end. How it is now, the email sends automatically and all they have to do is close the spreadsheet when they are done.

 

[Logit]

.
https://www.rondebruin.nl/win/s1/outlook/mail.htm