Ayuda con esta macro para adaptarla a 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; podrías ayudarme?

Gracias de antemano.