bonjour,
je me demande si c'est possible d'associer comme pièce jointe, un champ d'une table. tout le reste marche

En tout cas pour le moment, je n'y arrive pas

voir code inspiré par le tuto de heureux-oli

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
While Not oRst1.EOF
Set oMail = oApp.CreateItem(olMailItem)
 
  oMail.Body = oRst1.Fields("txtcorps")
oMail.Subject = oRst1.Fields("strObjet") & " du " & oRst1.Fields("dtCrea")
'oMail.Attachments.Add "D:\Pièce jointe 1.doc" cela marche
 
'suivent différents essais tous infructueux
'txtbodyPJ = oRst1.Fields("txtcorps")
' oMail.Attachments.Add txtbodyPJ
'oMail.Attachments.Add (oDB!Tables!T_clientmessage!Fields.txtCorps)
'élément non trouvé dans cette collection
'oMail.Attachments.Add (oDB!Forms!F_clientmessage.txtCorps)
' membre de méthode ou de donnée introuvable
'oMail.Attachments.Add (oDB!Forms!F_clientmessage!Fields.txtCorps)
'élément non trouvé dans cette collection
 
oMail.To = oRst1.Fields("stEmail")
oMail.Display
'Envoi le mail
oMail.Send
 
  oRst1.MoveNext
Wend
d'avance merci pour toute réponse