INVIO MAIL CON ALLEGATI ESTERNI

Ciao a tutti

Vi scrivo perché in questo periodo di crisi, ogni volta che faccio una determinata pratica devo inviare una mail con due allegati (uno è un report preparato con access, l'altro è un allegato pdf opportunatamente salvato in una determinata cartella)

Questo è il codice che attualmente uso:

Private Sub Valida_Click()
On Error Resume Next

Dim OutApp As Object
Dim OutMail As Object
Dim strMsg As String
Dim strDest As String
Dim all1 As String
Dim all2 As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strMsg = "Si invia in allegato la dichiarazione di consistenza aziendale da firmare e ritrasmettere a mezzo mail all indirizzo xxxx@xxxxx.xx"

strDest = Forms("frmSchedaAziendale")![Mail Aziendale]

all1 = "C:\Validazioni da inviare\VALIDAZIONE.pdf"

    With OutMail
        .To = strDest
        .CC = ""
        .BCC = ""
        .Attachment.Add (all1)
        .Subject = "Invio Fascicolo Aziendale " & Forms("frmSchedaAziendale")!Denominazione
        .HTMLBody = strMsg
        .Display
    End With

Set OutMail = Nothing
Set OutApp = Nothing

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.Close acForm, "frminsvalidazioni", acSaveYes
End Sub

Con questo codice però mi apre solo l'applicativo con tutto compilato ad eccezione degli allegati

Cosa devo aggiungere? O, meglio, cosa sbaglio?