Discussion :

[Elodie38]

Bonjour a tous,

Voila j'ai une base de donnee Access dans laquelle j'ai cree une table Produit, qui possede les champs suivants:
ID:AutoNumber
ProductName:Text
Picture:OLE Object

Dans un formulaire je remplis ma table sans probleme.

Dans un autre formulaire, je dois envoyer un mail avec comme piece jointe l'image contenu dans le champs "Picture" de ma table.
DoCmd.SendObject ne fonctionne pas car je souhaite en plus de mon image envoyer un etat.

J'ai teste:

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
25
Dim Cdo_Message As New CDO.Message
Dim bd As DAO.Database
Dim data As DAO.Recordset
Dim query As String
 
Set Cdo_Message.Configuration = GetSMTPServerConfig()
query = "Select Product.Picture from Product where Product.ID=" & IdProduct
 
Set bd = CurrentDb
Set data = bd.OpenRecordset(query)
 
With Cdo_Message
     .From = Sender
     .Subject = Subject
     .Cc = Cc
     .TextBody = BodyText
     .AddAttachment (Fichier_joint)
     .AddAttachment data!Picture, olOLE, "OLE Attachment" ' OLE attachment
     .To = DestTo
     .send
End With
 
data.Close
Set Cdo_Message = Nothing
Set bd = Nothing

Mais ca ne fonctionne pas.
".AddAttachment" attent en parametre le chemin et le nom de l'image, auquels je n'ai plus acces.

Quelqu'un aurait il une idee?

J'ai cherche sur le forum est je n ai rien trouve, mille excuses si un poste a deja ete realise a ce sujet.

Merci d'avance

[Invité]

Bonjour

La seule solution serait de récupérer ton fichier OLE, de l'enregistrer dans un fichier, et de prendre ce fichier comme attachement.

Starec

[Elodie38]

Bonjour Starec,

Merci pour ton aide c'est une super solution a laquelle je n'avais pas pense.

Pour ceux que ca interesse j'ai utilise le lien suivant pour mettre en placa la solution:
Lien

Merci encore.

Elodie38

[bobymc]

Merci pour l information, je suis a un niveau debutant est ce que quelqu un pourrai m'aider à réalisé cela ?

Mercid d'avance.