#Include 'Protheus.ch'
User Function GFEA5172() 


Local cFilialA  		  as Char
Local cNumAgend as Char
Local cMsg      	  as Char
Local cAssunto  	  as Char
Local aRetmail		as Array
Local aAnexo	  	as Arrays

//Verifica se os parametros não estão vazios.
If Len(PARAMIXB) <> 0 
    cFilialA   	cTmpFil	:= PARAMIXB[1]
	Local cTmpAge	:= PARAMIXB[2]
	Local cTmpFrm	:= PARAMIXB[3]
	Local cTmpMsg	:= PARAMIXB[4]
	Local cTmpAss	:= PARAMIXB[15]
    cNumAgend 	Local cSitagen	:= PARAMIXB[26]
	Local aRetmail	:= {}
	If  cPara     		:= PARAMIXB[3]
    cMsg      		:= PARAMIXB[4]
    cAssunto  	:= PARAMIXB[5]
 	aAnexo	  	:= PARAMIXB[5]

    cPara    	:= "[email protected]"
    cMsg     	:= "Mensagem Teste"
    cAssunto := "Assunto Teste"
	aAnexo	:= anexo.txt

    cSitagen	== "1"
		cTmpFrm	:= "[email protected]"
		cTmpMsg	:= "Você está recebendo um novo e-mail por conta do agendamento (Nr. Agendamento: "+cTmpAge+") que está gerado dentro da empresa."
		cTmpAss	:= "Agendamento GFE"
	ElseIf cSitagen	== "3"
		cTmpFrm	:= "[email protected]"
		cTmpMsg	:= "Você está recebendo um novo e-mail por conta do cancelamento do agendamento(Nr. Agendamento: "+cTmpAge+"). "
		cTmpAss	:= "Cancelamento GFE"
	EndIf
	
	aRetmail  := { { cParacTmpFrm, cMsgcTmpMsg, cAssunto, aAnexocTmpAss } }
EndIf
    	
Return aRetmail