<%@LANGUAGE="VBSCRIPT"%> <% ' change to address of your own SMTP server strHost = "webmail.flucianofeijao.com.br" If Request("Send") <> "" Then on error resume next Const schema = "http://schemas.microsoft.com/cdo/configuration/" Const cdoBasic = 1 Const cdoSendUsingPort = 2 Dim oMsg, oConf ' Propriedades do email Set oMsg = CreateObject("CDO.Message") oMsg.From = Request("email") oMsg.To = "ouvidoria@flucianofeijao.com.br" oMsg.Subject = "[FACULDADE LUCIANO FEIJÃO] OUVIDORIA" oMsg.htmlBody = "Formulário da Ouvidoria
" & vbNewLine & vbNewLine & "Matrícula: " & Request("matricula") & "
Nome: " & Request("nome") & vbNewLine & "
E-mail: " & Request("email") & vbNewLine & "
Telefone: " & Request("fone") & vbNewLine & "
Endereço: " & Request("endereco") & vbNewLine & "
Aluno: " & Request("aluno") & vbNewLine & "
Setor: " & Request("setor") & "
Tipo de Assunto: " & Request("assunto") & vbNewLine & vbNewLine & "
Mensagem: " & Request("mensagem") ' Configuração e autenticação do seu servidor de SMTP Gmail Set oConf = oMsg.Configuration 'Endereço do servidor de SMTP oConf.Fields(schema & "smtpserver") = "smtp.flucianofeijao.com.br" 'Número da porta oConf.Fields(schema & "smtpserverport") = 25 oConf.Fields(schema & "sendusing") = cdoSendUsingPort 'Tipo de autenticacao oConf.Fields(schema & "smtpauthenticate") = cdoBasic 'Uso da Encriptação SSL oConf.Fields(schema & "smtpusessl") = False 'Envia username oConf.Fields(schema & "sendusername") = "ouvidoria@flucianofeijao.com.br" 'Envia password oConf.Fields(schema & "sendpassword") = "ouvidorflf2015" oConf.Fields.Update() ' Envia mensagem oMsg.Send() ' Retorna o status da mensagem strErr = "" bSuccess = False If Err Then 'resultMessage = "ERROR " & Err.Number & ": " & Err.Description strErr = Err.Description else bSuccess = True End If Wscript.echo(resultMessage) End If %> Faculdade Luciano Feijão - Ouvidoria

OUVIDORIA

<% If Request("Send") <> "" Then %> <%If strErr <> "" Then %> Não foi possível enviar sua mensagem!
Tente novamente, mais tarde! <% End If %> <% If bSuccess Then %> Contato enviado com sucesso!
Obrigado por contatar-nos, em breve retornaremos! <% End If %> <% else %> Sugestões, dicas, reclamações e elogios são partes da construção de um ensino de qualidade!

Origem










Telefone:


Endereço:



  




Destino:

:







   
<% End If %>