Macro To Change Table Properties In Outlook 2010

The macro im using copys a table from excel into a email. Unfortunatly the email is not readable for blackberry users due to the table properties.

I need to change a few properies. This is what i do manually.....

In outlook i then hover over the table right click then select "Distribute rows evenly" then i right click again but this time i select "Table properties" i then go to the "Row" Tab

i then untick the "allow row to break across pages"

then tick "specify height" and change the value to 0.4 cm and finally change "row height is" to "exactly"

Below is the whole code im using so far....

Code:
Sub Mail_Selection_Range_Outlook_Body()
Dim rng As Range
Dim OutApp As Object

[Code]...