Perguntas ERRO DE SINTAXE - ENVIO DE E-MAIL

Bom dia Srs.

Estou com problema nessa rotina para envio de e-mail pelo Protheus

Estar dando de ERRO DE SINTAXE na Linha ==>


===> CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou


Abaixo estar a Linha do Codigo Fonte


Private cServer := 'smtp.rio.terra.com.br' // Nome do Servidor de Envio
Private cAccount := 'Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.' // Conta do usuario responsavel pelo envio do e-mais
Private cEnvia := 'Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.' // Nome do e-mail do usuario que estar ebviando o e-mail
Private cRecebe := 'Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.' // Bome do usurio que irar recever a botificacao do e-mail
Private cPassword := 'kvile123' // Senha do usuário que estar enviando o e-mail
Private cMensagem := ''



// Envio E-MAIL para usuario Final envolvido no processo

cMensagem := "Solicitação de Comparas Nº " + Alltrim(xSCompras) + " " + " da Ordem de Servoço " + Alltrim(_NumOx)
cMensagem += CRLF
cMensagem += "Foi Gerada pelo Usuário " + cNomeUser + " na data de " + Dtoc(dDataBase)
cMensagem += CRLF
cMensagem += "E-Mail Notificado pelo Usuario " + cNomeUser

CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou




If lConectou
// Alert("Conectado com servidor de E-Mail - " + cServer)
// Sucesso ao se conectar com o servidor SMTP
ELSE
aLERT("ERRO AO TENTAR SE CONECTAR AO SERVIDOR DE E-MAIL ==> SMTP.RIO.TERRA.COM.BR")
Endif

mailauth(cAccount,cPassword)

SEND MAIL FROM cEnvia;
TO cRecebe;
SUBJECT "Solicitação de Comparas Nº " + Alltrim(xSCompras) + " " + " da Ordem de Servoço " + Alltrim(_NumOx) + " foi gerada com SUCESSO.";
BODY cMensagem;
RESULT lEnviado


If lEnviado
Alert("Foi enviado e-mail notificando geração do Pedido de Compras da Ordem de Serviço " + Alltrim(_NumOx) + " da Empresa AUTO-MECÂNICA.")
Else
cMensagem := ""
// GET MAIL ERROR cMensagem
Alert(cMensagem)
Endif

// DISCONNECT SMTP SERVER Result lDisConectou

If lDisConectou
// mAlert("Desconectado com servidor de E-Mail - " + cServer)
Endif

Bom dia Sombra,
Você colocou o #INCLUDE "AP5MAIL.CH" no inicio desse fonte?
pode ser isso, aparentemente a sintaxe do fonte está ok.

Bom dia KANNAM,

Matou a questao, era isso mesmo

Mas uma vez muito obrigado pela ajudda

abs