¿Cómo puedo adaptar esta macro para gmail?

Buenas, tengo esta macro que me funciona perfectamente:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Ruta = "C:\Users\gps\Desktop\Mayo-2013\"
Archivo = "Del 01-05 al 31-05-2013.xlsm"
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.to = "[email protected]"
parte2.bcc = "[email protected]"
parte2.body = "Estimado, gusto de saludar. Adjunto se encuentra informe actualizado hasta la fecha"
parte2.Subject = "Formato de Clientes GPS Mes Mayo 2013"
parte2.attachments.Add Ruta & Archivo
parte2.send

End Sub

El detalle es que quiero adaptarla para gmail.