Macro para dar formato a mensaje de corro enviado desde excel

Buenas Tardes,

Soy nuevo en el foro y tengo una duda ojala me puedan echar la mano a reslver este lio que se me ha presentado o saber si hay solución, Tengo una macro para envío de correos electrónicos , es muy sencilla y me funciona perfectamente, solo que el día de hoy me pidieron que el cuerpo del correo que se esta enviando tenga un formato en algunas palabras que toma de unas celdas, les envío el código y señalo que celdas son las que se necesitan cambiar a negritas en el cuerpo del correo, ojala me puedan ayudar.

Muchas gracias de ante mano.

Sub enviar()

Sheets("Envios_mail").Select

ufila = Range("a" & Rows.Count).End(xlUp).Row

For i = 1 To ufila

If Cells(i, 40) = "POR VENCER" Then

Set parte1 = CreateObject("outlook.application")

Set parte2 = parte1.createitem(olmailitem)

para = Cells(i, 20) & ";" & Cells(i, 21)

parte2.To = para 'Destinatarios

'parte2.CC = "" 'Con copia

parte2.Subject = "Vencimiento de permisos "

parte2.body = "Estimado " & Cells(i, 6) & _

" le fue otorgado un permiso para almacenar salir el dia " & Cells(i, 2) & _

'parte2.send 'desabilitado por formato

End If

Next

End Sub