SendMail

Envio simples de email via SMTP. Funcao legacy — em codigo TLPP novo prefira FwSendMail/TMailManager.

Assinatura: SendMail(cServer, cUser, cPass, cFrom, cTo, cAssunto, cMsg, [aAnexos]) -> lOk

Retorna: Logical

Envio rapido de email via SMTP. Funcao legacy — codigo novo usa TMailManager ou FwSendMail com TLS/STARTTLS adequados.

lOk := SendMail( ;
    "smtp.gmail.com:587",                   ;
    "noreply@empresa.com.br",               ;
    "senha-de-app",                         ;
    "Sistema Protheus <sis@empresa.com>", ;
    "destinatario@cliente.com.br",          ;
    "Pedido " + cNumPed + " confirmado",    ;
    "Segue confirmacao do pedido...",       ;
    {"\spool\nf_" + cNumPed + ".pdf"}     )

If !lOk
    ConOut("Erro envio email")
EndIf

Pegadinhas

TLS/STARTTLS nao bem suportado nessa funcao legacy — em gmail/outlook moderno falha.
Anexo so do AppServer — caminho relativo ao rootpath.
Sem retry embutido — implementar voce mesmo.
Migre pra TMailManager em codigo novo.

Veja também

fwhttpclient