Código VBA inibir alerta envio de e-mail outlook

[Rodolfo Bargeri]

Pessoal bom dia,

estou com um novo problema no código onde envio e-mails a partir do excel por código vba.

Já entrei no Outlook e abaixei o nível de segurança, onde permitia que os macros fossem executados sem nenhum aviso, porém o aviso persiste em aparecer.

Já substitui o código .send por outro com ("%r") para que emulasse o Outlook, e assim aparecesse a janela de envio de e-mail preenchida, porém queria que fosse automaticamente mesmo.

Agradeço desde já!

 

 'codigo para envio de e-mail quando chamado for aberto'
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    With OutlookMail
        .To = "[email protected]"
        .Subject = "Chamado aberto"
        .body = "Chamado aberto no Help Desk, verifique!"
        .send
    End With
    
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
   
    ActiveWorkbook.Save
    Sheets("Banco de Dados").Protect "ZuccA"
    Application.DisplayAlerts = False
    ThisWorkbook.Close