<% ' change to address of your own SMTP server strHost = "127.0.0.1" RCPT = "suporte@qss.com.br" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("From") ' From address Mail.FromName = Request("FromName") ' optional Mail.AddAddress = "suporte@qss.com.br" 'Mail.AddAddress Request("To") ' message subject Mail.Subject = Request("Subject") ' message body Mail.Body = Request("Body") strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> QSS Solutions
 

.... HOME
  Empresa
  Consultoria
  Segurança
  Extranet
  Hospedagem
  Clientes
.SERVIDOR REMOTO CONTATO WEBMAIL
       
 

Entre em contato com a QSS SOLUTIONS agora mesmo .

Email - suporte@qss.com.br
Pager - pager@qss.com.br
Site de Suporte -> http:\\suporte.qss.com.br
Skype - Clique aqui para LIGAR
 
   QSS © 2004. All rights reserveds.