TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Carlos Sampa Junior

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Carlos Sampa Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/6062824/tecnologia.css
Portuguese

Pagetitle
TMailMng:SMTPAuth
TMailMng:SMTPAuth

Realiza a autenticação no servidor SMTP.

Sintaxe

Bloco de código
collapsefalse
SMTPAuth( < cUser >, < cPass >, [ cPOPAddress ], [ cPOPPort ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cUser

caractere

Indica o nome de usuário que será utilizado para autenticação.

X

 

cPass

caractere

Indica a senha do usuário para autenticação.

X

 

cPOPAddress

caractere

Indica o endereço do servidor POP3 para autenticação.

  

cPOPPort

caractere

Indica a porta para o servidor POP3 para autenticação.

  

Retorno

Nome

Tipo

Descrição

nRet

numérico

Retorna 0 (zero) quando a operação é completada com sucesso; caso contrário, retornará um código de erro.

Observações

  • O método leva em consideração os valores das propriedades bExtendSMTP, bAuthLogin, bAuthNTLM e bAuthPlain para realizar a autenticação.
  • Se a conexão utilizada for usando o protocolo MAPI, o método retornará 1 (Operation failed).
  • Se for passado o parâmetro cPOPAddress, o método realizará a autenticação pela conexão com o servidor POP (isto é realizado devido a configuração determinada por alguns servidores de e-mail). Caso contrário, será realizada a autenticação do usuário no servidor SMTP.
  • Caso o parâmetro cPOPPort não seja informado, será definido o valor 110 para a porta.
  • A utilização de cPOPAddress e cPOPPort é equivalente ao uso das chaves AuthSmtp, SmtpPopServer e SmtpPopPort da seção Mail do arquivo ini Application Server.

Exemplos

EclipsetitleExemplo 1
Bloco de código
theme
languagecpp
theme
Eclipse
linenumberstrue
collapsefalse
user Function mail1()
  Local oServer
  Local xRet
  
  oServer := TMailMng():New( 1,
.T.
3,
.T.
3 )
  
  oServer:cUser := "totvsuser"
  oServer:cPass := "totvspassword"
  oServer:cSMTPAddr := "mail.totvs.com.br"
  
  xRet := oServer:SMTPConnect()
  if xRet <> 0
    conout( "SMTP Connect error: " + oServer:GetErrorString( xRet ) )
    return
  endIf
  
  xRet := oServer:SMTPAuth( oServer:cUser, oServer:cPass )
  if xRet <> 0
    conout( "SMTP Auth error: " + oServer:GetErrorString( xRet ) )
  else
    conout( "Authentication OK!" )
  endif

  xRet := oServer:SMTPDisconnect()
  if xRet != 0
    conout( "SMTPDisconnect error: " + oServer:GetErrorString( xRet ) )
  endIf
return