Insérer une image dans un email depuis une table ?

**zeubest** · 12/11/2010, 02h55

Bonjour,

J'ai un bouton qui me sert à envoyer un mail standard.
Je désire insérer dans mon mail des images contenues dans des champs OLE de ma base access, et je suis totalement perdu dans la methode/syntaxe.
J'arrrive à insérer des images externes, en jpg, mais suis infoutu d'utiliser celles de ma basounette.

Mon script se présente comme ça :

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
26
27
28
29
30
31
32
33
34
35
36
Private Sub BoutonEnvoiMail_Click() 
 
 
Dim appOutlook As Outlook.Application 
Dim strHTML As String 
Dim Temp As String 
Dim oEmail As Outlook.MailItem 
 
 
Set appOutlook = New Outlook.Application 
Set oEmail = appOutlook.CreateItem(olMailItem) 
 
oEmail.To = Me.EmailReponsable 
oEmail.Subject = "Bonjour" 
 
oEmail.Attachments.Add "c:/imgmail/entetmail.jpg" 
oEmail.Attachments.Add "c:/imgmail/imagemail.jpg" 
 
strHTML = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & _ 
"<HTML><HEAD>" & _ 
"<META http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">" & _ 
"<META content=""MSHTML 6.00.2800.1516"" name=GENERATOR></HEAD>" & _ 
"<BODY><DIV STYLE=""font-size: 16px; font-face: Verdana;"">" 
strHTML = strHTML & "<center><img src=entetmail.jpg /></center><br>" 
Temp = "Bonjour&nbsp;" & Me.NomDuResponsable & "," & _ 
"<img src=imagemail.jpg />" 
 
txtBody = Temp 
oEmail.HTMLBody = strHTML & Replace(txtBody, vbCrLf, "<br>") & "</DIV></BODY></HTML>" 
 
oEmail.Send 
 
Set oEmail = Nothing 
Set appOutlook = Nothing 
 
End Sub

--------------------------------------------------

Sauriez vous comment utiliser des images situées dans une table type :
[ImagesEmail]![EntetMail] (correcpondant à entetmail.jpg
[ImagesEmail]![ImagMail] (correcpondant à imagemail.jpg

Merci beaucoup pour votre aide.
:-)

G.

**naphta** · 12/11/2010, 18h40

Bonjour,

Tu as access 2010, donc la possibilité de gérer les pièces jointes.

Tu enregistres tes images dans une table, puis tu les détaches dans le répertoire temp en écrasant préalablement les anciennes, puis tu les insères dans ton message. Il y a un tuto pour cela sur DVP.

Attention, les images envoyées dans un message doivent respecter certaines choses. Elles doivent être dispo dans l'arbo d'un site web, sinon le destinataire peut ne jamais les voir.

a+

**Dolphy35** · 12/11/2010, 19h28

Bonjour,

C'est depuis 2007 on peut intégrer des fichiers dans des champs de tables, très gros soucis, la bdd prend des octets très vite également.

Autre soucis si le fichier image est intégré au HTML il faut, si le mail sort du domaine, avoir un lien extérieur (serveur web). La solution la plus simple est d'ajouter l'image en pièce jointe.

@+

**zeubest** · 12/11/2010, 20h23

Merci pour vos réponses.

La solution la plus simple est d'ajouter l'image en pièce jointe.

Certes, c'est ce que je fais pour le moment, comme vous voyez dans mon script, mais je cherche à créer les pièces jointes depuis une table.

(Je sais qu'intégrer les images alourdit la table, mais le but est d'y intégrer les éléments pour améliorer sa "portabilité", et, par ailleurs, le nombre d'images est très restreint)

Tu enregistres tes images dans une table, puis tu les détaches dans le répertoire temp en écrasant préalablement les anciennes, puis tu les insères dans ton message. Il y a un tuto pour cela sur DVP.

Je ne trouve pas ce tuto

si vous avez une idée ...

**naphta** · 14/11/2010, 13h01

Bonjour,

Désolé du retard ...

ici http://warin.developpez.com/access/piecejointe/

Personnellement j'ai abandonné les PJ, trop lourd.
J'ai fait au niveau de la dorsale ou back-end une arborescence documentaire gérée.

A+

**zeubest** · 14/11/2010, 15h48

Désolé du retard ...

Ben de rien, c'est déjà gentil de répondre !

Je vais sur ce tuto : merci !

Insérer une image dans un email depuis une table ?

VBA Access

Discussions similaires

Partager

Partager