Boa tarde amigos,
estou com uma rotina que varre o banco de dados e envia um e-mail para cada um anexando seu relatório. A rotina está funcionando porém tem duas situações que estão pegando. Seguem abaixo:

1-Não estamos conseguindo anexar o arquivo, a rotina está correta, mas o comando de anexar está errado. Não sei para onde ir mais;

2-Quando a mensagem chega ao Outlook ele pede autorização do usuário antes de enviar o e-mail, tem como enviar os e-mails sem solicitar autorização do usuário?

Segue abaixo o código para melhor analise.

Private Sub CommandButton4_Click()
    Sheets("APOIO").Select
    Range("D1").Select
    ultimalinha = Sheets("APOIO").Cells(Cells.Rows.Count, 4).End(xlUp).Row
    If ultimalinha < 3 Then ultimalinha = 2
    For x = 2 To ultimalinha
    anexo = "C:UsersOZENIRDesktopUbla" & Sheets("APOIO").Range("D" & x).Value & ".xlsx"
        Dim olMail As Object
        On Error Resume Next
        Set appOutlook = GetObject(, "Outlook.Application")
        
        If appOutlook Is Nothing Then
            Set appOutlook = CreateObject("Outlook.Application")
        End If
        
        On Error GoTo 0
        Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail
        With olMail
            .To = Sheets("APOIO").Range("E" & x).Value
            .Subject = "Relatório Analítico dos Bônus - " & Sheets("APOIO").Range("D" & x).Value
            .Attachments.Item anexo
            .Body = Sheets("APOIO").Range("K2").Value
            .Send
        End With
    Next x
End Sub