'-- Definindo Constantes a serem usadas 
	CONST CR			= "<BR>"
	CONST CRLF			= "<P></P>"
	CONST BR			= "<BR>"
	CONST HR			= "<HR>"
	CONST NBSP			= "&nbsp;"
	CONST NOWRAP		= "NOWRAP"
	CONST LJ			= "LEFT"
	CONST RJ			= "RIGHT"
	CONST CJ			= "CENTER"
	CONST ALIGN_LEFT	= "LEFT"
	CONST ALIGN_RIGHT	= "RIGHT"
	CONST ALIGN_CENTER	= "CENTER"

'-- Definindo Rotina que envia e-mail
	'//////////////////////////////////////////////////////////////////
	'Objetivo: Enviar Email
	'Entrada: strDe				' E-mail do Remetente (o seu)
	'         strPara			' E-mail do Destinatario (seu Cliente) para o email
	'         strCopia			' E-mail de quem recebera um cocia da mensagem
	'         strCopiaOculta	' E-mail de quem recebera uma copia OCULTA
	'         strSubject		' Titulo do E-mail (Assunto)
	'         strTexto			' Mensagem a ser enviada (Corpo)
	'         blnHTML			' Formato do E-mail é HTML (True)
	'Retorno: 
	'/////////////////////////////////////////////////////////////
	Sub SiteLibEnviaEmail(ByVal strDe, _
						  ByVal strPara, _
						  ByVal strCopia, _
						  ByVal strCopiaOculta, _
						  ByVal strSubject, _
						  ByVal strTexto, _
						  byVal blnHTML)

	  Dim objCDONTS
	  If Len(strPara) > 0 Then
		'-- Criando instancia do objeto ASP que envia e-mail 
		Set objCDONTS = Server.CreateObject("CDONTS.NewMail")

		With objCDONTS			'Seta as propriedades do objeto de acordo com os parametros recebidos
		  .From		= strDe
		  .To		= strPara
		  If Len(strCopia) > 0 Then .Cc = strCopia

		  If Len(strCopiaOculta) > 0 Then .Bcc = strCopiaOculta

		  .Subject = strSubject

		  If blnHTML Then 'Verifica se é HTML
			.BodyFormat = 0 'Formato HTML
			.MailFormat = 0 'MIME Format
		  Else
			.BodyFormat = 1 'Formato Texto
			.MailFormat = 1 'Plain Text
		  End If
		  .Body = strTexto
		  .Send
		End With
	  End If
	End Sub  

'********************************************************************************************************************
'**
'**  Obs. Aqui estarei eu usando um recordset que obtem informações do banco de dados apenas para exemplo porem 
'**       nao estou mostrando como abrir conexao com banco e obter dados do mesmo, pois este nao e´ o foco do exemplo.
'**
'********************************************************************************************************************

'-- Exemplo de utilização da Rotina de Envio de E-mail
	Dim strMensagem			'-- Variavel que armazena o corpo do email
	Dim strEmail			'-- Variavel que armazena o e-mail do destinatario (cliente)
	Dim sError				'-- Variavel que armazena a mensagem de retorno a aplicação
	strEmail = rsEmail("Email")
			strMensagem = strMensagem & "<b>Assunto:</b> Envio de senha XML HereClick.com.br" + CR
			strMensagem = strMensagem & "<br>"
			strMensagem = strMensagem & "=========================================================" + CR
			strMensagem = strMensagem & "&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp HereClick.com.br" + CR
			strMensagem = strMensagem & "=========================================================" + CR
			strMensagem = strMensagem & "<br>"
			strMensagem = strMensagem & "Prezado Parceiro,"  + CR
			strMensagem = strMensagem & "<br>"
			strMensagem = strMensagem & "O seu usuário é: <b>" + rsEmail("usuario")  + "</b>" + CR
			strMensagem = strMensagem & "A sua senha é: <b>"   + rsEmail("password") + "</b>" + CR
			strMensagem = strMensagem & "<br>"
			strMensagem = strMensagem & "<br>"
			strMensagem = strMensagem & "<br>"
			strMensagem = strMensagem & "=============================" + CR
			strMensagem = strMensagem & "&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp DÚVIDAS E INFORMAÇÕES    " + CR
			strMensagem = strMensagem & "=============================" + CR
			strMensagem = strMensagem & "<br>"
			strMensagem = strMensagem & "Fone/fax: [11] 5555-5555" + CR
			strMensagem = strMensagem & "E-mail: comercial@HereClick.com.br" + CR
			strMensagem = strMensagem & "Segunda a Sexta, das 8 às 18h."  + CR
			strMensagem = strMensagem & "<br>"
			strMensagem = strMensagem & "----------------------------------- " + CR
			strMensagem = strMensagem & "<br>"
			strMensagem = strMensagem & "Atenciosamente," + CR
			strMensagem = strMensagem & "Equipe HereClick" + CR
			strMensagem = strMensagem & "http://www.HereClick.com.br" + CR 
			strMensagem = strMensagem & "<br>"
			strMensagem = strMensagem & "HereClick Software Office ME" + CR

	sError = "<br>Sua senha foi enviada para o e-mail:<br> <font size='3' color='#0000FF'>" + rsEmail("Email") + "<font>"

'-- Usando a rotina de envio de e-mail

	Call SiteLibEnviaEmail("comercial@HereClick.com.br", strEmail, "", "", "Envio de senha Integração Comercial HereClick.com.br", strMensagem, true)	

// Fim