Automatically allow outlook to send email in excel vba

[Niteshnitesh]

Hi all,
Please find the below code. I have created a loop in my orignal file, I can't share because that is on my work desktop. My macro send data to 100s address that works fine
1. but the problem I have faced that I have to click 100 times allow button in outlook.
2. Another problem I am facing it send data from my personal account (default). I have to set my genric mail box as default.(mzhrk@courtyard.com) . somtime I have forget to set my genric mail box as default it send 100 wrong email and I have to recalled them.
Please tell me if there is any security setting or code that help me. Provide changes in below code.Thanks

Sub Send_Range()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("A1:B5").Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "E-Mail_Address_Here"
.Item.Subject = "My subject"
.Item.Send
End With
End Sub