<% Dim strbody, objCDOSYSMail, objCDOSYSCon, sresponder, sAssunto Dim varnome, varemail, vartelefone, varassunto, varmensagem, varip, vardata if request.form = "" then ' mostro o formulario else varnome = request.Form("nome") varemail = request.Form("email") vartelefone = request.Form("telefone") varunidade = request.Form("unidade") varmensagem = request.Form("mensagem") varcpf = request.Form("cpf") varip = Request.ServerVariables("REMOTE_ADDR") vardata = Now ' envia o e-mail strbody = strbody & "------------------- Parafina Santa Cruz -----------------" & "
"& "
" strbody = strbody & "Nome: " & varnome & "
"& "
" strbody = strbody & "CPF: " & varcpf & "
"& "
" strbody = strbody & "E-mail: " & varemail & "
"& "
" strbody = strbody & "Telefone: " & vartelefone & "
"& "
" strbody = strbody & "unidade: " & varunidade & "
"& "
" strbody = strbody & "Informações Adicionais: " & varmensagem & "
"& "
" strbody = strbody & "IP: " & varip & "
" strbody = strbody & "Data: " & vardata & "
"& "
" '## configurações do componente CDOSYS Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'Cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 'Porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 'Porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update 'Atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon ' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM #### 'configura o remetente sResponder = varemail sunidade = varnome & " -> RH Sta Cruz " objCDOSYSMail.From = varemail objCDOSYSMail.To = "stacruz@parafinasantacruz.com.br" objCDOSYSMail.Bcc = "luan@parafinasantacruz.com.br; ricardo@webti.com.br; leandro@resolvedor.com.br" 'configura o reply-to objCDOSYSMail.ReplyTo = sResponder 'configura o assunto objCDOSYSMail.Subject = sAssunto ''configura o conteúdo da mensagem objCDOSYSMail.HtmlBody = strbody '### FIM DAS CONFIGURAÇÕES DO CABEÇALHO ### 'para envio da mensagem no formato html altere o TextBody para HtmlBody 'objCDOSYSMail.HtmlBody = v_corpo 'objCDOSYSMail.fields.update ' ### ENVIA O E-MAIL ### objCDOSYSMail.Send ' ### DESTRÓI OS OBJETOS ### Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing end if %> Trabalhe Conosco

Trabalhe Conosco

<% if request.form = "" then %>

Estamos sempre em busca de profissionais qualificados.

Preencha o formulário abaixo para que possamos ter o primeiro contato.

<% else %>

Sua mensagem foi enviada com sucesso. Em breve entraremos em contato.

<% end if %>
<% if request.form = "" then %>

Nome

CPF

Telefone

E-mail

Unidade de interesse

Informações adicionais

<% else %> <% end if %>
Fale conosco

Tel.: +55 11 2676-9300

Tel.: +55 11 2673-5066

Cel.: +55 11 97150-7367

Cel.: +55 11 97150-7776

E-mail:
stacruz@parafinasantacruz.com.br

Matriz São Paulo

Av. Guilherme Giorgi, 1320
Vila Formosa, 03422-001
São Paulo / SP

Atendimento de Segunda à Sexta das 08:00 as 17:00.

  • São Paulo

  • Bahia

  • Produtos

Parafina Santa Cruz © 2020. Todos os direitos reservados. Política de Privacidade. | Criação de site WebTI / Resolvedor