Macro para enviar correo a Gmail

Tengo dos macros para el envío de una tabla desde mi correo de outlook 2010 a un destinatario en Gmail.

Primera Macro:
Sub Correo_macro1()
Dia = Range("i2").Value
Mes = Range("j2").Value
correo = Range("d3").Value
' Select the range of cells on the active worksheet.
ActiveSheet.Range("c7:f21").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.to = correo
.Item.Subject = "Avinco " & Mes & " " & Dia
.Item.send
End With
End Sub
En este código, adjunta la información que esta en la tabla, pero a Gmail llega sin formato de tabla, es decir, solo texto, organizado, pero necesito que se muestre las divisiones de la tabla.

Segunda Macro
Sub correo_Macro2()
Dia = Range("i2").Value
Mes = Range("j2").Value
correo = Range("d3").Value
Range("c7:f21").Copy
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.to = correo
parte2.Subject = "Avinco " & Mes & " " & Dia
parte2.display
Application.SendKeys "^v"
parte2.send
Set parte1 = Nothing
Set parte2 = Nothing
End Sub

El problema con este código es que envía el correo sin información.

Solicito su colaboración para que uno de los dos códigos funcione como lo necesito.