Envoi une selection (Table) par mail (outlook)

[yourihi]

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

 

[DoubleZero]

Re : Envoi une selection (Table) par mail (outlook)

Bonjour à toutes et à tous,

yourihi, qu'en est-il de cette discussion ?

 

[Staple1600]

Re : Envoi une selection (Table) par mail (outlook)

Bonjour à tous, 00


Juste pour prévenir qu'il faut mieux éviter de publier une adresse mail sur un forum public.
(sauf si on a une inclinaison irrépressible à recevoir des spams)