<%Function tira_plicas(texto)
texto=trim(texto)
texto_temp=""
For i=1 to len(texto)
if Mid(texto,i,1)="'" then
texto_temp=texto_temp & "''"
else
texto_temp=texto_temp & Mid(texto,i,1)
end if
Next
tira_plicas=texto_temp
End Function
dim componentes_email(0)
componentes_email(0) = "CDOSYS"
Function send_mail(desde,nome,para,assunto,body)
'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.formilectronica.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic authentication
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "orcamentos@formilectronica.com" 'set your username here
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")= "formiemp" 'set your password here
objCDOSYSCon.Fields.Update
'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = nome&"<"&desde&">"
objCDOSYSMail.To = para
objCDOSYSMail.Subject = assunto
objCDOSYSMail.HTMLBody = body
objCDOSYSMail.Send
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
End Function
if request.QueryString("fazer") = "enviar" then
enviar_recrutamento()
else
form_enviar_recrutamento()
end if
Sub form_enviar_recrutamento%>
<%End Sub
Sub enviar_recrutamento
nome = tira_plicas(request.Form("nome"))
contacto = tira_plicas(request.Form("contacto"))
email = tira_plicas(request.Form("email"))
mensagem = Replace(tira_plicas(request.Form("mensagem")), chr(10), "
")
body = ""
body = body & " | |
| |
"
body = body & "| Nome: | "&nome&" |
"
body = body & "| Contacto: | "&contacto&" |
"
body = body & "| E-Mail: | "&email&" |
"
body = body & "| Mensagem: | "&mensagem&" |
"
body = body & "
"
send_mail "geral@formilectronica.com","Contacto Site Formilectronica","geral@formilectronica.com","Recrutamento",body
%><%
End Sub
%>