#Include "ap5mail.ch" User Function MT110BLO() Local cAssunto:= "" Local cEmail := "compras@exemplo.com.br" //Endereço de envio de e-mail. Local cCopia := USRRETMAIL(SC1->C1_USER) +";" + USRRETMAIL(RetCodUsr()) //E-mail do solicitante (Irá receber como copiado no e-mail) + e-mail do aprovador Local cHtm := "" Local cError := "" Local cAprov := cUserName //Usuário que aprovou a Solicitação de Compras Private lResult Private lOk //Assunto do e-mail cAssunto:= "Solicitação de Compra número "+(SC1->C1_NUM)+" da filial " + xfilial("SC1")+"." // Caso "Aprovado", envia a mensagem de aprovação. If PARAMIXB[1] == 1 cHtm := "" cHtm += "A Solicitação de Compras nº " + AllTrim(SC1->C1_NUM)+ " da filial "+ xfilial("SC1")+" do centro de custos "+(SC1->C1_XDESCC) cHtm += " foi aprovada por "+ AllTrim(cAprov)+ "."+chr(13)+ chr(10) + chr(13)+ chr(10) cHtm += "Esta mensagem é gerada automáticamente. Favor não responder a este e-mail."+chr(13)+ chr(10) cHtm += "

" cHtm += "" cHtm += "" //Não envia e-mail se nao aprovar. /*ElseIf PARAMIXB[1] == 2 cHtm := " A Solicitação de Compras nº " + AllTrim(SC1->C1_NUM) +" não foi aprovada" */ EndIf //Checando as informações de envio e conectando ao servidor SMTP CONNECT SMTP SERVER GetMv("MV_RELSERV") ACCOUNT GetMv("MV_RELACNT") PASSWORD GetMv("MV_RELPSW") RESULT lResul If GetMv("MV_RELAUTH") //Retorna se conseguiu fazer autenticação lOk := MailAuth(GetMv("MV_RELACNT"),GetMv("MV_RELPSW")) //Atribui retorno de envio de email na variável cError If !lOk GET MAIL ERROR cError MsgInfo(cError) EndIf EndIf //Envio de email If PARAMIXB[1] == 1 SEND MAIL FROM GetMv("MV_RELACNT") TO cEmail CC cCopia SUBJECT cAssunto BODY cHtm RESULT lSend If !lSend GET MAIL ERROR cError MsgInfo(cError) Else MsgInfo("E-mail enviado com sucesso!") EndIf EndIf //Desconecta do servidor DISCONNECT SMTP SERVER RESULT lDisConectou Return