[AC-2010] VBA - Insérer une image dans un mail Outlook

[Vince26exe]

Bonjour,

Un nouveau problème vient de se poser à moi.
J'utilise un formulaire Access pour envoyer des mails sous certaines conditions. Tout cela fonctionne très bien, et en partie grâce à Paidge, mais je souhaiterai qu'en bas de mon mail puisse figurer un logo... Comment dois je procéder ? Je ne souhaite pas créer de champ dans la table mais plutôt, et si c'est possible, utiliser une image que j'intégrerai dans le formulaire d'envoi des messages.

Voici le code que j'utilise.. En gras, j'ai essayé de voir ce que ca pouvait donner en mettant "& Forms("frmMessage").logo" mais bon ca ne marche pas (mais vous vous en seriez douté). Pour le reste, je suis encore trop peu expérimenté pour comprendre ce qu'il faut vraiment faire. Merci de votre aide.

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
Public Sub EnvoiMassif()
'Ajouter les références suivantes :
'Microsoft Outlook
'Microsoft DAO
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim oDB As DAO.Database
Dim strContenu As String
Dim oRst0 As DAO.Recordset
Dim oRst1 As DAO.Recordset
Dim strTo As String
Dim sqlMail As String
'Instancie Outlook
Set oDB = CurrentDb
Set oApp = CreateObject("Outlook.Application")
'Crée un nouveau message
sqlMail = "SELECT  * FROM tblMessage;"
Set oRst0 = oDB.OpenRecordset(sqlMail)
oRst0.MoveLast
Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = oRst0.Fields("txtcorps") & Forms("frmMessage").logo
oMail.Subject = oRst0.Fields("strObjet") & " du " & oRst0.Fields("dtCrea")
'Ouvre un recordset sur les clients
Set oRst1 = oDB.OpenRecordset("SELECT Email FROM [RP-Contacts] WHERE region='" & Forms("frmMessage").choixregion & "';")
'Boucle sur chaque client et les ajoute au champ BCC du mail
While Not oRst1.EOF
    strTo = strTo & oRst1.Fields("Email") & "; "
    oRst1.MoveNext
Wend
'Supprime la dernière virgule
oMail.BCC = Left(strTo, Len(strTo) - 2)
'Envoi du mail
oMail.Send
oRst0.Close
oRst1.Close
Set oRst0 = Nothing
Set oRst1 = Nothing
Set oDB = Nothing
'Ferme Outlook
oApp.Quit
Set oApp = Nothing
End Sub

[PapouDomi]

Bonsoir.
Est qu'ajouter une pièce jointe au mail, et faisant référence à un fichier stocké sur le disque dur ne conviendrait t'il pas?

Code :

1
2
3
If Not IsMissing(vntFile) Then
  oEmail.vntFilements.Add vntFile
End If

Une autre approche: Créer un fichier pdf à partir du formulaire et envoyer ce fichier en pièce jointe.
Cordialement, Dominique

[Vince26exe]

Bonjour,

Merci pour ta réponse mais non cela ne convient pas.
L'idée est d'insérer une signature en bas du mail avec le logo de l'entreprise. Je garde toutefois ton conseil pour une utilisation future.. Une autre idée ?

[pc75]

Bonjour,

As-tu essayé quelquechose comme ça ?

Code :

1
2
3
4
 
.....
oMail.htmlBody = oRst0.Fields("txtcorps") & "<img src=logo.jpg>"
.....