Categorias

Envio de e-mail utilizando o componente CDONTS.NewMail

Imagem do avatar de
Publicado por Alessandro Silvestre

Apresento uma rotina simples porém funcional para o envio de e-mail utilizando o componente NewMail da biblioteca CDO (CDONTS) do ASP Clássico, especificamente para adicionar funcionalidades de troca de mensagens a um aplicativo.

O objeto NewMail foi construído apenas para gerar mensagens rapidamente a partir de dentro de um aplicativo.

Não há nenhuma interação com o usuário permitida ao objeto NewMail e nao há nenhum suporte para uma interface conectar-se a um servidor de correio.

As propriedade do objeto NewMail são de leitura. Se você adicionar objetos Recepient ou objetos Attachment a um objeto NewMail, esses itens não podem ser removidos.

Você não pode remover o objeto NewMail da memória até configurar explicitamente a variavel de objeto NewMail como Nothing

Propriedades do objeto NewMail

Bcc – Um valor string que representa os destinatário que receberão uma copia oculta da mensagem atual;

Body – Um valor string que representa o corpo de texto do conteudo do NewMail;

BodyFormat – Um valor inteiro que presenta o formato de texto para o corpo de texto;

Cc – Um valor string que representa os destinatario que receberão uma copia da mensagem atual;

ContentBase – Um valor string que representa o URL de raiz de base para todos os URL que se relaciona, com o conteudo do objeto NewMail;

ContentLocation – um caminho relativo ou absoluto para todos os URLs que se relacionam com o conteudo do objeto NewMail;

From – Um valor string contendo o endereço de correio eletronico do remetente da mensagem;

Importance – Um valor de inteiro que presenta a prioridade da mensage de NewMail. É utilizado pelo subsistema de troca de mensagem no agendamento de entrega da mensagem atual;

MailFormat – Um valor de inteiro que representa o metodo de codificação para o conteuido da mensagem do objeto NewMail;

Subject – Um valor string contendo a string de assunto da mensagem atual;

To – Um valor de string que representa o endereço de correio eletronico dos destinatario da mensagem do objeto NewMail separados por ponto e virgula ( ; )quando este for mais de um;

AttachFile – Anexa um arquivo a mensagem atual;

AttachURL – Anexa um arquivo a mensagem atual e associa-se a um URL com esse anexo;

Send – Envia a mensahem atual para todos os destinatarios listados nas propriedade TO, Cc, Bcc

Espero que esta lhe seja de grande ajuda. Por favor não deixe de postar seus comentários.

'-- Definindo Constantes a serem usadas 
	CONST CR			= "
"
	CONST CRLF			= "
"
	CONST BR			= "
"
	CONST HR			= "
"
	CONST 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 & "Assunto: Envio de senha XML HereClick.com.br" + CR
			strMensagem = strMensagem & "
"
			strMensagem = strMensagem & "=========================================================" + CR
			strMensagem = strMensagem & "       HereClick.com.br" + CR
			strMensagem = strMensagem & "=========================================================" + CR
			strMensagem = strMensagem & "
"
			strMensagem = strMensagem & "Prezado Parceiro,"  + CR
			strMensagem = strMensagem & "
"
			strMensagem = strMensagem & "O seu usuário é: " + rsEmail("usuario")  + "" + CR
			strMensagem = strMensagem & "A sua senha é: "   + rsEmail("password") + "" + CR
			strMensagem = strMensagem & "
"
			strMensagem = strMensagem & "
"
			strMensagem = strMensagem & "
"
			strMensagem = strMensagem & "=============================" + CR
			strMensagem = strMensagem & "       DÚVIDAS E INFORMAÇÕES    " + CR
			strMensagem = strMensagem & "=============================" + CR
			strMensagem = strMensagem & "
"
			strMensagem = strMensagem & "Fone/fax: [11] 5555-5555" + CR
			strMensagem = strMensagem & "E-mail: [email protected]" + CR
			strMensagem = strMensagem & "Segunda a Sexta, das 8 às 18h."  + CR
			strMensagem = strMensagem & "
"
			strMensagem = strMensagem & "----------------------------------- " + CR
			strMensagem = strMensagem & "
"
			strMensagem = strMensagem & "Atenciosamente," + CR
			strMensagem = strMensagem & "Equipe HereClick" + CR
			strMensagem = strMensagem & "https://www.HereClick.com.br" + CR 
			strMensagem = strMensagem & "
"
			strMensagem = strMensagem & "HereClick Software Office ME" + CR

	sError = "
Sua senha foi enviada para o e-mail:
 " + rsEmail("Email") + ""

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

	Call SiteLibEnviaEmail("[email protected]", strEmail, "", "", "Envio de senha Integração Comercial HereClick.com.br", strMensagem, true)	

// Fim
Tags: