- 28 Mar 2017 às 09:06
#21833
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 ?
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 ?
