Send Range of Cells to Body Of Outlook 365 Without Crashing

[ExcelVBAnovice]

Firstly, I'm not a programmer, but I dabble with Excel coding & VBA. I coded an Excel workbook 10 years ago to Email cells into the body of Outlook & it's worked great through
Office 2013, 2016 & 2021 but with Outlook 365 when clicking the 'send this section' tab, Outlook crashes

Sub Email_Instruction2()

ActiveSheet.Range("$A$1:$L$23").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Here it is"
.Item.to = "VBA@mail.com"
.Item.Cc = ""
.Item.Subject = "Returns"

End With

End Sub

The cells are text, VLOOKUP coding to bring in descriptors from a stock code & there is one small picture.
Is there anyone who can tell me how to fix this?

Thank you

 

[Skyybot]

Should there be a

.Send

in there somewhere?

 

[Skyybot]

Also, are you getting a Runtime Error?

 

[Skyybot]

Are you signed in to a Microsoft Account in Excel/Outlook?

 

[ExcelVBAnovice]

Should there be a

.Send

in there somewhere?

Thank you for your reply. It's a Prescripted Email with recipient addresses already populated, but sometimes my Email address needs to be added when an investigation is required. I think .SEND would send it before any modification could be made. I have attached a screenshot where the user would click the send this section tab and normally this works, but with 365 it crashes after a second or two. I just tested this test file on Office 2021 with my Email address & it sent & received OK. At home, 365 is not signed in, at work 365 is signed in & both crash & automatically reopen stating something went wrong. No report of a runtime error.

 

[Skyybot]

Can you share the code attached to the "GO" button?

 

[ExcelVBAnovice]

Can you share the code attached to the "GO" button?

Sub Test()

ActiveSheet.Range("$A$1:$L$23").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Here it is"
.Item.to = "test@mail.com"
.Item.Cc = ""
.Item.Subject = "Returns"

End With

End Sub

I swapped my Email address with test@mail.com, otherwise this is the code.

 

[Skyybot]

This is working for me. After code runs I hit Alt+S.

Sub mailSheet()
With ActiveSheet.MailEnvelope
.Introduction = "Please read this and send me your comments"
    With .Item
        .To = "someone@email.com"
        .CC = "someoneelse@email.com"
        .Subject "Here is the document"
    End With
End With
End Sub

 

[ExcelVBAnovice]

This is working for me. After code runs I hit Alt+S.

Sub mailSheet()
With ActiveSheet.MailEnvelope
.Introduction = "Please read this and send me your comments"
    With .Item
        .To = "someone@email.com"
        .CC = "someoneelse@email.com"
        .Subject "Here is the document"
    End With
End With
End Sub

Tested this on Office 2021 & it errored at .Subject "Here is the document". I'll test it on 365 and if it works, I'll have to have two lots of code, if 365, run this, otherwise run my original code. I had to do this on a file for renaming files for 32 & 64 bit. I'll test it later today & get back to you. Thank you

 

[Skyybot]

Tested this on Office 2021 & it errored at .Subject "Here is the document". I'll test it on 365 and if it works, I'll have to have two lots of code, if 365, run this, otherwise run my original code. I had to do this on a file for renaming files for 32 & 64 bit. I'll test it later today & get back to you. Thank you

It errors on Subject because I forgot the = sign. Sorry.

.Subject = "Here is the document"