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/configuration/sendusing") = 2 'NTLM method
.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item(" http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
.Item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item(" http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item(" http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item(" http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxx"
.Item(" http://schemas.microsoft.com/cdo/configuration/sendpassword") = "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 ?