Erreur d'exécution '91'

Bonjour cher amis,

j'ai fait cette fonction en VBA qui envoie un mail a une liste d'adresse dans une table qui s'appelle "".

Il me sort une erreur "variable objet ou variable du bloc with non définie" mais j'arrive pas a comprendre ce qui se passe, voila le code si vous pouvez m'aidez je suis pas expert en VBA.

l'erreur point sur la ligne en gras

Function brazil()
Dim oRst As dao.Recordset
Dim oDb As dao.Database
Dim newmail As Outlook.mailitem
Dim outlookapp As New Outlook.Application
Dim distri As Table
Dim fichier As String

DoCmd.TransferSpreadsheet acExport, , "extract_brazil", "D:\users\VJ541\Desktop\Footprint analysis\Extract_Brazil.xlsx"

Set oRst = oDb.OpenRecordset("SELECT mail FROM liste_distrib_braz")
Set newmail = outlookapp.createitem(olmailitem)
fichier = "D:\users\VJ541\Desktop\Footprint analysis\Extract_Brazil.xlsx"

If oRst.EOF = True Then oRst.MoveFirst
Do While oRst.EOF = False
newmail.Recipients.Add (oRst.Fields(0).Value)
oRst.MoveNext
Loop
oRst.Close
oDb.Close
newmail.Subject = "Brazil extraction"
newmail.Body = "all open orders in WOS"
newmail.Attachments.Add (fichier)
newmail.Send



End Function


merci d'avance je copte sur vous cher amis :)