<%
Dim objMail
Dim nome,email,mensagem
if Request.QueryString("Enviar") = "true" AND Request.Form("submit") = "Enviar" Then
nome = Trim(request.form("nome"))
email = Trim(request.form("email"))
mensagem = request.form("mensagem")
Set objMail = 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 objMail.Configuration = objCDOSYSCon
objMail.From ="celpur.sede@mail.telepac.pt"
objMail.To = "celpur.sede@mail.telepac.pt"
objMail.Subject="Sugestões e Comentários"
objMail.HtmlBody = "Nome: " & " " & " " & nome & "
" & "
" & "E-Mail:" & " " & " " & email & "
" & "
" & "Comentários ou Sugestões: " & " " & " " & mensagem
objMail.Send
Set objMail = nothing
Set objCDOSYSCon = Nothing
response.redirect ("sc2.asp")
else
%>
<%end if %>