TOTVSTEC

Árvore de páginas

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

Sintaxe

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