Minibabies Loucos por Game Maker
Coloque seu site Aqui
'-- Definindo Constantes a serem usadas CONST CR = "<BR>" CONST CRLF = "<P></P>" CONST BR = "<BR>" CONST HR = "<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 & "<b>Assunto:</b> Envio de senha XML HereClick.com.br" + CR strMensagem = strMensagem & "<br>" strMensagem = strMensagem & "=========================================================" + CR strMensagem = strMensagem & " 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 & " 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
Instalar Toolbar | Nosso Twitter | E-mail