Perguntas Ponto de Entrada QDOVMAIL

Boa Tarde A Todos!

Estamos implantando o módulo de controle de documentos, e foi solicitado quando um documento vencer, enviar email avisando a quem incluio o documento e o aprovador do documento.
Por padrão o protheus já envia email para quem incluio o documento mais não ao aprovador.

Descobri esse ponto de entrada QDOVMAIL

alguém já o utilizou?

Novamente eu mesmo respondendo meu proprio post, segue para consulta.

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FILEIO.CH"
#INCLUDE "AP5MAIL.CH"

USER FUNCTION QDOVMAIL()
Local aArea := {}
Local aMsg := PARAMIXB[1]
Local cMsg := ''
Local nCnt := 0
Local nLenDoc := 0
Private cDoc := ''
Private cMsgOri := ''
Private cEmailApr := ''
Private cTitulo := ''

aArea := Getarea()
cTitulo := aMsg[1][1]
cMsg := aMsg[1][2]
cMsgOri := aMsg[1][2]

FOR nCnt := 600 TO LEN(cMsg)

IF SUBSTR(cMsg,nCnt,17) == 'Documento</b><br>'

nLenDoc := nCnt
EXIT

ENDIF
NEXT nCnt

cMsg := SUBSTR(cMsg,nLenDoc + 17,100)
nLenDoc := AT(' ' ,cMsg)
cDoc := SUBSTR(cMsg,1,nLenDoc)

SqlGeral()

DBSELECTAREA("TRB")
TRB->(DBGOTOP())
WHILE TRB->(!EOF())

cEmailApr := TRB->QAA_EMAIL

TRB->(dbSkip())
ENDDO //end do while TRB
TRB->( DBCLOSEAREA() )

EnviaEmail()

Restarea(aArea)

RETURN(aMsg)

Static Function SqlGeral()

BeginSQL Alias "TRB"
%NoPARSER%
SELECT QAA.QAA_EMAIL
FROM %Table:QDH% QDH, %Table:QD0% QD0, %Table:QAA% QAA
WHERE QDH.QDH_DOCTO = %exp:cDoc%
AND QDH.QDH_DOCTO = QD0.QD0_DOCTO
AND QD0.QD0_AUT = 'A'
AND QD0.QD0_MAT = QAA.QAA_MAT
AND QDH.%notDel%
AND QD0.%notDel%
AND QAA.%notDel%

EndSQl

Return(nil)



Static Function EnviaEmail()

Local cServer := Alltrim(GetMv("MV_RELSERV"))
Local cAccount := AllTrim(GetMv("MV_RELACNT"))
Local cPassword := AllTrim(GetMv("MV_RELPSW"))
Local cFrom := AllTrim(GetMv("MV_RELACNT"))
Local cTo := cEmailApr
Local lOk := .T.
Local lAutOk := .F.
Local lSmtpAuth := GetMv("MV_RELAUTH",,.F.)
Local cSubject := ""
Local cBody := ""
Local cAtach := ""
Local _cStatEml := ""
Local _cPedido := ""
Local _cStatEml := ""


//********************************** INICIO ENVIO DE EMAIL CONFIRMANDO A GERACAO **************


_cStatEml := "OK"
cBody := cMsgOri
lOk := .T.
lAutOk := .F.

Connect Smtp Server cServer Account cAccount Password cPassword Result lOk

IF lAutOk == .F.
IF ( lSmtpAuth )
lAutOk := MailAuth(cAccount,cPassword)
ELSE
lAutOk := .T.
ENDIF
ENDIF

IF lOk .And. lAutOk
cSubject := "Protheus SIGAQDO " + cTitulo
Send Mail From cFrom To cTo Subject cSubject Body cBody ATTACHMENT cAtach Result lOk
ENDIF

IF lOk
Disconnect Smtp Server
ENDIF

//********************************** FINAL ENVIO DE EMAIL CONFIRMANDO A GERACAO **************
Return()

Desculpe.. mas queria saber se você pagou alguma coisa para ter suporte VIP aqui no forum ou então algum tipo de atendimento 24X7.
Aqui é ajuda mútua e não um local onde as pessoas são obrigadas a responder.. e outra.. se vc mesmo depois chegou na solução isso mostra o quanto você tem preguiça de tentar resolver o problema.. Pois assim que apareceu o problema você já correu para perguntar sem ao menos tentar resolver..
Se a resposta não veio, apenas espere e nao faça esse tipo de comentário pois certamente não está contribuindo em nada.

Willian uma das maiores virtudes de um ser humano é a humildade.

Entendo que você talvez tenha pressa ou cobranças no seu trabalho para resolver seu problema, coisa que todos nós temos. Essa comunidade foi criada GRATUITAMENTE com o simples intuito de ajudar o próximo.

Ou você paga o Luiz Alberto mensalmente para ele manter o site no ar? Acho que não né.

Você pode ter certeza que se alguém souber a resposta vai reservar um tempinho para te responder, não precisa ter esse tipo de atitude.

Concordo com o Luiz se você quiser cancelar sua conta sem problemas, quem não ajuda não atrapalha.

Até mais.