Envoi une selection (Table) par mail (outlook)

Bonjour à Tous,
j'arrive pas à compléter une macro afin d'envoyer une sélection sur Table par mail (outlook).
Voici mon code Vb incomplet:

Private Sub Commande_Click()
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim strContenu As String
Dim oRst As DAO.Recordset
Dim oFld As DAO.Field
Set oApp = CreateObject("Outlook.Application")
Set oRst = CurrentDb.OpenRecordset("requête")
Set oMail = oApp.CreateItem(olMailItem)
oMail.BodyFormat = olFormatHTML
strContenu = "<b>Bonjour !</b>"
strContenu = strContenu & SAUTLIGNE & SAUTLIGNE
strContenu = strContenu & "<div>Merci</p>"

strContenu = strContenu & SAUTLIGNE & SAUTLIGNE
strContenu = strContenu & "<div align=""center""><table>"
strContenu = strContenu & "<tr>"
strContenu = strContenu & "</tr>"

strContenu = strContenu & "</table></div>"
oMail.HTMLBody = strContenu
oMail.To = "youssef.ourihi@isaaf.ma"
oMail.Subject = "Pour lettrage: "
oMail.Send
oRst.Close
Set oRst = Nothing
Set oApp = Nothing
End Sub