TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 6 Próxima »


Envia e-mail através do protocolo SMTP - Simple Mail Transfer Protocol ou MAPI.

Sintaxe

numérico SendMail( < cFrom >, < cTo >, [ cSubject ], [ cBody ], [ cCC ], [ cBCC ], [ aAttach ], [ nNumAttach ], [ nPriority ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cFrom

caractere

Indica o endereço de uma conta de e-mail (remetente) para representar o e-mail enviado. Exemplo: [email protected].

X

 

cTo

caractere

Indica o endereço de uma conta de e-mail que será utilizada para enviar o respectivo e-mail.

X

 

cSubject

caractere

Indica o assunto do e-mail. Caso não seja especificado, o assunto será enviado em branco.

 

 

cBody

caractere

Indica o conteúdo da mensagem que será enviada.

 

 

cCC

caractere

Indica o endereço de e-mail, na seção Com Cópia (CC), que receberá a mensagem.

 

 

cBCC

caractere

Indica o endereço de e-mail, na seção Cópia Oculta, que receberá a mensagem.

 

 

aAttach

vetor

Indica um array de caracteres com o caminho do arquivo que será anexado no e-mail.

 

 

nNumAttach

numérico

Indica a quantidade de arquivos que serão anexados no e-mail, no caso a quantidade de elementos do array.

 

 

nPriority

numérico

Indica a prioridade da mensagem. Caso não seja preenchido, a prioridade será normal.

 

 

Retorno

Nome

Tipo

Descrição

nRet

numérico

Retorna 0 (zero) se o e-mail for enviado com sucesso caso contrário, retornará um código de erro.

Observações

  • O método SendMail é obsoleto a partir de builds superiores a 7.00.101202A. Para envio de mensagens via SMTP, crie uuma instância de mensagem usando a classe TMailMessage, e utilize o método Send da mensagem. Para mais informações, consulte a documentação da classe TMailMessage.

Exemplos

User Function mail008()
  Local oMail := TMailManager():New()
  Local nRet := 0
  oMail:Init( "", EMAIL_SMTPSERVER, EMAIL_ACCOUNT, EMAIL_PASSWORD )
  nret := oMail:SetSMTPTimeout( 60 ) //1 min
  If nRet == 0
    conout( "SetSMTPTimeout Successful" )
  Else
    conout( nret )
    conout( oMail:GetErrorString( nret ) )
  Endif
  nret := oMail:SMTPConnect()
  If nRet == 0
    conout( "Connect Successful" )
  Else
    conout( nret )
    conout( oMail:GetErrorString( nret ) )
  Endif
  nRet := oMail:SendMail( "[email protected]", ;
                          "[email protected]", ;
                          "SUBJECT", ;
                          "BODY", ;
                          "", ;
                          "", ;
                          {}, ;
                          0 )
  If nRet == 0
    conout( "SendMail Successful" )
  Else
    conout( nret )
    conout( oMail:GetErrorString( nret ) )
  Endif
  nRet := oMail:SmtpDisconnect()
  If nRet == 0
    conout( "Disconnect Successful" )
  Else
    conout( nret )
    conout( oMail:GetErrorString( nret ) )
  Endif
return
  • Sem rótulos