Discussion :

[m6riil]

Bonjour,
J'ai le code suivant afin d'envoyer un email depuis Access via Outlook :

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
Dim olApp As Object
Dim objMail As Object
 
On Error Resume Next 'Keep going if there is an error
 
 
Set olApp = GetObject(, "Outlook.Application") 'See if Outlook is open
 
 
If Err Then 'Outlook is not open
Set olApp = CreateObject("Outlook.Application") 'Create a new instance of Outlook
End If
 
'Create e-mail item
Set objMail = olApp.CreateItem(olMailItem)
 
With objMail
 
'Set body format to HTML
.BodyFormat = olFormatHTML
.To = "cyrilmesser@gmail.com"
.Subject = "Sujet"
.HTMLBody = "Texte"
.Send
 
End With
 
MsgBox "Operation completed successfully"

Il fonctionne parfaitement, seulement dans le corps du mail ".HTMLBody =", je voudrais pouvoir afficher le contenu d'une requete, comment pourrais-je faire ?

Merci d'avance !

[f-leb]

bonjour,

va te falloir manier les recordset et le HTML+CSS.

Fastoche, il y a un exemple ici : Outlook - Envoyer une requête dans le corps d'un mail