MS Access - email s prílohami cez Outlook

[Milan25]

Zdravím, používam MS Access 2007 a chcel by som poslať z formulára automaticky email prostredníctvom MS Outlook 2007 s viacerými prílohami, prípadne z vybraného adresára vložiť všetky prílohy pdf do emailu.
Funguje mi len sendobject, avšak tam nie je možnosť pridať viacero príloh, aktuálne používam tento kód, avšak Outlook nereaguje a nevyvolá okno.
Viete mi niekto poradiť, či je v zápise chyba alebo iný funkčný kód (referencie mám zapnuté tiež na MS Outlook vo VBA):

Private Sub Email_Click()

Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

Dim strPath As String
Dim strFilter As String
Dim strFile As String

On Error GoTo Err_Send

strPath = "C:\dokumenty\"
strFilter = "*.pdf"
strFile = Dir(strPath & strFilter)

If strFile <> "" Then

With MailOutLook
.BodyFormat = olFormatRichText
.To = Nz(Me.E_mail, Null)
.cc = Null
.bcc = Null
.Subject = "test"
.HTMLBody = Null
.Attachments.Add (strPath & strFile)
.Send
End With

Else
MsgBox "No file matching " & strPath & strFilter & " found." & vbCrLf & _
"Processing terminated."
Exit Sub

End If

Err_Send:
If Err.Number = 2501 Then
MsgBox "Zaslanie E-mailu zrušené používateľom", vbInformation, "INFO"
End If

end sub