Erreur d'execution 91 Variable objects ou variables de bloc with non definie

Bonjour tout le monde
Insertion dans un module access de ce code test de la fonction dans la
fenetre execution mais erreur d'execution à cet endroit
Créer le message
Set miEmail = olApp.CreateItem(olMailItem) Erreur d'execution 91

Merci pour vos réponses
Amicalement Francisco

Function EnvoyerEmailOL(ByVal strDest As String, _
ByVal strSubject As String, _
ByVal strMsg As String)

Dim olApp As Outlook.Application
Dim miEmail As Outlook.MailItem
Dim rcDest As Outlook.Recipient

' Initialiser un objet Outlook
Set olApp = CreateObject("Outlook.Application")

' Créer le message
Set miEmail = olApp.CreateItem(olMailItem)

' Renseigner le message
With miEmail
' Définir le destinataire, et le vérifier
Set rcDest = .Recipients.Add(strDest)
rcDest.Type = olTo

' Les lignes ci-dessous permettent éventuellement de
' vérifier les adresses par rapport au carnet d'adresses
'For Each rcDest In .Recipients
'rcDest.Resolve
'Next

' Sujet et corps du message
.Subject = strSubject
.Body = strMsg

' Afficher le message
.Send
' .Send
End With
Set miEmail = Nothing
Set olApp = Nothing
End Function