Dans un code VB6 je dois envoyer un mail (j'utilise CDO)

dans ce mail je dois afficher en plus du texte, des images

j'ai le code suivant :

With oCdoMail

.HTMLBody = .HTMLBody + "<br><img name=""add.gif"" Content-Type=""image/gif"" Content-Transfer-Encoding=""base64"" Content-ID=""<image-content-id>"" Content-Disposition=""attachment"" filename=""D:\SendMail2\add.gif"">"

End With

l'image ne s'affiche pas.

Je ne sais pas s'il ya une erreur dans mon code