Enviar email

Isso mostra que estão em versões erradas, a compilação foi feita antes da última alteração da include

Boa tarde, eu peguei aqui no forum mesmo um exemplo de uso de uma ferramenta chamada sendmail.exe, só achar no google e baixar, segue o exemplo que copiei ....

Código:

DEF VAR linhaCMD AS CHAR.
DEF VAR UsarSSL AS LOGICAL INIT FALSE.

linhaCMD = " -name [NOME] -f [EMAIL-RESPOSTA] -t [DESTINATARIO] -sub [ASSUNTO] -disposition 'inline' -mime-type 'text/plain' -attach [CORPO] -smtp [SERVIDOR] -port [PORTA] -[TIPO]  -auth-login -user [EMAIL] -pass [SENHA] -disposition 'attachment' -attach [ANEXO1] -attach [ANEXO2]".

ASSIGN linhaCMD = REPLACE(linhaCMD,"[NOME]",QUOTER("Meu Nome"))
       linhaCMD = REPLACE(linhaCMD,"[EMAIL-RESPOSTA]",QUOTER("usuario@provedor.com.br"))
       linhaCMD = REPLACE(linhaCMD,"[DESTINATARIO]",QUOTER("destinatario@provedor.com.br"))
       linhaCMD = REPLACE(linhaCMD,"[ASSUNTO]",QUOTER("Teste de Envio de E-mail"))
       linhaCMD = REPLACE(linhaCMD,"[CORPO]",QUOTER("C:\Temp\Corpo.txt"))
       linhaCMD = REPLACE(linhaCMD,"[EMAIL]",QUOTER("usuario@provedor.com.br"))
       linhaCMD = REPLACE(linhaCMD,"[SENHA]",QUOTER("MinhaSenha"))
       linhaCMD = REPLACE(linhaCMD,"[ANEXO1]",QUOTER("C:\Temp\Anexo1.pdf"))
       linhaCMD = REPLACE(linhaCMD,"[ANEXO2]",QUOTER("C:\Temp\Anexo2.pdf"))
       linhaCMD = REPLACE(linhaCMD,"[SERVIDOR]","smtp.gmail.com")
       linhaCMD = REPLACE(linhaCMD,"[PORTA]",(IF UsarSSL THEN "465" ELSE "587"))
       linhaCMD = REPLACE(linhaCMD,"[TIPO]",(IF UsarSSL THEN "ssl" ELSE "starttls"))
       linhaCMD = REPLACE(linhaCMD,"'","""").

MESSAGE "C:\MailSend\mailsend1.19.exe " + linhaCMD
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

OS-COMMAND VALUE("C:\MailSend\mailsend1.19.exe " + linhaCMD).

Funciona direitinho, enviando anexos e tudo mais.