Base de Conhecimento

Cross Segmento - TOTVS Backoffice Linha Protheus - SIGAEIC - Application Server - Uso do GMAIL para questões de envio de e-mails de relatórios, integração despachante e Workflow

time.pngTempo aproximado para leitura: 00:05:00 min

Dúvida
Por motivo de segurança, o Google, irá descontinuar a configuração de Aplicativos menos seguros de sua ferramenta. Tal mudança impactará nas configurações da conta para utilização dentro do COMEX para o envio de e-mails de relatórios, integração despachante e Workflow.

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus)  – Easy Import Control – Todas versões

Solução
A partir de o Google, por motivo de segurança, irá descontinuar a configuração de aplicativos menos seguros. Para continuar usando a conta GMail com o TOTVS | Application Server após essa data, será necessário configurar as Senhas de App. A documentação do Google para a utilização está em  https://support.google.com/accounts/answer/185833 .

Para habilitar o uso de Senhas de App é necessário habilitar a Verificação em duas etapas. A documentação para habilitar essa configuração está disponível em https://support.google.com/accounts/answer/185839?hl=pt-BR .

Após habilitar a Verificação em duas etapas, aparecerá a opção de Senhas de App.


Clicando em Senhas de app, clique em Selecionar app, escolha Outro (nome personalizado), coloque um nome (Protheus, por exemplo) e clique em Gerar.

 


A senha será gerada e deve ser anotada, pois não ficará disponível após clicar em 
Concluído.

 


Essa configuração é independente da ativação dos protocolos POP e/ou IMAP nas configurações do e-mail Google. A definição de uso dos protocolos continua sendo necessária para o uso com o TOTVS | Application Server.

Uma vez que a senha tenha sido gerada e está definido qual protocolo será utilizado, para poder enviar e/ou receber e-mails é só configurar no TOTVS | Application Server o endereço de e-mail e essa senha gerada, não mais a senha da conta. A senha pode ser utilizada sem espaço entre os blocos que são mostrados.

user function gmail()
Local oServer := TMailManager():New()
Local oMsg := TMailMessage():New()
Local cSnd := "smtp.gmail.com"
Local cRcv := "imap.gmail.com"
Local nSndPort := 0
Local nRcvPort := 0
Local cUser := "account@gmail.com"
Local cPass := "gikzztcmxdcrnwhi"
Local cTo := "otheraccount@gmail.com"
Local nMessages := 0

oServer:SetUseTLS( .T. )

if oServer:Init( cRcv, cSnd, cUser, cPass, nRcvPort, nSndPort ) <> 0
conout( "Erro init" )
return
endif

//connect on SMTP server, to send e-mails
conout( "Connecting" )
if oServer:SMTPConnect() <> 0
conout( "SMTPConnect error" )
return
endif

conout( "Authenticating" )
if oServer:SMTPAuth( cUser, cPass ) <> 0
conout( "Error authenticating account " + cUser )
return
endif

oMsg:cDate := cValToChar( Date() )
oMsg:cFrom := cUser
oMsg:cTo := cTo
oMsg:cCc := Nil
oMsg:cBcc := Nil
oMsg:cSubject := "Subject: test"
oMsg:MsgBodyType( "text/plain" )
oMsg:MsgBodyEncode( 1 )
oMsg:cBody := "Test"

conout( "Sending message" )
nError := oMsg:Send( oServer )
If nError <> 0
conout( "Error: " + oServer:getErrorString( nError ) )
else
conout( "Message sent" )
endif

//disconnect from SMTP server
oServer:SMTPDisconnect()

//connect on IMAP server, to receive e-mails
xRet := oServer:IMAPConnect()
if xRet <> 0
conout( "IMAPConnect error" )
return
endif

oMsg:Clear()

oServer:GetNumMsgs( @nMessages )

//if there is messages in the account
if nMessages > 0
//receiving just 1 e-mail
xRet := oMsg:Receive( oServer, 1 )
if xRet <> 0
conout( "Error on receive" )
else
conout( " Date: " + oMsg:cDate )
conout( " From: " + oMsg:cFrom )
conout( " To: " + oMsg:cTo )
conout( "Subject: " + oMsg:cSubject )
conout( " Body: " + oMsg:cBody )
endif
endif

//disconnect from IMAP server
xRet := oServer:IMAPDisconnect()
if xRet <> 0
conout( "IMAPDisconnect error" )
return
endif

conout( "Success!!!" )
return

Saiba mais: Application Server - Uso de e-mail com GMAIL.

 

Esse artigo foi útil?
Usuários que acharam isso útil: 0 de 0

1 Comentários

  • Avatar
    CRISTIANO DA SILVA

    Seria a mesma opção de configuração para o Exchange, office 365?

    0
    Ações de comentário Permalink
Por favor, entre para comentar.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Preencha os campos abaixo para iniciar o atendimento:

Chat _