<%
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.seudominio.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
'Utilização de SSL
objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email@seu_dominio.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "sua_senha"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "Sender <email@seu_dominio.com.br>"
objCDOSYSMail.To = "Dado Brasil <[email protected]>"
'objCDOSYSMail.cc = "Copia <[email protected]>"
'objCDOSYSMail.bcc = "Copia Oculta <[email protected]>"
objCDOSYSMail.Subject = "Envio autenticado - CDOSYS Apps"
objCDOSYSMail.HtmlBody = "<html><head><meta http-equiv=""Content-Type"" content=""text/html;charset=utf-8""></head><body>Email enviado pelo servidor <b>Dado Brasil</b>.</body></html>"
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
response.write "Email enviado com sucesso"
'Response.Redirect "Enviado.asp"
%>
