Visual Basic - Correo no envía imagenes

Hola a todos.
Estoy haciendo un programa para enviar archivos html como e-mails y no me envía las imagenes de archvio, solo me envía el texto y en las imagenes deja el sitio vacio.
Si ese archivo lo envio directamente desde Outlock me lo envía perfectamente.
Como hago para enviar el archivo html junto con todas sus imágenes ?.

Os adjunto la rutina para ver si me podeis decir cual es el fallo.
Muchas gracias a todos

Private Sub enviaremail(x As String)
\'On Error GoTo ErrorPreparar

With MAPISession1
.DownLoadMail = False \'para que no comience a decargar los mails
.LogonUI = True
.SignOn
.NewSession = False \' para que no abra otro cliente de correo si ya tenes uno abierto
MAPIMessages1.SessionID = MAPISession1.SessionID
End With
With MAPIMessages1
.Compose
.RecipAddress = x \'direccion de correo
.AddressResolveUI = True
.ResolveName

.MsgSubject = \"PLAN RENOVE \" \' asunto del mensaje

.AttachmentPathName = \"C:\\pyme.htm\" \'esta es la pagina que envío
.Send False \' para que no lo envie ahora
End With
MAPISession1.SignOff \'cierra la sesion
\'End If

Exit Sub