Bonjour,

Est-ce que quelqu'un a déjà été bloqué pour l'envoi d'e-mail html via access ?
J'ai un Run time erreur 424 Object required

Voici mon code :
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
Dim MonOutlook As Object
  Dim MonMessage As Object
    Set MonOutlook = CreateObject("Outlook.Application")
 
    'Create e-mail item
      Set MonMessage = MonOutlook.CreateItem(0)
 
 
    With MonMessage       'Set body format to HTML
       MyMessage.BodyFormat = olFormatHTML
        .Body = "<font face=""Times New Roman"">Bonjour Messieurs.<p>" _
             & "Je vous prie de trouver ci-joint notre <b>documentation</b> <u>générale</u><br>" _
             & "sur nos produits.</p>" _
             & "<img border=""0"" src=""file:///C:/Documents and Settings/Raymond/Mes documents/Mes images/Véhicules/s1502.bmp"" width=""140"" height=""140""></p>" _
             & "Veuillez agréer, <i>Messieurs</i>, nos salutations distinguées.</p>" _
             & "<p style=""text-align: center"">Le Directeur. </font> </p>"
 
 
 
       .Display
    End With
Merci pour tout ce que j'ai déjà trouvé grâce à ce furum