<% ' Cria os objetos para envio de e-mail Set message = Server.CreateObject("CDO.Message") Set conf = Server.CreateObject("CDO.Configuration") Set param = conf.Fields param("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" param.Update 'Obtendo valores digitados no formulário e armazená-los nas variáveis locais strFrom = Request.Form("email") strTo = Request.Form("para") strSubject = Request.Form("assunto") strBody = Request.Form("mensagem") 'Retira caracteres inválidos que possam ser inclusos por acesso não autorizado 'para envio de Spam aux1 = chr(13) aux2 = chr(10) regex= "\\n|\\r|cc\:|bcc\:|"& aux1 &"|"& aux2 Set objRegExp = New RegExp objRegExp.Pattern = regex objRegExp.IgnoreCase = True objRegExp.Global = True strFrom = objRegExp.Replace(strFrom,"") strTo = objRegExp.Replace(strTo,"") strSubject = objRegExp.Replace(strSubject,"") Set message.configuration = conf 'Atribui-se os valores para as propriedades do objeto message.From = strFrom message.To = strTo message.Subject = StrSubject message.textBody = StrBody ' Outras propriedades que podem ser usadas, mas que deixaremos comentadas neste exemplo: ' - Você pode enviar e-mail HTML, arquivos anexados, etc; ' - Você pode mudar muitos aspectos da mensagem; 'message.HTMLBody = StrBody 'message.Cc = "conta1@dominio.com.br;conta2@dominio.com.br" 'Com Cópia 'message.Bcc = "conta3@dominio.com.br;conta4@dominio.com.br" 'Com Cópia Oculta 'message.Fields("urn:schemas:httpmail:importance").Value = 2 '(0=Baixa, 1=Normal, 2=Alta) 'message.AddAttachment "c:pathfilename.txt", "filename.txt" ' Envia a mensagem! message.send 'Atribui nothing ao objeto para que ele se torna inválido imediatamente após o envio 'Não podendo ser utilizado dois "sends" para o mesmo objeto New Mail Set message = nothing Msg = "Mensagem enviada com sucesso!" Response.Write "" Response.Write "" Response.Write "" Response.Write "

adidas tubular adidas yeezy adidas gazelle adidas schuhe new balance nike air force adidas zx flux nike air max 90 asics schuhe nike air max adidas nmd adidas superstar converse schuhe nike air max thea adidas stan smith nike air max 2016 nike huarache adidas ultra boost nike free converse sko

timberland shoes ugg ale canada goose suomi moncler sale canada goose takki barbour takki moncler takki timberland suomi canada goose sale parajumpers takit canada goose trillium barbour tikkitakki canada goose ale barbour jacket parajumpers long bear moncler untuvatakki parajumpers takki canada goose montebello
polo shirts polos hombre polo lacoste polos baratos camicie polo lacoste polo camicie online polos lacoste lacoste polo shirts ralph lauren polo cheap polo shirts nz polo ralph lauren ralph lauren polo lacoste polo shirts nz polos ralph lauren polos lacoste baratos ralph lauren polo shirts polos ralph lauren outlet
Acheter Priligy Viagra Suisse Acheter Levitra Orodispersible Acheter Cialis 5mg Cialis Suisse Acheter Levitra Acheter Propecia Viagra Professional Viagra Soft Cialis bestellen Cialis Original Kamagra Super Kamagra Levitra Professional Kamagra 100mg Kamagra Jelly kaufen Viagra Caps kaufen Cialis Daily kaufen Levitra Generika Lida Testpakete
buy kamagra uk cialis pills for sale uk viagra for sale uk levitra online uk kamagra gel nz kamagra 100 mg pillole viagra rosa viagra tablets uk buy cialis london kamagra online uk cialis lilly prezzo levitra controindicazioni kamagra forum levitra generico prezzo viagra online nz buy levitra nz viagra for sale nz cialis pills nz nuovo cialis cialis new zealand
Scarpe louis vuitton Ray ban adidas Adidas superstar longchamp air max Cinture scarpe Puma Puma Scarpe Scarpe nike air max scarpe asics nike air force Saucony polo camicie Polo Ralph Lauren scarpe Nike Cappelli
polo ralph lauren Sac louis vuitton chaussure de foot chaussure femme nike roshe Air max nike lunette de soleil carrea nike air force chaussure de marque lunette de soleil nike chaussure adidas yeezy chaussure new balance chaussures de foot adidas femme Chaussure louboutin chaussure bateau nike roshe run femme Chaussure nike Bijoux nike blazer lunette de soleil oakley
" %>
 
 
"& Msg &"