insertion image dans mail

Version imprimable

Bonjour tout l'monde
je ne parviens pas a inserrer une image dans mail que je genere depuis acces.
le mail est en HTML gentiment ecri par grandbois
voici le code que j ecris, mais cela ne fonctionne pas

Code:

"<img src:"T:/Moyens Generaux/DET_S2H/GESTION DOCUMENTAIRE (Service Archives)/APPLICATION GESTION ARCHIVES/ADMIN/element mail/Image2.jpg" />" & _

T: est un repertoire d entreprise en reseau
je viens de passer la journée a tester dans tout les sens mais je n y arrive pas
d'avance merci pour votre aide precieuse

voici le code du mail en entier

Code:

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
37
38
39
40
41
42
43
44
45
46
47
Private Sub Commande79_Click()
 
If MsgBox("Vous allez envoyer un mail de rappel à " & fprenom & " " & fnom & " pour la demande: " & fdemande, vbYesNo) = vbYes Then
 
 
Dim OutApp As Object
Dim OutMail As Object
Dim fmessage As String
 
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
 
fmessage = "<html>" & _
"</body>" & _
 "Bonjour <b>" & fprenom & " " & fnom & "</b> <br> <br>" & _
"Vous disposez depuis plus de 15 jours de l'archive:<b> " & "<br> <br>" & fdemande & "<br>" & "</b> " & "<br> <br>" & _
"Si vous n'en avez plus besoin, nous vous remercions de bien vouloir nous la retourner" & "<br>" & _
"Merci pour votre collaboration." & "<br>" & _
"Cordialement" & "<br> <br> <br> <br>" & _
"<b><u>Le Service Archives</u></b>" & "<br>" & _
"<b><u>Direction de l'Environnement de Travail</u></b><br>" & _
"<a color=2d7eed> archives@diot-siaci.com </a> " & _
"<br>" & _
"SIACI SAINT HONORE<br>Equinox<br>23 All&eacute;e de l&rsquo;Europe &ndash; 92110 CLICHY<br>" & _
"<a>www.diot-siaci.com<br></a>" & _
"<img src:"T:/Moyens Generaux/DET_S2H/GESTION DOCUMENTAIRE (Service Archives)/APPLICATION GESTION ARCHIVES/ADMIN/element mail/Image2.jpg" />" & _
"" & _
"<h6><font color=9c9fa3>SIACI SAINT HONORE - Groupe DIOT-SIACI - Soci&eacute;t&eacute; de Courtage d'Assurance et de R&eacute;assurance.<br>Si&egrave;ge social : Season - 39, rue Mstislav Rostropovitch - 75815 Paris cedex 17 - France - T&eacute;l. : +33 (0)1 4420 9999 - Fax : +33 (0)1 4420 9500. <br />SAS - Capital : 120 555 961,60 &euro; - RCS Paris 572 059 939 RCS Paris - APE 6622 Z - N&deg; TVA : FR 54 572 059 939.<br />N&deg; ORIAS : 07 000 771 (orias.fr) - Sous le contr&ocirc;le de / Regulated by ACPR - 4 place de Budapest - CS 92459 - 75436 Paris cedex 09 - France.<br />R&eacute;clamations / Complaint : SIACI SAINT HONORE - Service r&eacute;clamations - 23, all&eacute;es de l&rsquo;Europe - 92587 Clichy cedex - France.</p></h6></font>" & _
"<font color=red>Pour toutes demandes de services ou d&rsquo;interventions, merci de passer par l&rsquo;outil de ticketing MerciYanis (voir Imag&rsquo;In) :</font> https://diot-siaci.app.merciyanis.com<br>" & _
"</body>" & _
"</html>"
 
On Error Resume Next
    With OutMail
        .To = fadresse_mail
        .CC = ""
        .Subject = "Restitution archive"
        .HTMLBody = fmessage
        .Display
        .Send
    End With
 
Me.daterappel = Date
End If
 
 
End Sub

01/04/2025, 23h41
tee_grandbois

bonsoir,
à priori, il faudrait doubler les guillemets du chemin car le littéral se situe entre les guillemets de la délimitation du corps du mail:

Code:

"<img src=""T:/Moyens Generaux/DET_S2H/GESTION DOCUMENTAIRE (Service Archives)/APPLICATION GESTION ARCHIVES/ADMIN/element mail/Image2.jpg"" />" & _

à tester ...
02/04/2025, 08h03
dbillard60

Bonjour Grandbois
encore toi decidement!

alors je viens de tester, je n ai pas de bug mais quand je recois le mail, l image n y est pas, j ai un message "Erreur ! Nom du fichier non spécifié.".

bonne journée 8-)

alors, essaie de remplacer les " " par des ' '

Code:

"<img src='T:/Moyens Generaux/DET_S2H/GESTION DOCUMENTAIRE (Service Archives)/APPLICATION GESTION ARCHIVES/ADMIN/element mail/Image2.jpg' />" & _

mais je pense que cela ne fonctionnera pas car un chemin réseau est rarement accessible par le destinataire d'un mail...

La fonction Getboiler() permet de copier un objet (texte ou image) dans un mail, il y a un exemple de son utilisation ici

Pour ton cas:
- il faut copier ce code dans un module standard:
Code:

1 2 3 4 5 6 7 8 9 Function GetBoiler(ByVal sFile As String) As String 'Dick Kusleika Dim Fso As Object Dim ts As Object Set Fso = CreateObject("Scripting.FileSystemObject") Set ts = Fso.GetFile(sFile).OpenAsTextStream(1, -2) GetBoiler = ts.readall ts.Close End Function
et dans ton code à toi avant le corps du message:
Code:

1 2 3 4 5 6 7 8 Dim ImgString As String, ImgSrc As String ImgString = "T:/Moyens Generaux/DET_S2H/GESTION DOCUMENTAIRE (Service Archives)/APPLICATION GESTION ARCHIVES/ADMIN/element mail/Image2.jpg" If Dir(ImgString) <> "" Then ImgSrc = GetBoiler(ImgString) Else ImgSrc = "" End If
et dans le corps du message:

Code:

"<img src='" & ImgString & "'>" & _

02/04/2025, 16h07
dbillard60

j etais justement en train de travailler la dessus et j ai trouver d ou vien le probleme.
l image se trouve sur un serveur distant inaccesible pour access.
du coup je viens d heberger l image en ligne et comme ca j ai un url pour l image.

encore merci