Disable the mail security dialog box to send/not send the mail Excel VBA

[ajayambekar1151]

Hi, looking for some help. A macro is written in Excel VBA to send email through Outlook. I am getting an error, A program is trying to send email on your behalf. Please note that this macro will run on multiple systems where Outlook 365 is installed. In outlook 365, there are restrictions to do any changes in Outlook Trust Center settings also can't change anything in Windows registry. Please help. I am using below code.

Sub send_email()
application.displayalerts = false
dim outapp as object
Dim outmail as object
Set outapp = createobject("outlook.application")
with outmail
.To = ""
.cc = ""
.body ""
.send
End with
Set outmail = nothing
Set outapp = nothing
​​​​​​Application.displayalerts = True
end sub

 

[mole999]

it relates to outlook having a good antivirus that ms works with, when its happy, you don't get the warnings