artver.com

    Arte, Cultura e Responsabilidade Social

 


 

  

       Contato                 55.11.3085.6770

                                   artver@artver.com

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Formulário de Contato

Formulário de Contato

Nome do Remetente:
E-mail do remetente:
Assunto:
Mensagem:
<% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.SEU_DOMINIO_TEMPORARIO" cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = "CONTA DE E-MAIL VÁLIDA PARA AUTENTICAR" 'conta@seu_dominio cdoConfig.Fields.Item(sch & "sendpassword") = "SENHA DO E-MAIL" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = "conta@seu_dominio" 'ENDEREÇO DE E-MAIL QUE SERÁ EXIBIDO NO FROM DA MENSAGEM cdoMessage.To = "Conta de e-mail de sua escolha" 'ex: conta@seu_dominio, conta@uol.com.br, conta@hotmail cdoMessage.Subject = "Formulario de Contato" cdoMessage.ReplyTo = Request("emailrem") strBody = "Dados

" & _ "Nome:"& Request("nomerem")& "
" & _ "E-Mail:"& Request("emailrem")& "
" & _ "Assunto:"& Request("assunto")& "
" & _ "Mensagem:"& Request("recado") strBody = strBody & "." cdoMessage.HTMLBody = strBody cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.write "O e-mail foi processado e enviado com sucesso"