<% vNome = Trim(Request.Form("xnome")) vemail = Trim(Request.Form("xemail")) vassunto = Trim(Request.Form("xassunto")) vDep = Trim(Request.Form("xdep")) vmensagem = Trim(Request.Form("xmensagem")) strhost = "smtp.pcdl.gov.br" 'altere o nome para o seu servidor de mensagens strFromName = vNome strFromEmail = "webpage@pcdl.gov.br" strToEmail = "webpage@pcdl.gov.br" strSubject = vAssunto strBody = "CONTATO PELO SITE - FALE CONOSCO !"& vbCrLf & vbCrLf strBody = strBody & "Nome: "&vNome & vbCrLf strBody = strBody & "E-mail: "&vEmail& vbCrLf strBody = strBody & "Assunto: "&vAssunto & vbCrLf strBody = strBody & "Mensagem: "& vbCrLf strBody = strBody & vMensagem & vbCrLf strBody = strBody & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "*************************************** Fim **" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.From = strFromEmail Mail.FromName = strFromName Mail.AddAddress strToEmail Mail.Subject = strSubject Mail.Body = strBody Mail.Send %>

FALE CONOSCO !


CONFIRMAÇÃO

 

 


 


Sua mensagem foi enviada com sucesso, aguarde retorno.