Guru do Excel e Power BI

Bom dia!

Como a empresa agora migrou do Lotus Notes (Desk) para o Gmail (WEB) preciso atualizar a planilha que envia e-mails.

Já tentei de diversas formas, realizar essa conexão com o smtp do gmail. Mas acredito que é bloqueado aqui.

.Item("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/config ... smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/config ... serverport") = 587
.Item("http://schemas.microsoft.com/cdo/config ... thenticate") = 1
.Item("http://schemas.microsoft.com/cdo/config ... smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/config ... iontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/config ... ndusername") = "xxxx"
.Item("http://schemas.microsoft.com/cdo/config ... ndpassword") = "xxxx"


Tem alguma outra forma, já procurei e tentei colocar o nome do servidor de correio aqui da empresa. Mas ainda não consegui esse nome.

Tem alguma outra forma ?