Visual Basic para Aplicaciones - Expertos, Cecilia C. Ayuda urgente

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.
Como Hago ?
Os envío la rutina para que la veais y me digais como puedo hacer.
Muchisimas gracias. De verdad es urgente y lo necesito mucho.


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