Bonjour à tous

J'utilise ce code pour envoyer un mail via vba, mais j'ai un problème lorsqu'il bug si j'ai pas la référence Microsoft Outlook 14. Object library activée. J'ai essayé de trouver la correspondance pour le passage en late binding mais j'ai rien trouvé.

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
 
 Dim MyItem As Outlook.MailItem
 Dim strbody As String
 
 strbody = "<FONT face=" & Chr(34) & "Times New Roman" & Chr(34) & "size=" & Chr(34) & "2" & Chr(34) & "color=" & Chr(34) & "#17365D" & Chr(34) & ">" & _
                    " <br><br>" & _
                    "L'indicateur des données réceptionnées pour le " & Date - 1 & "." & _
                    " <br><br>" & _
                    "<b></b>" & _
                    " <br><br>" & _
                    "." & _
                    " <br><br>" & _
                    "</FONT>"
 
 Set myolapp = Outlook.Application 
    Set MyItem = myolapp.CreateItemFromTemplate("K:\" ".msg")
    MyItem.Subject = " "
    MyItem.htmlbody = strbody
    MyItem.Display
Si vous avez une piste?

En vous remerciant par avance.