Procedure envia_email()
IF NOT HReadSeekFirst(tabsetup,tabsetupID,1) THEN
Error("Erro na leitura do tabsetup")
RETURN
END
mensagem is Email
sessao is EmailSMTPSession
anexo is EmailAttach

mensagem..Sender=tabsetup.tabsetup_conta //remetente

IF garquivo <> "" THEN
anexo..Name=garquivo
anexo..Content=fLoadText(anexo..Name)
Add(mensagem..Attach,anexo)
END

//mensagem..Message=EDT_Mensagem // mensagem
mensagem..HTML=EDT_Mensagem // mensagem
mensagem..Subject=EDT_Assunto // assunto
IF destino <> "" THEN
EDT_Destinatario=destino
END
Add(mensagem..Recipient,EDT_Destinatario) // acrescenta destinatario
sessao.ServerAddress=tabsetup.tabsetup_servidor
sessao.Port=tabsetup.tabsetup_porta
IF tabsetup.tabsetup_seguranca = 2 THEN
sessao.Option=emailOptionSecuredTLS
END
sessao.Password=tabsetup.tabsetup_senha
sessao.Name=tabsetup.tabsetup_conta

EmailSetTimeOut(10)
IF EmailStartSession(sessao) = False THEN
Error("Erro no envio do email")
ELSE
EmailSendMessage(sessao,mensagem)
EmailCloseSession(sessao)
Error("Email enviado com sucesso!")
END