<% Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem) Select Case Componente Case "CDOSYS" 'inicio do seu script '... 'Configuração do CDOSYS Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'Cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'Servidor SMTP que será utilizado para enviar o e-mail objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.autoshoposasco.net.br" 'Porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 'Porta do CDOSYS objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'ATIVAR RECURSO DE SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "contato@autoshoposasco.net.br" 'SENHA DO USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "oliver1qw" 'Atualiza a configuração do CDOSYS para envio do e-mail objCDOSYSCon.Fields.Update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = Email objCDOSYSMail.To = ParaEmail objCDOSYSMail.Subject = Assunto objCDOSYSMail.HTMLBody = Mensagem objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing End Select End Function %>