Perguntas AP5MAIL

Veja se te ajuda.



// Envio de Email do WorkFlow Contrato

Static Function EnvWrk(cNomRespo,cEmaRespo,cAssunto,mCorpo)
Local cAccount := RTrim(SuperGetMV("MV_RELACNT"))
Local cFrom := RTrim(SuperGetMV("MV_RELFROM"))
Local cPara := cEmaRespo
Local cPassword := Rtrim(SuperGetMv("MV_RELAPSW"))
Local cServer := Rtrim(SuperGetMv("MV_RELSERV"))
Local lResult := .F. // Se a conexao com o SMPT esta ok
Local cError := "" // String de erro
Local lRelauth := SuperGetMv("MV_RELAUTH") // Parametro que indica se existe autenticacao no e-mail
Local lRet := .F. // Se tem autorizacao para o envio de e-mail
Local cConta := GetMV("MV_RELACNT") //ALLTRIM(cAccount) // Conta de acesso
Local cSenhaTK := GetMV("MV_RELPSW") //ALLTRIM(cPassword) // Senha de acesso

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Envia o mail para a lista selecionada. Envia como BCC para que a pessoa pense³
//³que somente ela recebeu aquele email, tornando o email mais personalizado. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

CONNECT SMTP SERVER cServer ACCOUNT cConta PASSWORD cSenhaTK RESULT lResult

// Se a conexao com o SMPT esta ok
If lResult

// Se existe autenticacao para envio valida pela funcao MAILAUTH
If lRelauth
lRet := Mailauth(cConta,cSenhaTK)
Else
lRet := .T.
Endif

If lRet
SEND MAIL FROM cFrom ;
TO cPara;
SUBJECT cAssunto;
BODY mCorpo;
RESULT lResult

If !lResult
//Erro no envio do email
GET MAIL ERROR cError
Help(" ",1,'Erro no Envio do Email',,cError+ " " + cEmailTo,4,5) //Atenção
Endif

Else
GET MAIL ERROR cError
Help(" ",1,'Autenticação',,cError,4,5) //"Autenticacao"
MsgStop('Erro de Autenticação','Verifique a conta e a senha para envio') //"Erro de autenticação","Verifique a conta e a senha para envio"
Endif

DISCONNECT SMTP SERVER

Else
//Erro na conexao com o SMTP Server
GET MAIL ERROR cError
Help(" ",1,'Erro no Envio do Email',,cError,4,5) //Atencao
Endif
Return .t.