script to attach pdf to outlook message does no work

I'm running the following code to attach a pdf report to an Outlook mail message. The reference object library has been set to Microsoft Outlook 9.0 object library. Nothing happens, no errors, no nothing. What am I missing?....Thanks Ziggy

Function attpdf()
Dim strRecipient As String
    Dim strSubject As String
    Dim strAttachments As String
    Dim objMailItem As Outlook.MailItem
    Dim objOutlookAttach As Outlook.Attachment      
    Dim olkApp As Outlook.Application
    Dim olkNameSpace As NameSpace
       
    Set olkApp = New Outlook.Application
   
    Set olkNameSpace = olkApp.GetNamespace("MAPI")
    Set objMailItem = olkApp.CreateItem(olMailItem)

With objMailItem
      '  .To = Forms!frmOrders!contEmail
        .To = "esql"
        .Recipients.ResolveAll
        .Subject = "eProject Expenses Claim Report"
             
          Set objOutlookAttach = .Attachments.Add("c:\pdfreports\output.pdf")    

   Debug.Print "111"                                                                                             End With
End Function