[VBA] Invio mail da Excel senza richiesta autorizzazione

[michela85cancro]

Buongiorno a tutti

Ho creato la seguente macro per l'invio di mail da excel con l'intenzione di evitare che outlook chieda l'autorizzazione dell'invio.

Dim o As Object
Dim m As Object
Dim i As Variant
Dim Path1 As String


For i = 1 To Worksheets("dbSpedizione").Range("B1")
    Set o = CreateObject("Outlook.Application")
    Set m = o.CreateItem(OlMailItem)

'// ****** Imposto le Path dei file allegati
    Path1 = "c:\allegati\"
    
'// ****** Creo le mail con i destinatari e gli eventuali copia per conoscenza e le setto con priorità alta
    m.To = Worksheets("dbSpedizione").Cells(3 + i, 2) & ";"
    m.Subject = Worksheets("dbSpedizione").Cells(3 + i, 3)
    m.Body = "Gentile " & Worksheets("dbSpedizione").Cells(3 + i, 1) & Chr(13) & " vi inviamo il documento"
    m.Importance = olImportanceHigh

'// ****** Ricerco gli allegati per le mail
  '  If File.Exist(Path1 & Worksheets("dbSpedizione").Cells(3 + i, 4) & ".pdf") Then
        m.Attachments.Add Path1 & Worksheets("dbSpedizione").Cells(3 + i, 4) & ".pdf" '// allego il file
  ' End If

   'm.DeleteAfterSubmit = False

'// ****** Visualizzo le mail prima dell'invio
  '  m.Display
    Application.Wait (Now + TimeValue("0:00:10"))
    Set o = Nothing
    Set m = Nothing

    Application.SendKeys "%a"
    
 Next

Usando Application Sendkeys "%a" non viene effettuato alcun invio, neppure se uso "%s"...
Per inviare devo usare m.Send, ma a questo punto outlook mi chiede la conferma... come posso fare?

Grazie in anticipo

[michela85cancro]

L'invio viene effettuato senza richiesta di autorizzazione se metto m.Display
In tal caso però viene comunque mostrata per qualche secondo prima di essere spedita la mail e se viene effettuata qualche altra operazione con il pc l'invio si blocca, perchè ovviamente si perde il focus della mail e l'invio con ALT+A non funziona...
C'è un modo per ovviare a questo? ho cercato in rete, fatto decine e decine di prove ma non ho risolto nulla...