Bonjour,
J'ai le code suivant afin d'envoyer un email depuis Access via Outlook :
Il fonctionne parfaitement, seulement dans le corps du mail ".HTMLBody =", je voudrais pouvoir afficher le contenu d'une requete, comment pourrais-je faire ?
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"
Merci d'avance !![]()
Partager