Using MailEnvelope to create emails as draft

[JJClark]

I created this macro which is working.
The problem is that I am stuck trying to see and adjust the size of the tables before sending.
When I use .send the email goes.
When I use .display it creates the email within the excel and I select the range, but don't end up seeing the email before it goes.
Any suggestions?


Private Sub CommandButton1_Click()

' Some operations of copy paste
'Then I copy the sheet to a new one where I clean extra rows for the final report. Te final report sheet is to be deleted in the end so that every month I start with the main sheet.



ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = "mail"
.Item.Subject = "name"
.Item.SEND
End With

Application.DisplayAlerts = False
Sheets("final report sheet").Delete
Application.DisplayAlerts = True

End Sub

Any suggestions??

 

[Molden]

remove .Item.SEND and put .Item.display
you'll have to send it yourself but you'll see the email now

 

[JJClark]

remove .Item.SEND and put .Item.display
you'll have to send it yourself but you'll see the email now

Hi! Thanks for reaching out.
I have been using .Item.display too. The problem is: it creates an email showing my excel file for me to select the range and send.
When I receive the email I feel the need to do resend and edit the size of the tables.
Make columns larger, etc.

I wanted to see the email with the tables already copied, as they will show when the email is sent.