Access 2000 send email

Hello, everybody, Im brand new in this forum, I would like to receive guidence in how I can send emails using Access 2000, using the Outlook object.

this is the code I tried but did not work
I received an error :” Run-time error ’91’
Object variable or With block variable not set

Private Sub Command2_Click()
Dim appOutlook As Outlook.Application
Dim msg As Outlook.MailItem

Set msg = appOutlook.CreateItem(olMailItem)
msg.To = Recipient
msg.Subject = “test”
msg.Body = “funcionando papa”
msg.Send

End Sub

Thanks,
JP