Discussion :

[PardonDetreNulle]

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

[FreeAccess]

Bonjour,

A vérifier.... mais où as tu déclaré MyMessage....

Code :

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

MyMessage.BodyFormat = olFormatHTML

Dans le contexte du code, cela devrait plutôt être ......

Code :

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

1
2
3
4
5
With MonMessage 'Set body format to HTML
     .BodyFormat = olFormatHTML
     .Body = ..........
     .Display
End With

[PardonDetreNulle]

Merci beaucoup,

C'est vrai, j'ai mal déclaré, me suis emmelée les pinceaux

J'ai remplacé le code, maintenant j'ai
Run Time error 5
Invalid Procedure call or argument

Il cale sur .bodyFormat = olFormatHTML

[FreeAccess]

Bonjour,

Pourquoi ne pas utiliser l'exemple de la ....

Comment envoyer un mail format HTML avec Outlook ?

[PardonDetreNulle]

Bonjour,

J'ai tenté aussi précédemment, je me demande si le problème n'est pas du au fait que je travaille sur une version access 2003.
J'ai cru lire sur un des post qu'il n'y a possibilité d'Html qu'à partir de la version 2007.

[Thierry_PALLIER]

Bonjour PardonDetreNulle et FreeAccess.
Outlook 2003 sait envoyer des mails en html. Perso ,j'utilise directement HTMlBody.

Code :

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

1
2
3
4
With MonMessage 'Set body format to HTML
     .HTMLBody= ..........
     .Display
End With

Cdlt

[ambact]

Bonjour,

Je me permet de faire le lien avec mon projet actuel sur l'envoi de mail via access.
http://www.developpez.net/forums/d12...onnalise-mail/

Lors de test, ça fonctionne très bien ! et cette semaine, je devrais le tester en réel.