insertion image dans mail

**dbillard60** · 01/04/2025, 16h52

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

"<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 :

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
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

**tee_grandbois** · 01/04/2025, 23h41

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

à tester ...

**dbillard60** · 02/04/2025, 08h03

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

**tee_grandbois** · 02/04/2025, 16h03

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"<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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**dbillard60** · 02/04/2025, 16h07

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

insertion image dans mail

VBA Access

Vue hybride

Discussions similaires

Partager

Partager