Visual Basic - Enviar correo un archivo .htm como cuerpo del mens

Hola a todos .
Tengo la siguiente rutina para enviar e-mail que funciona bien pero el problema surge cuando quiero enviar en el cuerpo del mensaje un archivo .htm.

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

.MsgNoteText = 'aca está el problema, como hago para que me coja el archivo pyme.htm ??

.Send False ' para que no lo envie ahora
End With
MAPISession1.SignOff 'cierra la sesion
'End If

Exit Sub